add :EDIT-BY initials to FILECREATED (#1074)

sources/PRETTY

@@ -1,15 +1,16 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "19-Jan-2022 20:35:18" {DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>PRETTY.;23
 65357  
+
(FILECREATED " 8-Feb-2023 16:21:26" {DSK}<home>larry>il>medley>sources>PRETTY.;3
 65500  
 
-      :CHANGES-TO (FNS PRINTDEF1)
+      :EDIT-BY "lmm"
 
-      :PREVIOUS-DATE "30-Nov-2021 22:18:04" 
-{DSK}<Users>kaplan>Local>medley3.5>my-medley>sources>PRETTY.;21)
+      :CHANGES-TO (FNS PRINTDATE1)
+
+      :PREVIOUS-DATE "19-Jan-2022 20:35:18" {DSK}<home>larry>il>medley>sources>PRETTY.;1)
 
 
 (* ; "
-Copyright (c) 1984-1990, 1999, 2018 by Venue & Xerox Corporation.
+Copyright (c) 1984-1990, 1999, 2018, 2023 by Venue & Xerox Corporation.
 The following program was created in 1984 but has not been published
 within the meaning of the copyright law, is furnished under license,
 and may not be used, copied and/or disclosed except in accordance
@@ -327,9 +328,9 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
 )
 
 (PRINTDATE1

-  [LAMBDA (OUTSTREAM CHANGES DAT PREVDATE PREVERS TERMINATING.STRING)
-                                                             (* ; 
-
                                                           "Edited 30-Nov-2021 21:31 by larry")

+  [LAMBDA (OUTSTREAM CHANGES DAT PREVDATE PREVERS TERMINATING.STRING)

+                                                             (* ; "Edited  8-Feb-2023 16:21 by lmm")


+                                                           (* ; "Edited 30-Nov-2021 21:31 by larry")

                                                              (* bvm%: "18-Sep-86 19:08")

 
 (* ;;; "does the printing for PRINTDATE")

@@ -342,17 +343,19 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
 
     (if
 (AND BUILDMAPFLG (NOT (DISPLAYP OUTSTREAM)))
         then
 (push
 MAPADR (ADD1 (GETFILEPTR OUTSTREAM)))
-              (PRIN3 "        " OUTSTREAM) 
+             (PRIN3 "        " OUTSTREAM) 
 
-              (* ;; "The address of where the map begins will be stored in this slot.  8 spaces left because when radix is 8, can overflow seven spaces by a file of 300000 characters (Alice did it). The push is because of a feature no longer used where there could be two FILECREATED expressions at the head of a file font")

+             (* ;; "The address of where the map begins will be stored in this slot.  8 spaces left because when radix is 8, can overflow seven spaces by a file of 300000 characters (Alice did it). The push is because of a feature no longer used where there could be two FILECREATED expressions at the head of a file font")

 )
     [if
 FILEPKGFLG
-        then
 (if
 CHANGES
-                     then
 (printout OUTSTREAM T T 6 .P2 :CHANGES-TO %, .PPVTL CHANGES))
-              (if
 PREVDATE
-                  then
 (printout OUTSTREAM T T 6 .P2 :PREVIOUS-DATE %, .P2 PREVDATE)
-                        (if
 PREVERS
-                            then
 (printout OUTSTREAM %, .P2 PREVERS]
+        then
 (if
 INITIALS
+                 then
 (printout OUTSTREAM T T 6 .P2 :EDIT-BY %, .P2 INITIALS))
+             (if
 CHANGES
+                 then
 (printout OUTSTREAM T T 6 .P2 :CHANGES-TO %, .PPVTL CHANGES))
+             (if
 PREVDATE
+                 then
 (printout OUTSTREAM T T 6 .P2 :PREVIOUS-DATE %, .P2 PREVDATE)
+                      (if
 PREVERS
+                          then
 (printout OUTSTREAM %, .P2 PREVERS]
     (PRIN1 (OR TERMINATING.STRING ")
 
 
@@ -727,16 +730,16 @@ must replace the declare: by a nop addvars.") (SETQ PRTTYCOM (SUBPAIR (QUOTE (NL
 (ADDTOVAR LAMA
 )
 )
 (PUTPROPS PRETTY COPYRIGHT ("Venue & Xerox Corporation" T 1984 1985 1986 1987 1988 1989 1990 1999 2018
-))
+ 2023))
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (5927 48431 (PRETTYDEF 5937 . 21610) (PRETTYDEFCOMS 21612 . 22294) (PRETTYDEF0 22296 . 
-22487) (PRETTYDEF1 22489 . 24252) (PRINTDATE 24254 . 25490) (PRINTDATE1 25492 . 27122) (PRINTFNS 27124
- . 27693) (PRETTYCOM 27695 . 34036) (PRETTYVAR 34038 . 35076) (PRETTYVAR1 35078 . 37296) (PRETTYCOM1 
-37298 . 38002) (ENDFILE 38004 . 38100) (MAKEDEFLIST 38102 . 38506) (PP 38508 . 38784) (PP* 38786 . 
-39099) (PPT 39101 . 39420) (PRETTYPRINT 39422 . 42574) (PRETTYPRINT1 42576 . 44462) (PRETTYPRINT2 
-44464 . 45780) (PRETTYPRINT3 45782 . 46737) (PRINTDEF1 46739 . 47675) (SUPERPRINTEQ 47677 . 47771) (
-SUPERPRINTGETPROP 47773 . 47917) (CHANGEFONT 47919 . 48429)) (48432 53778 (READARRAY 48442 . 49368) (
-PRINTARRAY 49370 . 51110) (READARRAY-FROM-LIST 51112 . 52217) (PRINTARRAY-TO-LIST 52219 . 53776)) (
-53905 61423 (PRINTCOPYRIGHT 53915 . 57992) (PRINTCOPYRIGHT1 57994 . 61118) (SAVECOPYRIGHT 61120 . 
-61421)))))
+  (FILEMAP (NIL (5917 48569 (PRETTYDEF 5927 . 21600) (PRETTYDEFCOMS 21602 . 22284) (PRETTYDEF0 22286 . 
+22477) (PRETTYDEF1 22479 . 24242) (PRINTDATE 24244 . 25480) (PRINTDATE1 25482 . 27260) (PRINTFNS 27262
+ . 27831) (PRETTYCOM 27833 . 34174) (PRETTYVAR 34176 . 35214) (PRETTYVAR1 35216 . 37434) (PRETTYCOM1 
+37436 . 38140) (ENDFILE 38142 . 38238) (MAKEDEFLIST 38240 . 38644) (PP 38646 . 38922) (PP* 38924 . 
+39237) (PPT 39239 . 39558) (PRETTYPRINT 39560 . 42712) (PRETTYPRINT1 42714 . 44600) (PRETTYPRINT2 
+44602 . 45918) (PRETTYPRINT3 45920 . 46875) (PRINTDEF1 46877 . 47813) (SUPERPRINTEQ 47815 . 47909) (
+SUPERPRINTGETPROP 47911 . 48055) (CHANGEFONT 48057 . 48567)) (48570 53916 (READARRAY 48580 . 49506) (
+PRINTARRAY 49508 . 51248) (READARRAY-FROM-LIST 51250 . 52355) (PRINTARRAY-TO-LIST 52357 . 53914)) (
+54043 61561 (PRINTCOPYRIGHT 54053 . 58130) (PRINTCOPYRIGHT1 58132 . 61256) (SAVECOPYRIGHT 61258 . 
+61559)))))
 STOP