[Sbcl-commits] master: Add a test-case for the previous commit.

[stassats <sta...@us...>]

The branch "master" has been updated in SBCL:
       via  a566e334e16d9cd0ff4f6858d796442305fd0f99 (commit)
      from  993c261469bbf6201c6fae04fcdf255d38cf419d (commit)

- Log -----------------------------------------------------------------
commit a566e334e16d9cd0ff4f6858d796442305fd0f99
Author: Stas Boukarev <sta...@gm...>
Date:   Thu Oct 3 22:55:18 2013 +0400

    Add a test-case for the previous commit.
---
 tests/undefined-classoid-bug-1.lisp |    2 ++
 tests/undefined-classoid-bug-2.lisp |    6 ++++++
 2 files changed, 8 insertions(+), 0 deletions(-)

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

-----------------------------------------------------------------------


hooks/post-receive
-- 
SBCL