diff --git a/tools/worldbuild.lisp b/tools/worldbuild.lisp index 926dbc2c031d39f704bd2ca3e75116f3c19e7cd9..acb5a7ac54dcd3bb471110dc19203d8e6ddf926f 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.30 1993/08/31 13:46:57 hallgren Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldbuild.lisp,v 1.31 1994/05/22 20:29:15 hallgren Exp $") ;;; ;;; ********************************************************************** ;;; @@ -50,6 +50,11 @@ "target:assembly/alpha/array.assem" "target:assembly/alpha/arith.assem" "target:assembly/alpha/alloc.assem")) + ,@(when (c:backend-featurep :sgi) + '("target:assembly/mips/assem-rtns.assem" + "target:assembly/mips/array.assem" + "target:assembly/mips/arith.assem" + "target:assembly/mips/alloc.assem")) "target:code/type-boot" "target:code/fdefinition" @@ -132,6 +137,8 @@ '("target:code/x86-vm")) ,@(when (c:backend-featurep :alpha) '("target:code/alpha-vm")) + ,@(when (c:backend-featurep :sgi) + '("target:code/sgi-vm")) "target:code/signal" "target:code/interr" diff --git a/tools/worldload.lisp b/tools/worldload.lisp index 6b65e52942d5e2838819c1422cc654904c3b6195..8883f0c1da12924be7e83a8808c44cc5b65224e3 100644 --- a/tools/worldload.lisp +++ b/tools/worldload.lisp @@ -6,7 +6,7 @@ ;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.76 1994/02/14 15:12:17 ram Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.77 1994/05/22 20:25:56 hallgren Exp $ ;;; ;;; ********************************************************************** ;;; @@ -50,6 +50,7 @@ #+hppa "c:hppa/" #+x86 "c:x86/" #+alpha "c:alpha/" + #+sgi "c:mips/" "c:generic/")) (setf (ext:search-list "assem:") '(#+pmax "target:assembly/mips/" @@ -58,6 +59,7 @@ #+hppa "target:assembly/hppa/" #+x86 "target:assembly/x86/" #+alpha "target:assembly/alpha/" + #+sgi "c:mips/" "target:assembly/")) (setf (ext:search-list "hem:") '("target:hemlock/")) (setf (ext:search-list "clx:") '("target:clx/"))