| commit | 2339bddeda261e5034099f203469e4d05f5227c1 | |
| author | Douglas Katzman <dougk@google.com> | |
| Thu, 5 Jan 2017 20:10:19 +0000 (5 15:10 -0500) | ||
| committer | Douglas Katzman <dougk@google.com> | |
| Thu, 5 Jan 2017 20:16:41 +0000 (5 15:16 -0500) | ||
| tree | 7b6510e83c5e3f980254a49ec1cfd02e65e2d839 | treesnapshot (tar.gz zip) |
| parent | 00785b7a5618ea13b99dc471e61c073a9d6edbab | commitdiff |
Add a touch more sanity to package creation operations.
- In DEFPACKAGE, the name of the package being defined was first passed
to STRINGIFY-PACKAGE-DESIGNATOR, and then STRINGIFY-STRING-DESIGNATOR.
Since the latter is more strict, it must be a string-designator.
- MAKE-PACKAGE and RENAME-PACKAGE should check all of the specified
nicknames for stringability before doing anything else.
- In %ENTER-NEW-NICKNAMES, assert that it only receives strings.
- In DEFPACKAGE, the name of the package being defined was first passed
to STRINGIFY-PACKAGE-DESIGNATOR, and then STRINGIFY-STRING-DESIGNATOR.
Since the latter is more strict, it must be a string-designator.
- MAKE-PACKAGE and RENAME-PACKAGE should check all of the specified
nicknames for stringability before doing anything else.
- In %ENTER-NEW-NICKNAMES, assert that it only receives strings.
| src/code/defpackage.lisp | diffblobblamehistory | |
| src/code/target-package.lisp | diffblobblamehistory |