X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Feval.impure.lisp;h=f48801e865631e47b2fd7b9097de5a234718a438;hb=bfa4310e41dcd011ca9d139f29be1c5757b41378;hp=3f7aa8854ec5e04c97a9169ce6bcba5388e9ebe8;hpb=269554bcae55d7e502992ea20932f71790066483;p=sbcl.git

diff --git a/tests/eval.impure.lisp b/tests/eval.impure.lisp
index 3f7aa88..f48801e 100644
--- a/tests/eval.impure.lisp
+++ b/tests/eval.impure.lisp
@@ -116,5 +116,13 @@
                                  foo)))
                        error))
 
+;;; MAKE-PACKAGE (and other &key functions) should signal an error
+;;; when given a NIL key.  This is kind of a compiler test really, but
+;;; this'll do as a resting place.
+(handler-case
+    (eval '(make-package "FOO" nil nil))
+  (error () :ok)
+  (:no-error (c) (error "MAKE-PACKAGE succeeded: ~S" c)))
+
 ;;; success
 (sb-ext:quit :unix-status 104)