make init files

.gitignore

@@ -1,3 +1,7 @@
+# loadup interim steps
+
+tmp/*
+loadups/init*
 
 #compiled code -- leave in for now
 

scripts/loadup-init.sh

@@ -0,0 +1,16 @@
+#!/bin/sh
+
+export MEDLEYDIR=`pwd`
+
+if [ ! -f run-medley ] ; then
+    echo run from MEDLEYDIR
+    exit 1
+fi
+
+export LOADUPDIR="$MEDLEYDIR"
+mkdir -p "$MEDLEYDIR/tmp"
+
+./run-medley -greet "$MEDLEYDIR"/sources/LOADUP-INIT.LISP -full
+
+ls -l tmp loadups/init*
+

sources/LOADUP-INIT.LISP

@@ -0,0 +1,10 @@
+(* "make init files")
+
+(CNDIR (MEDLEYDIR "tmp"))
+
+(LOAD (MEDLEYDIR "sources" "MAKEINITGREET.LCOM"))
+(PROGN (DRIBBLE "makeinit.dribble")
+       (BKSYSBUF " ")
+       (MAKEINITGREET)
+       (DRIBBLE)
+       (LOGOUT T))