X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.pure.lisp;h=90205bc0a094951a9ae9b761055b3b94dd3656eb;hb=c44f2e6960733edc383244f3e39db3b6581255c4;hp=557b327becb86480b1473ab76cb26bf81815e0bb;hpb=508bf17fa9e609c523a2795d84a3bc908db1b302;p=sbcl.git

diff --git a/tests/type.pure.lisp b/tests/type.pure.lisp
index 557b327..90205bc 100644
--- a/tests/type.pure.lisp
+++ b/tests/type.pure.lisp
@@ -169,7 +169,6 @@
                 (subtypep '(function)
                           '(function (t &rest t))))
                '(nil t)))
-#+nil
 (assert (and (subtypep 'function '(function))
              (subtypep '(function) 'function)))
 
@@ -203,3 +202,7 @@
 
 (assert (not (nth-value 1 (subtypep '(and null some-unknown-type)
                                     'another-unknown-type))))
+
+;;; bug 46c
+(dolist (fun '(and if))
+  (assert (raises-error? (coerce fun 'function) type-error)))