Add a test-case for the previous commit.

[sbcl.git] / tests / undefined-classoid-bug-1.lisp

diff --git a/tests/undefined-classoid-bug-1.lisp b/tests/undefined-classoid-bug-1.lisp
index 9d93fca..bf680dc 100644 (file)
--- 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))