Hoist tests from scan_weak_pointers() into scav_weak_pointer()
[sbcl.git] / tests / circ-tree-test.lisp
blob2189186be0b5cf1cdf30d954873cc75a20301ccf
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#))))