Add a test-case for the previous commit.

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

diff --git a/tests/undefined-classoid-bug-2.lisp b/tests/undefined-classoid-bug-2.lisp
index 39a0fe8..add876e 100644 (file)
--- 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 ()
+  ())