(cl:in-package #:sicl-extrinsic-environment)

(defun load-file (filename environment)
  (format *trace-output* "Loading file ~a~%" filename)
  (load-source-with-environments
   (asdf:system-relative-pathname :sicl-extrinsic-environment filename)
   environment
   environment))

(cl:in-package #:sicl-extrinsic-environment)

(defun load-file (filename environment)
  (format *trace-output* "Loading file ~a~%" filename)
  (finish-output *trace-output*)
  (load-source-with-environments
   (asdf:system-relative-pathname :sicl-extrinsic-environment filename)
   environment
   environment))

Call FINISH-OUTPUT after writing trace message.
Call FINISH-OUTPUT after writing trace message.

vtomole/SICL,clasp-developers/SICL,clasp-developers/SICL,clasp-developers/SICL,clasp-developers/SICL,vtomole/SICL,vtomole/SICL,vtomole/SICL