Changeset 5308

Timestamp:

Oct 7, 2006, 10:11:46 AM (18 years ago)

Author:

Gary Byers

Message:

PROCESS-EXIT-APPLICATION: flush *stdout* here.

File:

• trunk/ccl/level-1/l1-processes.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-processes.lisp

@@ -569 +569 @@
     (prepare-to-quit)
     (%set-toplevel thunk)
+    (fresh-line *stdout*)
+    (finish-output *stdout*)
     (toplevel)))