Fix GREET0 off by 1 error. Without changing the file's READTABLE (#1970)

Replaces mth26 branch (PR #1969). This doesn't change the file's READTABLE.
Interlisp · Jan 15, 2025 · 6bdcb18 · 6bdcb18
2 parents 5b37dd0 + fb7bb25
commit 6bdcb18
Show file tree

Hide file tree

Showing 2 changed files with 21 additions and 20 deletions.
diff --git a/sources/HIST b/sources/HIST
@@ -1,12 +1,12 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "XCL" BASE 10)
 
-(FILECREATED "19-Apr-2023 18:58:13" |{DSK}<home>larry>il>medley>sources>HIST.;6| 152088 
+(FILECREATED "14-Jan-2025 13:20:25" |{DSK}<home>matt>Interlisp>medley>sources>HIST.;2| 152217 
 
-      :EDIT-BY "lmm"
+      :EDIT-BY "matt"
 
       :CHANGES-TO (FNS GREET0)
 
-      :PREVIOUS-DATE "19-Mar-2023 10:09:08" |{DSK}<home>larry>il>medley>sources>HIST.;1|)
+      :PREVIOUS-DATE "19-Apr-2023 18:58:13" |{DSK}<home>matt>Interlisp>medley>sources>HIST.;1|)
 
 
 (PRETTYCOMPRINT HISTCOMS)
