(loop (let ((a (read))) (when (= a 42) (return)) (princ (format nil "~D~%" a))))
[quote="noix"]
[/quote]
(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))
(do ((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?