My problem is that the code below behaves differently in sbcl and clisp
Code: Select all
(defun say-hello ()
(princ "Please type your name:")
(let ((name (read-line)))
(princ "Nice to meet you, ")
(princ name)))
Code: Select all
[2]> (say-hello)
Please type your name:asd
Nice to meet you, asd
"asd"
Code: Select all
* (say-hello)
asd
Please type your name:Nice to meet you, asd
"asd"
/Igor