Solution to TEST in Lisp

[quote="noix"]

(loop
 (let ((a (read)))
   (when (= a 42) (return))
   (princ (format nil "~D~%" a))))

[/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?