Skip to content
Snippets Groups Projects
Commit 400ecf11 authored by hallgren's avatar hallgren
Browse files

Fix the sgi update...

parent b06befbe
No related branches found
No related tags found
No related merge requests found
...@@ -6,7 +6,7 @@ ...@@ -6,7 +6,7 @@
;;; If you want to use this code or any part of CMU Common Lisp, please contact ;;; If you want to use this code or any part of CMU Common Lisp, please contact
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; 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 @@ ...@@ -44,22 +44,20 @@
(setf (ext:search-list "code:") '("target:code/")) (setf (ext:search-list "code:") '("target:code/"))
(setf (ext:search-list "c:") '("target:compiler/")) (setf (ext:search-list "c:") '("target:compiler/"))
(setf (ext:search-list "vm:") (setf (ext:search-list "vm:")
'(#+pmax "c:mips/" '(#+(or pmax sgi) "c:mips/"
#+sparc "c:sparc/" #+sparc "c:sparc/"
#+rt "c:rt/" #+rt "c:rt/"
#+hppa "c:hppa/" #+hppa "c:hppa/"
#+x86 "c:x86/" #+x86 "c:x86/"
#+alpha "c:alpha/" #+alpha "c:alpha/"
#+sgi "c:mips/"
"c:generic/")) "c:generic/"))
(setf (ext:search-list "assem:") (setf (ext:search-list "assem:")
'(#+pmax "target:assembly/mips/" '(#+(or pmax sgi) "target:assembly/mips/"
#+sparc "target:assembly/sparc/" #+sparc "target:assembly/sparc/"
#+rt "target:assembly/rt/" #+rt "target:assembly/rt/"
#+hppa "target:assembly/hppa/" #+hppa "target:assembly/hppa/"
#+x86 "target:assembly/x86/" #+x86 "target:assembly/x86/"
#+alpha "target:assembly/alpha/" #+alpha "target:assembly/alpha/"
#+sgi "c:mips/"
"target:assembly/")) "target:assembly/"))
(setf (ext:search-list "hem:") '("target:hemlock/")) (setf (ext:search-list "hem:") '("target:hemlock/"))
(setf (ext:search-list "clx:") '("target:clx/")) (setf (ext:search-list "clx:") '("target:clx/"))
......
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