(let ((a (read)))
(when (= a 42) (return))
(princ (format nil "~D~%" a))))
(read) contains the whole lisp processor! It is extremely slow solution. Give me a break, you give non-lisp users an odd.
(loop for l = (read-line)
for n = (parse-integer l)
until (= n 42) do (format t "~D~%" n))
((x (read-line) (read-line)))
((string= x "42"))
(format t "~a~&" x))
huh? These programs looks correct. And AC with clisp, but runtime error with sbcl... Why is that?