Skip to content
Snippets Groups Projects
Commit 8edcdf03 authored by wlott's avatar wlott
Browse files

Added some calls to force-output after the calls to format in

operate-on-system.
parent cf558533
No related branches found
No related tags found
No related merge requests found
......@@ -410,9 +410,11 @@ and load your system with:
(transformations ()))
(labels ((load-source (name pathname)
(format t "~&Loading source of ~A..." name)
(force-output)
(or print-only (load pathname)))
(load-binary (name pathname)
(format t "~&Loading binary of ~A..." name)
(force-output)
(or print-only (load pathname)))
(load-module (m)
(let* ((name (module-name m))
......@@ -421,6 +423,7 @@ and load your system with:
(load-binary name binary)))
(compile-module (m)
(format t "~&Compiling ~A..." (module-name m))
(force-output)
(unless print-only
(let ((name (module-name m)))
(compile-file (make-source-pathname name)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment