repo.or.cz
/
sbcl.git
/
blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
log
|
graphiclog1
|
graphiclog2
|
commit
|
commitdiff
|
tree
|
refs
|
edit
|
fork
blame
|
history
|
raw
|
HEAD
make info :type :lambda-list have a type of T not NIL
[sbcl.git]
/
tests
/
undefined-classoid-bug-2.lisp
blob
add876eab98756e9cb4292af00b657ed01fc8e4c
1
(
in-package
"CL-USER"
)
2
3
(
defun
a-struct-referencer-2
(
struct
)
4
(
a-struct-slot
struct
))
5
6
(
defun
a-class-typep
(
x
)
7
(
typep
x
'
a-class
))
8
9
(
defstruct
a-struct slot
)
10
11
(
defclass
a-class
()
12
())