common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Add a test-case for the previous commit.

Browse source
This commit is contained in:
Stas Boukarev 2013-10-03 22:55:18 +04:00
parent 993c261469
commit a566e334e1
2 changed files with 8 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
tests/undefined-classoid-bug-1.lisp
View file

@ -3,3 +3,5 @@
(defun a-struct-referencer-1 (struct)
(a-struct-slot struct))
(defun a-class-typep-2 (x)
(typep x 'a-class))

6
tests/undefined-classoid-bug-2.lisp
View file

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