From 7614f04ae740f8999a70dad8e732d2023a5c8ed2 Mon Sep 17 00:00:00 2001
From: pmai <pmai>
Date: Mon, 28 Jan 2002 20:00:30 +0000
Subject: [PATCH] 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.

---
 tools/worldload.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/tools/worldload.lisp b/tools/worldload.lisp
index 66bc07c93..5b5bdd475 100644
--- a/tools/worldload.lisp
+++ b/tools/worldload.lisp
@@ -6,7 +6,7 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; 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 @@
 #-no-compiler (defvar *target-sl*)
 (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.
 ;;;
 (lisp::clear-all-search-lists)
@@ -228,7 +232,7 @@
 	 (set-difference
 	  *features* 
 	  '(:runtime :no-compiler :no-pcl :no-clx :no-clm :no-hemlock))))
-  (save-lisp "lisp.core"
+  (save-lisp *target-core-name*
              :root-structures
              #-(or runtime no-hemlock) `(ed ,hi::*global-command-table*)
              #+(or runtime no-hemlock) ()
-- 
GitLab