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
Allow funcallable instances in immobile fixedobj space, part 1 of 2
[sbcl.git]
/
tests
/
parallel-fasl-load-test.lisp
blob
8beb7a20984938f0aef1f21e30b27b5e22e5caa9
1
(
defun
one-fun
()
2
1
)
3
4
(
defun
two-fun
()
5
2
)
6
7
(
defvar
*
var
*
42
"This is var."
)
8
9
(
defparameter
*
quux
*
13
"This is quux."
)
10
11
(
defclass
a-class
()
12
((
slot
:
initarg
:
slot
:
reader a-slot
)))
13
14
(
defgeneric
gen-fun
(
x
)
15
(:
method
((
a
cons
)) '
cons
))
16
17
(
defmethod
gen-fun
((
a
a-class
)) '
a-class
)