Skip to content
Snippets Groups Projects
Commit 3b6a7b9a authored by wlott's avatar wlott
Browse files

Don't SETQ *LOAD-VERBOSE*, because the default value is now T. Moved the

parsed-vop trashing stuff here from loadbackend, so we can load backends
without lossing the parsed-vop info without having to bash on *features*.
parent 6805368b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.43 1992/02/24 06:31:32 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.44 1992/02/27 06:03:38 wlott Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -60,9 +60,6 @@ ...@@ -60,9 +60,6 @@
(force-output) (force-output)
(set '*lisp-implementation-version* (read-line)) (set '*lisp-implementation-version* (read-line))
;;; Keep us entertained...
(setq *load-verbose* t)
;;; Load random code sources. ;;; Load random code sources.
(load "code:format-time") (load "code:format-time")
...@@ -110,6 +107,9 @@ ...@@ -110,6 +107,9 @@
:name "Compiler") :name "Compiler")
(rest *info-environment*))) (rest *info-environment*)))
(load "c:loadbackend.lisp") (load "c:loadbackend.lisp")
;; If we want a small core, blow away the meta-compile time VOP info.
#+small (setf (c::backend-parsed-vops c:*backend*)
(make-hash-table :test #'eq))
(setq *info-environment* (setq *info-environment*
(list* (make-info-environment) (list* (make-info-environment)
(compact-info-environment (compact-info-environment
...@@ -181,7 +181,6 @@ ...@@ -181,7 +181,6 @@
(setq +++ nil) (setq +++ nil)
(setq *** nil) (setq *** nil)
(setq /// nil) (setq /// nil)
(setq *load-verbose* nil)
(setq *info-environment* (setq *info-environment*
(list* (make-info-environment :name "Working") (list* (make-info-environment :name "Working")
(compact-info-environment (first *info-environment*) (compact-info-environment (first *info-environment*)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment