X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fhash.impure.lisp;h=dfbb9c4ff4227ac360f1cf9110753ab23c622be5;hb=095564c28a259002c7e34fd1d861f5bbd0a959b6;hp=ee9e538da51053ad251317b636572b06aca930b2;hpb=b0a51fec91a2196e95824165dcdb049ff6e3834b;p=sbcl.git

diff --git a/tests/hash.impure.lisp b/tests/hash.impure.lisp
index ee9e538..dfbb9c4 100644
--- a/tests/hash.impure.lisp
+++ b/tests/hash.impure.lisp
@@ -241,7 +241,8 @@
 
 ;;; NIL is both SYMBOL and LIST
 (dolist (fun '(sxhash sb-impl::psxhash))
-  (assert (= (funcall fun nil)
+  (assert (= (eval `(,fun nil))
+	     (funcall fun nil)
              (funcall (compile nil `(lambda (x)
                                       (declare (symbol x))
                                       (,fun x)))
@@ -249,6 +250,10 @@
              (funcall (compile nil `(lambda (x)
                                       (declare (list x))
                                       (,fun x)))
+                      nil)
+             (funcall (compile nil `(lambda (x)
+				      (declare (null x))
+                                      (,fun x)))
                       nil))))
 
 ;;; success