* (defun test2 ()
(read)
(format t "test> ")
)

TEST2
* (defun test3 ()
(format t "test> ")
(read)
)

TEST3
*

どっちも同じ挙動になるんだけど(sbcl) 同じ事にぶち当たって解決した人は
いません？