;; CCL:
? (loop repeat 2 do (princ "> ") (read-line))
> see?
> this one works better.
NIL


;; SBCL:
* (loop repeat 2 do (princ "> ") (read-line))
sbcl
example
> >
NIL