From e79255871ded86ba33cef123a451d4128ba18622 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Tue, 4 Nov 2025 10:13:32 -0800
Subject: [PATCH] Fix SLASHIT bug

---
 library/UNIXUTILS       |  13 +++++++------
 library/UNIXUTILS.DFASL | Bin 7297 -> 7320 bytes
 2 files changed, 7 insertions(+), 6 deletions(-)

diff --git a/library/UNIXUTILS b/library/UNIXUTILS
index 28ffedcfe..59253a493 100644
--- a/library/UNIXUTILS
+++ b/library/UNIXUTILS
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "22-Oct-2025 13:05:51" {WMEDLEY}<library>UNIXUTILS.;33
 17919  
+
(FILECREATED " 4-Nov-2025 10:11:10" {WMEDLEY}<library>UNIXUTILS.;34
 18037  
 
       :EDIT-BY rmk
 
       :CHANGES-TO (FNS SLASHIT)
 
-      :PREVIOUS-DATE "27-Sep-2025 16:25:07" {WMEDLEY}<library>UNIXUTILS.;32)
+      :PREVIOUS-DATE "22-Oct-2025 13:05:51" {WMEDLEY}<library>UNIXUTILS.;33)
 
 
 (PRETTYCOMPRINT UNIXUTILSCOMS)
@@ -240,7 +240,8 @@
                                                  0))) DO
 (BLOCK) FINALLY
 (RETURN CODE])
 
 (SLASHIT

-  [LAMBDA (X LCASEDIRS NOHOST)
                               (* ; "Edited 22-Oct-2025 13:05 by rmk")


+  [LAMBDA (X LCASEDIRS NOHOST)
                               (* ; "Edited  4-Nov-2025 10:10 by rmk")


+                                                             (* ; "Edited 22-Oct-2025 13:05 by rmk")


                                                              (* ; "Edited 25-Sep-2025 09:57 by rmk")


                                                              (* ; "Edited 23-Sep-2023 15:27 by rmk")

 
@@ -259,7 +260,7 @@
                                                       (CONS (CHARCODE /)))
                                                  (/ (SETQ LASTDIRPOS I)
                                                     (CONS C))
-                                                 (SPACE (CHARCODE (\ SPACE)))
+                                                 (SPACE (APPEND (CHARCODE (\ SPACE))))
                                                  (CONS C]
          (CL:WHEN (AND LCASEDIRS LASTDIRPOS)
              (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS)))
@@ -326,7 +327,7 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17841 
+  (FILEMAP (NIL (1110 1483 (ShellCommand 1110 . 1483)) (1485 1882 (ShellWhich 1485 . 1882)) (1972 17959 
 (ShellBrowser 1982 . 3754) (ShellBrowse 3756 . 4441) (ShellOpener 4443 . 6131) (ShellOpen 6133 . 11612
-) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14566) (UNIX-FILE-NAME 14568 . 17839)))))
+) (PROCESS-COMMAND 11614 . 12227) (SLASHIT 12229 . 14684) (UNIX-FILE-NAME 14686 . 17957)))))
 STOP
diff --git a/library/UNIXUTILS.DFASL b/library/UNIXUTILS.DFASL
index 8dd2444392edea8b78d57bf23c6f5d9ca6fef75a..514dfbb9e910309c2eab26709c74b23000c0916f 100644
GIT binary patch
delta 536
zcmZp)oMAb^HQt0PIKQ+gIaMJoGbdFcxhOTUBsE1r!9>?Dzf9N2z{pg=(7?*j(8|z&
z%gr&^2US@}X=-swVx^9Pi2_i0YHm_$kpf7M4pfto>BePQ%;MNgo7y8kQC*JFWV0Jf
zDI*KByOHVUeXQI}AeQ;&GwjA}%*F<Wo0<43SwKP-lk0@KK@7{yJi<y$KsnRNhN3+{
z5o3eN2Sk$@Pfb=4Q}yxn@XfLL5I51U**C}T!z`cOIr^LoK(Il>H%I@&OrPDp5U!+e
zj>3o8`5>tbE)dxYkpQ!I_+($%vtiBTezDv2d`&>fBQvW&)V`S@au0}D0TG#n5Sa*O
z&HzdFKt#)COzq)z_V;sk3~}~%aScub^4VkjKq5woGx~d2fUMvspdd$#V?cnbpNo+P
zNFyVUC4`a#N=?2aF3Grf^EdJ3jIyFLZP^(am}fH2m<&WLGd;n|B*3Kj<Xw`=jC_ml
zNiuS%s)2>nCO?xZR+V680`r8KnZdN!%pgW)2F97eGbS^FP!BKwjVISi8!@U)-XMLB
I+5Z230Q(P_=l}o!

delta 459
zcmbPX*=RYzHPM(WIKQ+gIaMJoGbdFcxhOTUBsE3B$Vk^exkT5<z{pg=(Adhr)XLP5
z%gr&^2US^kYD!*eaY|yP4p4^zP)B}JYLNm+mkwB)nU#sj#wA(I;@Hfa+9N+vU5?Rs
zvkOZpBQuk`;pV-p+)O}*@#Zt^#%#<6W=5Nt_$pa|A|{jTg}Q;X>1IA*B_^PZ*<@qU
z9-x5P<in!Lj7KJ`i>WfYPxcj)5L5Ea(f=^hXSXjW0}yNw_RUfFFg1U2qnH@urpYtJ
zZYS_I0mb*ttO8LxW`f8)AYu_jWC}v08_b*ml5B&B7R;F1!|m+v=j<5b?C;_loB-sr
z$M}InjG|}s_pkt2!IK||YctN>%p<X!QC4K8EjuFv^GxO$lYxk3rYFc8MsYAHHu-|2
zG9&NeFOrNLDr#UM)yaRPidDp!nZP_DW@a!gIx~oonSpU;@QlffAk@R;ZaI01v=O7~
N<m1xknC<@m2LN;pgUSE^