From 54a6a9f9c34a67b7c9bd07e4191c6acf8383ce84 Mon Sep 17 00:00:00 2001
From: Eric Swenson <eric@swenson.org>
Date: Wed, 3 Oct 2018 16:18:45 -0700
Subject: [PATCH] Delete UNFASL files in lisp; and liblsp; directories.
 Resolves #1289.

---
 build/lisp.tcl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/build/lisp.tcl b/build/lisp.tcl
index 6b890a41..af6175c5 100644
--- a/build/lisp.tcl
+++ b/build/lisp.tcl
@@ -938,6 +938,13 @@ respond "_" "\032"
 type ":kill\r"
 respond "*" ":link liblsp;vsaid fasl,lisp;\r"
 
+# cleanup unfasl files in lisp;
+respond "*" ":dired lisp;\r"
+respond "@" "delete * unfasl\r"
+respond "Delete? (Y or N):" "y"
+respond "@" "q\r"
+expect ":KILL"
+
 respond "*" ":midas liblsp;_gsb;ttyvar\r"
 respond "Use what filename instead?" "lisp;\r"
 expect ":KILL"
@@ -981,6 +988,13 @@ respond "_" "liblsp;_libdoc;utils\r"
 respond "_" "\032"
 type ":kill\r"
 
+# cleanup unfasl files in liblsp;
+respond "*" ":dired liblsp\r"
+respond "@" "delete * unfasl\r"
+respond "Delete? (Y or N):" "y"
+respond "@" "q\r"
+expect ":KILL"
+
 # DEFSET
 respond "*" "complr\013"
 respond "_" "lisp;_nilcom;defset\r"