Commit cf5348a6 authored by pfdietz's avatar pfdietz
Browse files

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

parent f2b6311e

ansi-tests/sxhash.lsp

+2 −2
Original line number Diff line number Diff line
@@ -124,13 +124,13 @@ 
		for package = (find-package name)

		unless package do (return name)))

	 (sx1

	  (let* ((package (make-package package-name nil nil))

	  (let* ((package (make-package package-name :nicknames nil :use nil))

		 (symbol (intern "FOO" package)))

	    (prog1

	       (sxhash symbol)

	      (delete-package package))))

	 (sx2

	  (let* ((package (make-package package-name nil nil))

	  (let* ((package (make-package package-name :nicknames nil :use nil))

		 (symbol (intern "FOO" package)))

	    (prog1

	       (sxhash symbol)