From a5ddfcd4baa8033cce8e4299e2e2ce722e57cd74 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 28 May 1992 01:06:03 +0000 Subject: [PATCH] Switched to using BACKEND-FEATUREP instead of #+ and STRING= on the backend name. --- tools/worldbuild.lisp | 30 +++++++++++++++++------------- 1 file changed, 17 insertions(+), 13 deletions(-) diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp index 945070c53..01e7ab21e 100644 --- a/tools/worldbuild.lisp +++ b/tools/worldbuild.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.11 1992/02/15 13:04:07 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.12 1992/05/28 01:06:03 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -19,19 +19,19 @@ (unless (fboundp 'genesis) (load "target:compiler/generic/genesis")) (defparameter lisp-files - `(,@(when (string= (c:backend-name c:*backend*) "PMAX") + `(,@(when (c:backend-featurep :pmax) '("target:assembly/mips/assem-rtns.assem" "target:assembly/mips/array.assem" "target:assembly/mips/bit-bash.assem" "target:assembly/mips/arith.assem" "target:assembly/mips/alloc.assem")) - ,@(when (string= (c:backend-name c:*backend*) "SPARC") + ,@(when (c:backend-featurep :sparc) '("target:assembly/sparc/assem-rtns.assem" "target:assembly/sparc/array.assem" "target:assembly/sparc/bit-bash.assem" "target:assembly/sparc/arith.assem" "target:assembly/sparc/alloc.assem")) - ,@(when (string= (c:backend-name c:*backend*) "RT") + ,@(when (c:backend-featurep :rt) '("target:assembly/rt/assem-rtns.assem" "target:assembly/rt/array.assem" "target:assembly/rt/arith.assem" @@ -82,9 +82,11 @@ "target:code/c-call" "target:code/sap" "target:code/unix" - #+mach "target:code/mach" - #+mach "target:code/mach-os" - #+sunos "target:code/sunos-os" + ,@(when (c:backend-featurep :mach) + '("target:code/mach" + "target:code/mach-os")) + ,@(when (c:backend-featurep :sunos) + '("target:code/sunos-os")) "target:code/serve-event" "target:code/stream" "target:code/fd-stream" @@ -96,11 +98,11 @@ "target:code/backq" "target:code/sharpm" "target:code/load" - ,@(when (string= (c:backend-name c:*backend*) "PMAX") + ,@(when (c:backend-featurep :pmax) '("target:code/pmax-vm")) - ,@(when (string= (c:backend-name c:*backend*) "SPARC") + ,@(when (c:backend-featurep :sparc) '("target:code/sparc-vm")) - ,@(when (string= (c:backend-name c:*backend*) "RT") + ,@(when (c:backend-featurep :rt) '("target:code/rt-vm")) "target:code/signal" @@ -111,12 +113,14 @@ )) (setf *genesis-core-name* - #-(and sparc mach) "target:ldb/kernel.core" - #+(and sparc mach) "/usr/tmp/kernel.core") + (if (c:backend-featurep '(and :sparc :mach)) + "/usr/tmp/kernel.core" + "target:ldb/kernel.core")) (setf *genesis-c-header-name* "target:ldb/lisp.h") (setf *genesis-map-name* "target:ldb/lisp.map") (setf *genesis-symbol-table* "target:ldb/ldb.map") -#+sunos (setf *target-page-size* 8192) +(when (c:backend-featurep :sunos) + (setf *target-page-size* 8192)) (genesis lisp-files) -- GitLab