From cffe95a15256ea31c613fd478b78343a1329560b Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Tue, 8 Sep 1992 22:28:25 +0000
Subject: [PATCH] Changed to use new startup code.

---
 tools/inst-lisp |  4 ++--
 tools/mk-lisp   | 23 ++++-------------------
 2 files changed, 6 insertions(+), 21 deletions(-)

diff --git a/tools/inst-lisp b/tools/inst-lisp
index ae4f5fe9e..cc4234704 100755
--- a/tools/inst-lisp
+++ b/tools/inst-lisp
@@ -1,6 +1,6 @@
 #!/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
diff --git a/tools/mk-lisp b/tools/mk-lisp
index 488ec3aae..568fcd694 100755
--- a/tools/mk-lisp
+++ b/tools/mk-lisp
@@ -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")
-- 
GitLab