From 400ecf111d58bd541c2cad31e2dc5259b55302c3 Mon Sep 17 00:00:00 2001 From: hallgren <hallgren> Date: Wed, 22 Jun 1994 16:21:15 +0000 Subject: [PATCH] Fix the sgi update... --- tools/worldload.lisp | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/tools/worldload.lisp b/tools/worldload.lisp index 8883f0c1d..ae33bce12 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.77 1994/05/22 20:25:56 hallgren Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/worldload.lisp,v 1.78 1994/06/22 16:21:15 hallgren Exp $ ;;; ;;; ********************************************************************** ;;; @@ -44,22 +44,20 @@ (setf (ext:search-list "code:") '("target:code/")) (setf (ext:search-list "c:") '("target:compiler/")) (setf (ext:search-list "vm:") - '(#+pmax "c:mips/" + '(#+(or pmax sgi) "c:mips/" #+sparc "c:sparc/" #+rt "c:rt/" #+hppa "c:hppa/" #+x86 "c:x86/" #+alpha "c:alpha/" - #+sgi "c:mips/" "c:generic/")) (setf (ext:search-list "assem:") - '(#+pmax "target:assembly/mips/" + '(#+(or pmax sgi) "target:assembly/mips/" #+sparc "target:assembly/sparc/" #+rt "target:assembly/rt/" #+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/")) -- GitLab