@@ -2754,7 +2754,8 @@ this sysout is initialized for user " T)
         (printout t "error during GREET..." t))))
 
 (GREET0
-  (LAMBDA NIL                                               (* \; "Edited 19-Apr-2023 18:55 by lmm")
+  (LAMBDA NIL                                              (* \; "Edited 14-Jan-2025 13:19 by matt")
+                                                            (* \; "Edited 19-Apr-2023 18:55 by lmm")
                                                             (* \; "Edited 19-Mar-2023 09:58 by lmm")
                                                              (* |lmm| "28-DEC-82 08:49")
     (COND
@@ -2763,7 +2764,7 @@ this sysout is initialized for user " T)
                                 (CL:GET-DECODED-TIME)
                                 (OR (AND (EVENP (LRSH SECONDS 1))
                                          (CDR (SASSOC (CL:FORMAT NIL "~2D-~A" DAY
-                                                             (CL:NTH MONTH
+                                                             (CL:NTH (SUB1 MONTH)
                                                                     '("JAN" "FEB" "MAR" "APR" "MAY" 
                                                                             "JUN" "JUL" "AUG" "SEP" 
                                                                             "OCT" "NOV" "DEC")))
@@ -3038,19 +3039,19 @@ this sysout is initialized for user " T)
 (ADDTOVAR LAMA )
 )
 (DECLARE\: DONTCOPY
-  (FILEMAP (NIL (14244 20989 (PRINTHISTORY 14254 . 16044) (ENTRY# 16046 . 16381) (PRINTHISTORY1 16383 . 
-19552) (PRINTHISTORY2 19554 . 20987)) (20990 129420 (EVALQT 21000 . 21800) (ENTEREVALQT 21802 . 22357)
- (USEREXEC 22359 . 22994) (LISPXREAD 22996 . 24799) (LISPXREADBUF 24801 . 27027) (LISPXREADP 27029 . 
-27578) (LISPXUNREAD 27580 . 27873) (LISPX 27875 . 63570) (LISPX/ 63572 . 65026) (LISPX/1 65028 . 70314
-) (LISPXEVAL 70316 . 70940) (LISPXSTOREVALUE 70942 . 71196) (HISTORYSAVE 71198 . 78482) (LISPXFIND 
-78484 . 85919) (LISPXGETINPUT 85921 . 86134) (REMEMBER 86136 . 86330) (GETEXPRESSIONFROMEVENTSPEC 
-86332 . 88442) (LISPXFIND0 88444 . 92718) (LISPXFIND1 92720 . 93148) (HISTORYFIND 93150 . 98724) (
-HISTORYFIND1 98726 . 102171) (HISTORYMATCH 102173 . 102248) (VALUEOF 102250 . 103275) (VALUOF 103277
- . 104167) (VALUOF-EVENT 104169 . 104574) (LISPXUSE 104576 . 110995) (LISPXUSE0 110997 . 113723) (
-LISPXUSE1 113725 . 115350) (LISPXSUBST 115352 . 115772) (LISPXUSEC 115774 . 124015) (LISPXFIX 124017
- . 124867) (CHANGESLICE 124869 . 126716) (LISPXSTATE 126718 . 127812) (LISPXTYPEAHEAD 127814 . 129418)
-) (137472 140690 (GREET 137482 . 138623) (GREET0 138625 . 140688)) (142292 149468 (LISPXPRINT 142302
- . 142866) (LISPXPRIN1 142868 . 143752) (LISPXPRIN2 143754 . 144696) (LISPXPRINTDEF 144698 . 145252) (
-LISPXPRINTDEF0 145254 . 145617) (LISPXSPACES 145619 . 146305) (LISPXTERPRI 146307 . 146932) (LISPXTAB 
-146934 . 147492) (USERLISPXPRINT 147494 . 148894) (LISPXPUT 148896 . 149466)))))
+  (FILEMAP (NIL (14257 21002 (PRINTHISTORY 14267 . 16057) (ENTRY# 16059 . 16394) (PRINTHISTORY1 16396 . 
+19565) (PRINTHISTORY2 19567 . 21000)) (21003 129433 (EVALQT 21013 . 21813) (ENTEREVALQT 21815 . 22370)
+ (USEREXEC 22372 . 23007) (LISPXREAD 23009 . 24812) (LISPXREADBUF 24814 . 27040) (LISPXREADP 27042 . 
+27591) (LISPXUNREAD 27593 . 27886) (LISPX 27888 . 63583) (LISPX/ 63585 . 65039) (LISPX/1 65041 . 70327
+) (LISPXEVAL 70329 . 70953) (LISPXSTOREVALUE 70955 . 71209) (HISTORYSAVE 71211 . 78495) (LISPXFIND 
+78497 . 85932) (LISPXGETINPUT 85934 . 86147) (REMEMBER 86149 . 86343) (GETEXPRESSIONFROMEVENTSPEC 
+86345 . 88455) (LISPXFIND0 88457 . 92731) (LISPXFIND1 92733 . 93161) (HISTORYFIND 93163 . 98737) (
+HISTORYFIND1 98739 . 102184) (HISTORYMATCH 102186 . 102261) (VALUEOF 102263 . 103288) (VALUOF 103290
+ . 104180) (VALUOF-EVENT 104182 . 104587) (LISPXUSE 104589 . 111008) (LISPXUSE0 111010 . 113736) (
+LISPXUSE1 113738 . 115363) (LISPXSUBST 115365 . 115785) (LISPXUSEC 115787 . 124028) (LISPXFIX 124030
+ . 124880) (CHANGESLICE 124882 . 126729) (LISPXSTATE 126731 . 127825) (LISPXTYPEAHEAD 127827 . 129431)
+) (137485 140819 (GREET 137495 . 138636) (GREET0 138638 . 140817)) (142421 149597 (LISPXPRINT 142431
+ . 142995) (LISPXPRIN1 142997 . 143881) (LISPXPRIN2 143883 . 144825) (LISPXPRINTDEF 144827 . 145381) (
+LISPXPRINTDEF0 145383 . 145746) (LISPXSPACES 145748 . 146434) (LISPXTERPRI 146436 . 147061) (LISPXTAB 
+147063 . 147621) (USERLISPXPRINT 147623 . 149023) (LISPXPUT 149025 . 149595)))))
 STOP
diff --git a/sources/HIST.LCOM b/sources/HIST.LCOM