X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-misc.lisp;h=4203f4f2301a93a9ef9c6fd5c41c0ad2d749429c;hb=fdc38abbd1ef5b211c9db03c72e1730284c6edbb;hp=7b07e83a263f72fc6009e48da5321aaf8030373e;hpb=c2fd998cbeea4a2049e8b77bf36c6e478ebb7d44;p=sbcl.git

diff --git a/src/code/target-misc.lisp b/src/code/target-misc.lisp
index 7b07e83..4203f4f 100644
--- a/src/code/target-misc.lisp
+++ b/src/code/target-misc.lisp
@@ -223,3 +223,16 @@ the file system."
 
 (defun %byte-blt (src src-start dst dst-start dst-end)
   (%byte-blt src src-start dst dst-start dst-end))
+
+;;;; some *LOAD-FOO* variables
+
+(defvar *load-print* nil
+  #!+sb-doc
+  "the default for the :PRINT argument to LOAD")
+
+(defvar *load-verbose* nil
+  ;; Note that CMU CL's default for this was T, and ANSI says it's
+  ;; implementation-dependent. We choose NIL on the theory that it's
+  ;; a nicer default behavior for Unix programs.
+  #!+sb-doc
+  "the default for the :VERBOSE argument to LOAD")