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

Changed to use new startup code.

parent dc938a52
No related branches found
No related tags found
No related merge requests found
#!/bin/csh -fx #!/bin/csh -fx
# #
# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.3 1992/05/27 18:13:12 wlott Exp $ # $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/inst-lisp,v 1.4 1992/09/08 22:28:25 wlott Exp $
# #
# Utility for installing an alpha core. # Utility for installing an alpha core.
# #
...@@ -15,5 +15,5 @@ set src = /afs/cs/project/clisp/build/@sys/$subdir ...@@ -15,5 +15,5 @@ set src = /afs/cs/project/clisp/build/@sys/$subdir
set dst = /afs/cs/project/clisp-3/alphas/@sys set dst = /afs/cs/project/clisp-3/alphas/@sys
rm -f $dst/lisp $dst/lisp.core rm -f $dst/lisp $dst/lisp.core
cp -p $src/ldb/ldb $dst/lisp cp -p $src/lisp/lisp $dst/lisp
cp -p lisp.core $dst/lisp.core cp -p lisp.core $dst/lisp.core
...@@ -2,7 +2,7 @@ ...@@ -2,7 +2,7 @@
# #
# mk-lisp -- script for building full lisp cores. # mk-lisp -- script for building full lisp cores.
# #
# $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/mk-lisp,v 1.14 1992/03/24 00:42:35 wlott Exp $ # $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/tools/Attic/mk-lisp,v 1.15 1992/09/08 22:28:09 wlott Exp $
if ($#argv) then if ($#argv) then
if ($argv[1] == "-now") then if ($argv[1] == "-now") then
...@@ -45,8 +45,8 @@ endif ...@@ -45,8 +45,8 @@ endif
set dest = $root/build/@sys/$subdir set dest = $root/build/@sys/$subdir
set src = $root/src/$subdir set src = $root/src/$subdir
if (-e $dest/ldb/kernel.core) then if (-e $dest/lisp/kernel.core) then
set core = $dest/ldb/kernel.core set core = $dest/lisp/kernel.core
else else
if (-e /usr/tmp/kernel.core) then if (-e /usr/tmp/kernel.core) then
set core = /usr/tmp/kernel.core set core = /usr/tmp/kernel.core
...@@ -65,25 +65,10 @@ if (-e $src/FEATURES) then ...@@ -65,25 +65,10 @@ if (-e $src/FEATURES) then
set features = ($features `cat $src/FEATURES`) set features = ($features `cat $src/FEATURES`)
endif endif
# set a bunch of random env vars to fill up space.
setenv FOO XXXXXXXXXXXXXXXX
setenv FOO $FOO$FOO$FOO$FOO
setenv FOO $FOO$FOO$FOO$FOO
setenv BAR $FOO
setenv BAZ $FOO
setenv ACK $FOO
setenv RAZ $FOO
setenv GORP $FOO
setenv BAR2 $FOO
setenv BAZ2 $FOO
setenv ACK2 $FOO
setenv RAZ2 $FOO
setenv GORP2 $FOO
echo Building lisp.core version $version from the \`\`$subdir\'\' subdir. echo Building lisp.core version $version from the \`\`$subdir\'\' subdir.
echo "Features: $features" echo "Features: $features"
$dest/ldb/ldb -core $core << EOF $dest/lisp/lisp -core $core << EOF
(setf *features* (list* $features *features*)) (setf *features* (list* $features *features*))
(setf (search-list "lisp:") '("$dest/" "$src/")) (setf (search-list "lisp:") '("$dest/" "$src/"))
(in-package "USER") (in-package "USER")
......
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