A simple REPL

Here’s a very simple REPL that includes the *, **, and *** variables:

(defun repl ()
  (princ "> ")
  (loop 
    (shiftf *** ** * (eval (read))) 
    (format t "~a~&> " *)))

Provided by Stas Boukarev.