Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv13992/src/code
Modified Files:
early-fasl.lisp target-misc.lisp
Log Message:
0.8.12.22: Minor changes to make SBCL build itself cleanly with
package locks enabled.
Index: early-fasl.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/early-fasl.lisp,v
retrieving revision 1.46
retrieving revision 1.47
diff -u -d -r1.46 -r1.47
--- early-fasl.lisp 29 Jun 2004 08:50:58 -0000 1.46
+++ early-fasl.lisp 5 Jul 2004 02:30:42 -0000 1.47
@@ -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)
Index: target-misc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/target-misc.lisp,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- target-misc.lisp 8 Jun 2004 11:38:42 -0000 1.18
+++ target-misc.lisp 5 Jul 2004 02:30:42 -0000 1.19
@@ -223,3 +223,16 @@
(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")
|