X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Fundefined-classoid-bug-2.lisp;h=add876eab98756e9cb4292af00b657ed01fc8e4c;hb=cf49f2d086069a9c1b57f501df9a6a0bd3a34c3c;hp=39a0fe86cf51591f6f29a7feb8dd21e87e1c9613;hpb=412fb51c01281e2bdf2805415267545f64b0ab0e;p=sbcl.git

diff --git a/tests/undefined-classoid-bug-2.lisp b/tests/undefined-classoid-bug-2.lisp
index 39a0fe8..add876e 100644
--- a/tests/undefined-classoid-bug-2.lisp
+++ b/tests/undefined-classoid-bug-2.lisp
@@ -3,4 +3,10 @@
 (defun a-struct-referencer-2 (struct)
   (a-struct-slot struct))
 
+(defun a-class-typep (x)
+  (typep x 'a-class))
+
 (defstruct a-struct slot)
+
+(defclass a-class ()
+  ())