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
1.0.13.23: record READ-CHAR-NO-HANG bug on Windows (#421)
[sbcl.git]
/
tests
/
package-ctor-bug.lisp
blob
e4285f4b5739d4a2385b28c4e4fd60cc40beb2a1
1
(
defpackage
"PACKAGE-CTOR-BUG"
2
(:
use
"CL"
)
3
(:
export
"TEST"
))
4
5
(
in-package
"PACKAGE-CTOR-BUG"
)
6
7
(
defclass
fooass
()
8
((
flot
:
initarg
:
flot
:
reader flot
)))
9
10
(
defun
test
()
11
(
flot
(
make-instance
'
fooass
:
flot
3
)))