Skip to content
Snippets Groups Projects
Commit d76c3357 authored by wlott's avatar wlott
Browse files

If genesis isn't bound, load new-genesis on the hppa, pmax, and x86.

parent 33f54a8f
No related branches found
No related tags found
No related merge requests found
......@@ -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)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment