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
#
# $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.
#
......@@ -15,5 +15,5 @@ set src = /afs/cs/project/clisp/build/@sys/$subdir
set dst = /afs/cs/project/clisp-3/alphas/@sys
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
......@@ -2,7 +2,7 @@
#
# 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[1] == "-now") then
......@@ -45,8 +45,8 @@ endif
set dest = $root/build/@sys/$subdir
set src = $root/src/$subdir
if (-e $dest/ldb/kernel.core) then
set core = $dest/ldb/kernel.core
if (-e $dest/lisp/kernel.core) then
set core = $dest/lisp/kernel.core
else
if (-e /usr/tmp/kernel.core) then
set core = /usr/tmp/kernel.core
......@@ -65,25 +65,10 @@ if (-e $src/FEATURES) then
set features = ($features `cat $src/FEATURES`)
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 "Features: $features"
$dest/ldb/ldb -core $core << EOF
$dest/lisp/lisp -core $core << EOF
(setf *features* (list* $features *features*))
(setf (search-list "lisp:") '("$dest/" "$src/"))
(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