Added missing finish-output.

Pascal J. Bourguignon [2014-05-27 21:18]
Added missing finish-output.
Filename
common-lisp/lisp/stepper-functions.lisp
diff --git a/common-lisp/lisp/stepper-functions.lisp b/common-lisp/lisp/stepper-functions.lisp
index 31f684b..cdbc574 100644
--- a/common-lisp/lisp/stepper-functions.lisp
+++ b/common-lisp/lisp/stepper-functions.lisp
@@ -380,7 +380,7 @@ RETURN: VALUE
                 "Trace (t)" "Function (f)" "Run (r)"
                 "List (l)" "Eval (e)"  "Debugger (d)"
                 "Abort (a, q)")))
-  (let ((answer (string-trim " " (read-line *query-io*))))
+  (let ((answer (string-trim " " (progn (finish-output *query-io*) (read-line *query-io*)))))
     (cond
       ((member answer '("" "s" "si") :test (function string-equal))
        :step-into)
ViewGit