Skip to content
Snippets Groups Projects
Commit 5dcaf8d9 authored by hallgren's avatar hallgren
Browse files

Fixed for the alpha.

parent 6faf63da
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.13 1993/08/19 13:22:42 ram Exp $ # $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/compile-all,v 1.14 1994/07/26 17:37:17 hallgren Exp $
set features = () set features = ()
set misfeatures = () set misfeatures = ()
...@@ -201,7 +201,7 @@ if ($?LISP) then ...@@ -201,7 +201,7 @@ if ($?LISP) then
endif endif
echo "Compiling setup and bootstrap ..." echo "Compiling setup and bootstrap ..."
$lisp -noinit -eval '(eval (read))' << EOF sed -e 's/\\//g' << EOF | $lisp -noinit -eval '(eval (read))'
(progn (progn
(when (find-package "INTERFACE") (when (find-package "INTERFACE")
(set (intern "*INTERFACE-STYLE*" "INTERFACE") :tty)) (set (intern "*INTERFACE-STYLE*" "INTERFACE") :tty))
...@@ -232,7 +232,7 @@ while ($#sysinfo > 0) ...@@ -232,7 +232,7 @@ while ($#sysinfo > 0)
if ($systems =~ *${this_system}* || \ if ($systems =~ *${this_system}* || \
($systems == "" && $nosystems !~ *${this_system}*)) then ($systems == "" && $nosystems !~ *${this_system}*)) then
echo "Compiling $this_system ..." echo "Compiling $this_system ..."
$lisp -noinit -eval '(eval (read))' << EOF sed -e 's/\\//g' << EOF | $lisp -noinit -eval '(eval (read))'
(progn (progn
(when (find-package "INTERFACE") (when (find-package "INTERFACE")
(set (intern "*INTERFACE-STYLE*" "INTERFACE") :tty)) (set (intern "*INTERFACE-STYLE*" "INTERFACE") :tty))
......
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