From d76c3357ad8bf509df95760450d40964d91316b9 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 28 Jul 1992 22:13:07 +0000 Subject: [PATCH] If genesis isn't bound, load new-genesis on the hppa, pmax, and x86. --- tools/worldbuild.lisp | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp index 24bbc26af..3a5fbe998 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.14 1992/07/28 22:08:19 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.15 1992/07/28 22:13:07 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -16,7 +16,10 @@ (in-package "LISP") -(unless (fboundp 'genesis) (load "target:compiler/generic/genesis")) +(unless (fboundp 'genesis) + (if (c:target-featurep '(or :hppa :x86 :pmax)) + (load "target:compiler/generic/new-genesis") + (load "target:compiler/generic/genesis"))) (defparameter lisp-files `(,@(when (c:backend-featurep :pmax) -- GitLab