X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fundefined-classoid-bug-1.lisp;h=bf680dc9b5c0934402fc3a348a32029f051e5922;hb=1cba0af01f5107ab384d0d8b94b1f6330b3d0ef4;hp=9d93fca9dffc7dc27d890be49002445ab314eeb5;hpb=412fb51c01281e2bdf2805415267545f64b0ab0e;p=sbcl.git

diff --git a/tests/undefined-classoid-bug-1.lisp b/tests/undefined-classoid-bug-1.lisp
index 9d93fca..bf680dc 100644
--- a/tests/undefined-classoid-bug-1.lisp
+++ b/tests/undefined-classoid-bug-1.lisp
@@ -3,3 +3,5 @@
 (defun a-struct-referencer-1 (struct)
   (a-struct-slot struct))
 
+(defun a-class-typep-2 (x)
+  (typep x 'a-class))