From: Alex Klinkhamer <grencez@gmail.com>
Date: Mon, 18 Aug 2008 17:38:01 +0000 (-0400)
Subject: +REPL prompt fixed for SBCL
X-Git-Url: https://repo.or.cz/w/lineal.git/commitdiff_plain/e3e4b3d1b5ac994a3ec74929c606e7e683ab0327

+REPL prompt fixed for SBCL
---

diff --git a/src/shell/main.lisp b/src/shell/main.lisp
index 1c75f29..f66869b 100644
--- a/src/shell/main.lisp
+++ b/src/shell/main.lisp
@@ -7,7 +7,8 @@
   (format t "~&Welcome to Lineal, ")
   (format t "using ~:[prefix~;infix~] notation." infixp)
   (format t "~%To leave, use exit or quit.")
-  (format t "~%> "))
+  (format t "~%> ")
+  (force-output))
 
 ;;; Main loop for shell.
 (defun shell-repl ()
@@ -22,7 +23,8 @@
           (process-input-from-string
             str infixp)
           *standard-output*)
-        (format t "~&> ")) 
+        (format t "~&> ")
+        (force-output)) 
       (end-of-file (condit)
                    (declare (ignore condit))))))