Add a test-case for the previous commit.

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))

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 ()
+  ())