From fb7bb25201e4a0137106e988fcfbac34e432ff3b Mon Sep 17 00:00:00 2001 From: Matt Heffron Date: Tue, 14 Jan 2025 13:34:11 -0800 Subject: [PATCH] Replaces mth26 branch. This doesn't change the file's READTABLE. --- sources/HIST | 41 +++++++++++++++++++++-------------------- sources/HIST.LCOM | Bin 44410 -> 44411 bytes 2 files changed, 21 insertions(+), 20 deletions(-) diff --git a/sources/HIST b/sources/HIST index 3e3c147a4..2e8ba7c11 100644 --- 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}larry>il>medley>sources>HIST.;6| 152088 +(FILECREATED "14-Jan-2025 13:20:25" |{DSK}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}larry>il>medley>sources>HIST.;1|) + :PREVIOUS-DATE "19-Apr-2023 18:58:13" |{DSK}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 index 00745f739196f80a639cdad4ee10ba0011abe7d2..f61f2b5d2e9dab89d669c2a8f272dade94922f71 100644 GIT binary patch delta 640 zcmex$i|O|*rU^myCc0jUdAddhMy3je##TlKR>meu3K~ku`MCv|IjJcM`FRRT3N_U( z!QQnt8Tq-XcDacqC3c>9C8x0o*qzLN@7WBN{s>+Hgk-XG`Td~ zJbhf9gIpa$TwN5D3^6=nWJ;XF)lgloU}$P&WN5BnN*P&eLjwgR zU@RB{4OP+s#ig0Kf|5rjh+zn1q~_%01KB3V3QF$z`6&viWvO|YdFenQWAn+3vLYft ZZD5Jq{357?p~+-TSw%*(&EB&56992{w3h$? delta 621 zcmZuuO-mb56rI>YVQ}H9Xf<$sn~q}Qdz1M_EYoD7qlwX(0d;3EuQl*yo{X^|ol@uz zD2DkDUAQZ{7k`8sH~tSr+NY*8+Abd4bMASEbML*q8o9X|ISy>Q6{{5>mZMt^ zsUT3$E|2%SjCO!0fFS!^3s=7^?D3c`vUZvtEp}PI|N4!Q&47%E`PT#64#p0#`xnaB zP0EA~g&v3cA!9U!gQEj}*n{B@<#HLxkagNU+R5M_FWtcgnvs>d-|(t|=SE&li2fV; zdB~T8loLhQ@YGYC*R7-`5wQgR{Z?kH+2GR8%%5kO0vcYuDPNjLc@sEW`%Q0)&rnkJkl Zf>ede0~zylpd)HNTbwRvr;XzL@ox~xtK