- (/show0 "about to enter inner LOOP in TOPLEVEL-REPL")
- (loop ; FIXME: Do we need this inner LOOP?
- ;; FIXME: It seems bad to have GC behavior depend on scrubbing
- ;; the control stack before each interactive command. Isn't
- ;; there some way we can convince the GC to just ignore
- ;; dead areas of the control stack, so that we don't need to
- ;; rely on this half-measure?
- (scrub-control-stack)
- (unless noprint
- (fresh-line)
- (princ (if (functionp *prompt*)
- (funcall *prompt*)
- *prompt*))
- (flush-standard-output-streams))
- (let ((form (read *standard-input* nil eof-marker)))
- (if (eq form eof-marker)
- (quit)
- (let ((results
- (multiple-value-list (interactive-eval form))))
- (unless noprint
- (dolist (result results)
- (fresh-line)
- (prin1 result)))))))))))))
+ (repl noprint))))))
+
+(defun repl (noprint)
+ (/show0 "entering REPL")
+ (let ((eof-marker (cons :eof nil)))
+ (loop
+ ;; FIXME: It seems bad to have GC behavior depend on scrubbing the
+ ;; control stack before each interactive command. Isn't there some
+ ;; way we can convince the GC to just ignore dead areas of the
+ ;; control stack, so that we don't need to rely on this
+ ;; half-measure?
+ (/show0 "at head of LOOP")
+ (scrub-control-stack)
+ (/show0 "back from SCRUB-CONTROL-STACK")
+ (unless noprint
+ (fresh-line)
+ (/show0 "back from FRESH-LINE")
+ (princ (if (functionp *prompt*)
+ (funcall *prompt*)
+ *prompt*))
+ (/show0 "back from PRINC")
+ (flush-standard-output-streams)
+ (/show0 "back from FLUSH-STANDARD-OUTPUT-STREAMS"))
+ (let ((form (read *standard-input* nil eof-marker)))
+ (/show0 "back from READ")
+ (if (eq form eof-marker)
+ (quit)
+ (let ((results (multiple-value-list (interactive-eval form))))
+ (unless noprint
+ (dolist (result results)
+ (fresh-line)
+ (prin1 result)))))))))