编辑代码

(defun our-toplevel ()
    (do ()
        (nil)
        (format t "~%> ")
        (print (eval (read)))
    )
)

(our-toplevel)