From b945819a31c6b03c134aed848b3b57675817e4b9 Mon Sep 17 00:00:00 2001
From: gerd <gerd>
Date: Mon, 17 Feb 2003 14:19:52 +0000
Subject: [PATCH] 	* bootfiles/18d/boot10.lisp: Boot file for the
 new/changed static 	symbols LISP::*CMUCL-LIB* and LISP::*CMUCL-CORE-PATH*
 (CMUCL_LIB 	and CMUCL_CORE_PATH in the C runtime).  Load
 <vmdir>/parms.lisp 	into the compiling Lisp.

---
 bootfiles/18d/boot10.lisp | 34 ++++++++++++++++++++++++++++++++++
 1 file changed, 34 insertions(+)
 create mode 100644 bootfiles/18d/boot10.lisp

diff --git a/bootfiles/18d/boot10.lisp b/bootfiles/18d/boot10.lisp
new file mode 100644
index 000000000..974fa4def
--- /dev/null
+++ b/bootfiles/18d/boot10.lisp
@@ -0,0 +1,34 @@
+;;;;
+;;;; Boot file for the new/changed static symbols LISP::*CMUCL-LIB*
+;;;; and LISP::*CMUCL-CORE-PATH* (CMUCL_LIB and CMUCL_CORE_PATH in
+;;;; the C runtime).
+;;;;
+
+;;;
+;;; This is the same function as in tools/setup.lisp.  It is here
+;;; because setup.lisp is loaded after bootstrap.lisp in pmai's
+;;; build scripts.
+;;;
+(defun vmdir (f)
+  (merge-pathnames
+   (make-pathname :directory nil :defaults f)
+   (merge-pathnames
+    (cond ((c:target-featurep :pmax) "mips/")
+	  ((c:target-featurep :rt) "rt/")
+	  ((c:target-featurep :hppa) "hppa/")
+	  ((c:target-featurep :sparc) "sparc/")
+	  ((c:target-featurep :x86) "x86/")
+	  ((c:target-featurep :alpha) "alpha/")
+	  ((c:target-featurep :sgi) "mips/")
+	  ((c:target-featurep :ppc) "ppc/")
+	  (t
+	   (error "What machine is this?")))
+    (make-pathname :directory (pathname-directory f)))))
+
+;;;
+;;; Load parms.lisp into the compiling Lisp so that it writes the new
+;;; symbols to internals.h during genesis.
+;;;
+(load (vmdir "target:compiler/parms"))
+
+;;;; end of boot10.lisp
-- 
GitLab