Fix bug introduced into SLASHIT whereby which it would go into an infinite loop if a filename had two or more spaces in it.

library/UNIXUTILS

@@ -1,6 +1,6 @@
 (DEFINE-FILE-INFO :PACKAGE "INTERLISP" :READTABLE "INTERLISP" :BASE 10)
 
-
(FILECREATED "27-Apr-2026 10:15:21" {DSK}<home>frank>il>medley>library>UNIXUTILS.;6
 21771  
+
(FILECREATED "27-Apr-2026 11:10:07" {DSK}<home>frank>il>medley>library>UNIXUTILS.;7
 21772  
 
       :EDIT-BY "FGH"
 
@@ -148,7 +148,7 @@
                                                   "true"])
 
 (ShellOpen

-  [LAMBDA (FilenameOrURL)
                                    (* ; "Edited 27-Apr-2026 10:14 by FGH")


+  [LAMBDA (FilenameOrURL)
                                    (* ; "Edited 27-Apr-2026 11:08 by FGH")


                                                              (* ; "Edited 28-Dec-2025 18:26 by rmk")


                                                              (* ; "Edited 10-Sep-2025 15:29 by rmk")


                                                              (* ; "Edited  4-May-2025 11:14 by rmk")

@@ -247,7 +247,7 @@
                                                  0))) DO
 (BLOCK) FINALLY
 (RETURN CODE])
 
 (SLASHIT

-  [LAMBDA (X LCASEDIRS NOHOST KEEPDOT NO.QUOTE.SPACE)
        (* ; "Edited 26-Apr-2026 22:48 by FGH")


+  [LAMBDA (X LCASEDIRS NOHOST KEEPDOT NO.QUOTE.SPACE)
        (* ; "Edited 27-Apr-2026 11:00 by FGH")


                                                              (* ; "Edited 17-Jan-2026 23:15 by rmk")


                                                              (* ; "Edited  4-Nov-2025 10:10 by rmk")


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


@@ -264,7 +264,7 @@
                                                0)))
                 (REPLACE.SPACE (if
 NO.QUOTE.SPACE
                                    then
 (CONS (CHARCODE SPACE))
-                                 else
 (APPEND (CHARCODE (\ SPACE]
+                                 else
 (CHARCODE (\ SPACE]
          [SETQ SLASHED (CONCATCODES (for
 I C from
 DIRPOS while
 (SETQ C (NTHCHARCODE X I))
                                        join
 (SELCHARQ C
                                                  ((< >) 
@@ -272,7 +272,7 @@
                                                       (CONS (CHARCODE /)))
                                                  (/ (SETQ LASTDIRPOS I)
                                                     (CONS C))
-                                                 (SPACE REPLACE.SPACE)
+                                                 (SPACE (APPEND REPLACE.SPACE))
                                                  (CONS C]
          (CL:WHEN (AND LCASEDIRS LASTDIRPOS)
              (SETQ LASTDIRPOS (ADD1 (IDIFFERENCE LASTDIRPOS DIRPOS)))
@@ -373,8 +373,8 @@
 
 (PUTPROPS UNIXUTILS
 FILETYPE
 CL:COMPILE-FILE)
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21693 
+  (FILEMAP (NIL (1207 1580 (ShellCommand 1207 . 1580)) (1582 1979 (ShellWhich 1582 . 1979)) (2089 21694 
 (ShellBrowser 2099 . 3871) (ShellBrowse 3873 . 4558) (ShellOpener 4560 . 6248) (ShellOpen 6250 . 12197
-) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16125) (UNIX-FILE-NAME 16127 . 20012) (
-UNIX-TMP-FILE-NAME 20014 . 21691)))))
+) (PROCESS-COMMAND 12199 . 12812) (SLASHIT 12814 . 16126) (UNIX-FILE-NAME 16128 . 20013) (
+UNIX-TMP-FILE-NAME 20015 . 21692)))))
 STOP