X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Ftype.impure.lisp;h=b5e981f76f7a4881c8e5927bec43940c2a380b3f;hb=fd79e33e6b6dacdc52cf6668a5bb7adf75aad6c1;hp=e1e0b738133ee0b5f323da11777875a1f27362df;hpb=14115e1756e5764ef9e200f331912ae3a48cc4a2;p=sbcl.git

diff --git a/tests/type.impure.lisp b/tests/type.impure.lisp
index e1e0b73..b5e981f 100644
--- a/tests/type.impure.lisp
+++ b/tests/type.impure.lisp
@@ -435,6 +435,12 @@
 (with-test (:name (:ctor :functionp))
   (assert (functionp (sb-pcl::ensure-ctor
                       (list 'sb-pcl::ctor (gensym)) nil nil nil))))
+;;; some new (2008-10-03) ways of going wrong...
+(with-test (:name (:ctor-allocate-instance :typep-function))
+  (assert (eval '(typep (allocate-instance (find-class 'sb-pcl::ctor))
+                        'function))))
+(with-test (:name (:ctor-allocate-instance :functionp))
+  (assert (functionp (allocate-instance (find-class 'sb-pcl::ctor)))))
 
 ;;; from PFD ansi-tests
 (let ((t1 '(cons (cons (cons (real -744833699 -744833699) cons)