+REPL prompt fixed for SBCL
authorAlex Klinkhamer <grencez@gmail.com>
Mon, 18 Aug 2008 17:38:01 +0000 (18 13:38 -0400)
committerAlex Klinkhamer <grencez@gmail.com>
Mon, 18 Aug 2008 17:38:01 +0000 (18 13:38 -0400)
src/shell/main.lisp

index 1c75f29..f66869b 100644 (file)
@@ -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))))))