X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fearly-fasl.lisp;h=11b57b43ad079b9d5d2840b59a8a873e9608f442;hb=e801083c864fa8f11d79be53a5d95584c960f2b3;hp=4f80e728f267927df9117f6a247c6bd48bc7e8db;hpb=ff92598854bf7cae8d57fe49cef4d9a98e1ab345;p=sbcl.git

diff --git a/src/code/early-fasl.lisp b/src/code/early-fasl.lisp
index 4f80e72..11b57b4 100644
--- a/src/code/early-fasl.lisp
+++ b/src/code/early-fasl.lisp
@@ -144,9 +144,6 @@
 	      :initial-element (lambda ()
 				 (error "corrupt fasl file: losing FOP"))))
 
-;;;; other miscellaneous loading-related stuff
-
-
 ;;;; variables
 
 (defvar *load-depth* 0
@@ -158,15 +155,4 @@
 (defvar *fasl-input-stream*)
 (declaim (type ansi-stream *fasl-input-stream*))
 
-(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")
-
 (defvar *load-code-verbose* nil)