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
Hoist tests from scan_weak_pointers() into scav_weak_pointer()
[sbcl.git]
/
tests
/
circ-tree-test.lisp
blob
2189186be0b5cf1cdf30d954873cc75a20301ccf
1
;;; fasl-dumper and circular trees, reported by Marco Monteiro
2
(
COMPILE
NIL
3
'(
LAMBDA
()
4
(
LIST
'#
5
= (#
5
# #
5
#
.
#
5
#))
5
(
LIST
'#
6
= (#
7
= (#
6
#)
.
#
7
#))))