From a566e334e16d9cd0ff4f6858d796442305fd0f99 Mon Sep 17 00:00:00 2001 From: Stas Boukarev Date: Thu, 3 Oct 2013 22:55:18 +0400 Subject: [PATCH] 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(+) 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 () + ()) -- 1.7.10.4