X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.impure.lisp;h=8ab2a975635d705b8b18293d9ab26b858b61d960;hb=d8659f1e656234e8f0f47d5295b503dd6cff4aba;hp=5e6540af4b1e6301f91204a665582ebc9ad7237d;hpb=d052cf55544eb8c251146457d9245e8610e0a8f2;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index 5e6540a..8ab2a97 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -430,11 +430,11 @@
 ;;; confusing.
 (with-test (:name (:ctor :typep-function))
   (assert (eval '(typep (sb-pcl::ensure-ctor
-                         (list 'sb-pcl::ctor (gensym)) nil nil)
+                         (list 'sb-pcl::ctor (gensym)) nil nil nil)
                         'function))))
 (with-test (:name (:ctor :functionp))
   (assert (functionp (sb-pcl::ensure-ctor
-                      (list 'sb-pcl::ctor (gensym)) nil nil))))
+                      (list 'sb-pcl::ctor (gensym)) nil nil nil))))
 
 ;;; from PFD ansi-tests
 (let ((t1 '(cons (cons (cons (real -744833699 -744833699) cons)
@@ -551,4 +551,11 @@
 (assert-t-t
  (subtypep '(or fixnum simple-string end-of-file parse-error fixnum vector)
            '(or fixnum vector end-of-file parse-error fixnum simple-string)))
+
+#+sb-eval
+(assert-t-t
+ (subtypep '(and function (not compiled-function)
+             (not sb-eval:interpreted-function))
+           nil))
+
 ;;; success