- ;; FIXME: Calling fresh-line before a result ensures the result starts
- ;; on a newline, but it usually generates an empty line.
- ;; One solution would be to have the newline's entered on the
- ;; input stream inform the output stream that the column should be
- ;; reset to the beginning of the line.
- (fresh-line *standard-output*)
- (prin1 result *standard-output*)))))
-
-(defun repl-fun (noprint)
- (repl :noprint noprint :break-level 0))
-
-(when (boundp 'sb-impl::*repl-fun*)
- (setq sb-impl::*repl-fun* #'repl-fun))
+ ;; FIXME: Calling fresh-line before a result ensures the result starts
+ ;; on a newline, but it usually generates an empty line.
+ ;; One solution would be to have the newline's entered on the
+ ;; input stream inform the output stream that the column should be
+ ;; reset to the beginning of the line.
+ (fresh-line *standard-output*)
+ (prin1 result *standard-output*)))))