rmk6 2nd change to EDITINTERFACE

Author: masinter

sources/EDITINTERFACE

@@ -1,7 +1,7 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED " 4-Dec-2021 09:08:18" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;20
 46022  
+
(FILECREATED " 4-Dec-2021 10:40:27" 
+{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>EDITINTERFACE.;21
 46036  
 
       changes to%:  (FNS EDITDATE?)
 
@@ -758,7 +758,7 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
               (RETURN EXPR)))])
 
 (EDITDATE?

-  [LAMBDA (COMMENT RESTOK)
                                   (* ; "Edited  4-Dec-2021 09:07 by rmk")

+  [LAMBDA (COMMENT RESTOK)
                                   (* ; "Edited  4-Dec-2021 10:39 by rmk")

 
 (* ;;; "This determines whether this is a dated or initialed comment that is potentially reusable in the current context.  Unless RESTOK, this only recognizes modern-format configurations of the form %"Edited <date> by <initials>%", and returns a parsed pair (DATE INITIALS).")

 
@@ -789,8 +789,8 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 
                  (* ;; "Could be %"<INITIALS>: abc%" to be upgraded with a date")

 
-                 (SETQ RESTPOS (STRPOS " " STRING))
-                 (SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS))))
+                 (CL:WHEN (SETQ RESTPOS (STRPOS " " STRING))
+                     (SETQ I (SUBSTRING STRING 1 (SUB1 RESTPOS)))))
              (CL:WHEN (AND I (ILESSP (NCHARS I)
                                     12))                     (* ; 
 
                                                            "Sanity check: Initials should be short.")

@@ -906,6 +906,6 @@ Copyright (c) 1986-1988, 1990-1991 by Venue & Xerox Corporation.
 18758) (EDITLOADFNS? 18760 . 22560) (EDITMODE 22562 . 24572) (EDITP 24574 . 25085) (EDITV 25087 . 
 25726) (DC 25728 . 26409) (DF 26411 . 27453) (DP 27455 . 28539) (DV 28541 . 29113) (EDITPROP 29115 . 
 29334) (EF 29336 . 29665) (EP 29667 . 29850) (EV 29852 . 30031) (EDITE 30033 . 30911) (EDITL 30913 . 
-31139)) (31491 45167 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41913
-) (EDITDATE 41915 . 43170) (SETINITIALS 43172 . 45165)))))
+31139)) (31491 45181 (NEW/EDITDATE 31501 . 31723) (FIXEDITDATE 31725 . 39112) (EDITDATE? 39114 . 41927
+) (EDITDATE 41929 . 43184) (SETINITIALS 43186 . 45179)))))
 STOP