Add :PRINT option to LOAD

Author: davazp

src/load.lisp

@@ -27,8 +27,9 @@
 ;;;
 
 (defvar *load-verbose* t)
+(defvar *load-print* nil)
 
-(defun load (name &key (verbose *load-verbose*) (sync :maybe))
+(defun load (name &key (verbose *load-verbose*) (print *load-print*) (sync :maybe))
   (let ((ext (filename-extension name)))
     ;; Try to guess extension
     (unless ext
@@ -43,13 +44,17 @@
        (let ((*package* *package*))
 
          (when *load-verbose*
-           (format t "Loading ~a~%" name))
+           (format t "; Loading ~a~%" name))
 
          (with-open-file (stream name :direction :input :sync sync)
            (let ((eof (gensym "LOAD")))
              (loop
                (let ((form (read stream nil eof)))
                  (when (eq form eof) (return))
+
+                 (when *load-verbose*
+                   (format t "; ~S~%" name))
+
                  (eval form))))))
        t)