Skip to content
Snippets Groups Projects
Commit cf5348a6 authored by pfdietz's avatar pfdietz
Browse files

The extra args to make-package are keyword args, not optional args

parent f2b6311e
No related branches found
No related tags found
No related merge requests found
...@@ -124,13 +124,13 @@ ...@@ -124,13 +124,13 @@
for package = (find-package name) for package = (find-package name)
unless package do (return name))) unless package do (return name)))
(sx1 (sx1
(let* ((package (make-package package-name nil nil)) (let* ((package (make-package package-name :nicknames nil :use nil))
(symbol (intern "FOO" package))) (symbol (intern "FOO" package)))
(prog1 (prog1
(sxhash symbol) (sxhash symbol)
(delete-package package)))) (delete-package package))))
(sx2 (sx2
(let* ((package (make-package package-name nil nil)) (let* ((package (make-package package-name :nicknames nil :use nil))
(symbol (intern "FOO" package))) (symbol (intern "FOO" package)))
(prog1 (prog1
(sxhash symbol) (sxhash symbol)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment