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

Fixed the $features stuff to add each feature to *features* instead of

adding a list of $features to *features*.  Fixed the SHADOW stuff to
build a $src list of strings instead of a string with spaces in it.
parent ce9b1a1c
No related branches found
No related tags found
No related merge requests found
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# compile-all -- script to compile everything # compile-all -- script to compile everything
# #
# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.8 1992/03/03 10:42:17 wlott Exp $ # $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.9 1992/03/04 09:55:21 wlott Exp $
set features = () set features = ()
set misfeatures = () set misfeatures = ()
...@@ -135,7 +135,7 @@ set thissrc = /afs/cs/project/clisp/src/$subdir ...@@ -135,7 +135,7 @@ set thissrc = /afs/cs/project/clisp/src/$subdir
nother_source: nother_source:
set src = ($src $thissrc/) set src = ($src \"$thissrc/\")
if (-e $thissrc/FEATURES) then if (-e $thissrc/FEATURES) then
set tmp = (`cat $thissrc/FEATURES`) set tmp = (`cat $thissrc/FEATURES`)
...@@ -196,11 +196,11 @@ echo "Compiling setup and bootstrap ..." ...@@ -196,11 +196,11 @@ echo "Compiling setup and bootstrap ..."
$lisp -noinit -eval '(eval (read))' << EOF $lisp -noinit -eval '(eval (read))' << EOF
(progn (progn
(setf *features* (setf *features*
(set-difference (list* '($features) *features*) '($misfeatures))) (set-difference (list* $features *features*) '($misfeatures)))
(setf (search-list "target:") '("$dest/" "$src")) (setf (search-list "target:") '("$dest/" $src))
(setq *compile-verbose* nil *compile-print* nil) (setq *compile-verbose* nil *compile-print* nil)
(load "target:tools/setup") (load "target:tools/setup" :if-source-newer :load-source)
(comf "target:tools/setup") (comf "target:tools/setup" :load t)
(when (probe-file "${bootstrap}.lisp") (comf "$bootstrap")) (when (probe-file "${bootstrap}.lisp") (comf "$bootstrap"))
(quit)) (quit))
EOF EOF
...@@ -223,8 +223,8 @@ while ($#sysinfo > 0) ...@@ -223,8 +223,8 @@ while ($#sysinfo > 0)
$lisp -noinit -eval '(eval (read))' << EOF $lisp -noinit -eval '(eval (read))' << EOF
(progn (progn
(setf *features* (setf *features*
(set-difference (list* '($features) *features*) '($misfeatures))) (set-difference (list* $features *features*) '($misfeatures)))
(setf (search-list "target:") '("$dest/" "$src")) (setf (search-list "target:") '("$dest/" $src))
(setq *compile-verbose* nil *compile-print* nil) (setq *compile-verbose* nil *compile-print* nil)
(load "target:tools/setup") (load "target:tools/setup")
(load "$bootstrap" :if-does-not-exist nil) (load "$bootstrap" :if-does-not-exist nil)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment