В результате отладки своего проекта наткнулся на вот такое "нихрена себе!":
CL-USER> (defmacro broken ()
(let ((x (gensym)))
`(format nil "x = ~a" ',x)))
BROKEN
CL-USER> (values
(broken)
(let (not-used)
(broken))
(let (not-used)
(broken))
(let ()
(broken)))
"x = G10330"
"x = G0"
"x = G0"
"x = G10331"SBCL собран из trunk.
(
Read more... )