repo.or.cz
/
sbcl
/
tcr.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.16.11: ANY-REG is good for pritimitive-type T on x86/x86-64
[sbcl/tcr.git]
/
tests
/
bug-417.lisp
blob
87e3a37c55163669d4c455f4f2a7553cb51a76de
1
;;; bug 417: toplevel nil confusing source-path logic
2
nil
3
(
defmethod
frob
((
package
package
)
stream
)
4
(
if
(
string
= (
package-name
package
)
"FOO"
)
5
(
pprint-logical-block
(
stream
nil
))
6
(
print-unreadable-object
(
package
stream
))))