From: Stas Boukarev <stassats@gmail.com>
Date: Thu, 3 Oct 2013 18:55:18 +0000 (+0400)
Subject: Add a test-case for the previous commit.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a566e334e16d9cd0ff4f6858d796442305fd0f99;p=sbcl.git

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