X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-error.lisp;h=e43114621314c8ad5d7a904e79258ef7b973481a;hb=52f174450abacd81963073b71af2ce7b62908178;hp=85b2215fb2867bfaafdd3064e8aacedc8e9f9876;hpb=b93cd5f21f8161783f8d40fb6ade28aa04ecf193;p=sbcl.git

diff --git a/src/code/target-error.lisp b/src/code/target-error.lisp
index 85b2215..e431146 100644
--- a/src/code/target-error.lisp
+++ b/src/code/target-error.lisp
@@ -161,6 +161,7 @@ with that condition (or with no condition) will be returned."
   (apply #'format *query-io*
          (if promptp prompt-control "~&Type a form to be evaluated: ")
          prompt-args)
+  (finish-output *query-io*)
   (list (eval (read *query-io*))))
 
 (defun check-type-error (place place-value type type-string)