Skip to content
Snippets Groups Projects
Commit 7614f04a authored by pmai's avatar pmai
Browse files

Change the save-lisp to respect the target: search-list, so that the

final core is now saved to target:lisp/lisp.core, instead of the
current directory.
parent b4ab6c6c
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.94 2001/12/11 00:27:31 pmai Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.95 2002/01/28 20:00:30 pmai Exp $
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -171,6 +171,10 @@ ...@@ -171,6 +171,10 @@
#-no-compiler (defvar *target-sl*) #-no-compiler (defvar *target-sl*)
(setq *target-sl* (search-list "target:")) (setq *target-sl* (search-list "target:"))
#+no-compiler (proclaim '(special *target-core-name*))
#-no-compiler (defvar *target-core-name*)
(setq *target-core-name* (unix-namestring "target:lisp/lisp.core" nil))
;;; Don't include the search lists used for loading in the resultant core. ;;; Don't include the search lists used for loading in the resultant core.
;;; ;;;
(lisp::clear-all-search-lists) (lisp::clear-all-search-lists)
...@@ -228,7 +232,7 @@ ...@@ -228,7 +232,7 @@
(set-difference (set-difference
*features* *features*
'(:runtime :no-compiler :no-pcl :no-clx :no-clm :no-hemlock)))) '(:runtime :no-compiler :no-pcl :no-clx :no-clm :no-hemlock))))
(save-lisp "lisp.core" (save-lisp *target-core-name*
:root-structures :root-structures
#-(or runtime no-hemlock) `(ed ,hi::*global-command-table*) #-(or runtime no-hemlock) `(ed ,hi::*global-command-table*)
#+(or runtime no-hemlock) () #+(or runtime no-hemlock) ()
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment