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