linux build

Microsoft muLISP-86 v51/SIEVE.LSP

@@ -36,6 +36,7 @@
 ))
 
 (defun main() (prog ()
+    (clear-screen)
     (princ "running...")
     (setq startTime (time))
 

Microsoft muLISP-86 v51/TTT.LSP

@@ -199,6 +199,7 @@
 
 (clear-screen)
 (setq startTime (time))
+(princ "running...")
 (dotimes (z 10) (runall))
 
 (write-string "moves: ") (princ moves) ; should be 6493

Microsoft muLISP-86 v51/m.sh

@@ -0,0 +1,14 @@
+str=$(tr '[a-z]' '[A-Z]' <<< $1)
+
+cat COMMON.LSP STRUCTUR.LSP $str.LSP >FOO.LSP
+
+# remove ^z end of file characters found in common.lsp and structur.lsp
+tr '\32' ' ' <FOO.LSP >BAR.LSP
+
+# remove (RDS) twice from the file
+sed -e '/(RDS)/d' -i BAR.LSP
+
+ntvdm -r:. -u -p -c mulisp BAR.LSP
+
+rm FOO.LSP 2>/dev/null
+rm BAR.LSP 2>/dev/null