- ;; FIXME: Much of this interactive-EVAL logic is shared with
- ;; the main REPL EVAL and with the debugger EVAL. The code should
- ;; be shared explicitly.
- (setf /// // // / / result-list)
- (setf +++ ++ ++ + + - - command)
- (setf *** ** ** * * (car /))
- (format stream "~&~{~S~%~}" /)))