From 82c9cd3d940526d390de2846205b80cd1c586918 Mon Sep 17 00:00:00 2001
From: rmkaplan <ron.kaplan@post.harvard.edu>
Date: Sun, 21 Dec 2025 20:45:10 -0800
Subject: [PATCH] The SASSOC macro was actually doing ASSOC

---
 library/MULTI-ALIST       |  17 ++++++++---------
 library/MULTI-ALIST.LCOM  | Bin 5929 -> 5879 bytes
 library/MULTI-ALIST.TEDIT | Bin 13249 -> 13260 bytes
 3 files changed, 8 insertions(+), 9 deletions(-)

diff --git a/library/MULTI-ALIST b/library/MULTI-ALIST
index 64b650d7..223a0948 100644
--- a/library/MULTI-ALIST
+++ b/library/MULTI-ALIST
@@ -1,14 +1,13 @@
 (DEFINE-FILE-INFO PACKAGE "INTERLISP" READTABLE "INTERLISP" BASE 10)
 
-
(FILECREATED "25-Sep-2025 18:41:59" {WMEDLEY}<library>MULTI-ALIST.;30
 15648  
+
(FILECREATED "21-Dec-2025 20:40:36" {WMEDLEY}<library>MULTI-ALIST.;32
 15606  
 
       :EDIT-BY rmk
 
-      :CHANGES-TO (FNS EXTENDMULTI-PAIR FETCHMULTI-PAIR)
-                  (MACROS FETCHMULTI)
+      :CHANGES-TO (PROPS (SGETMULTI ARGNAMES))
+                  (MACROS SGETMULTI GETMULTI)
 
-      :PREVIOUS-DATE "25-Sep-2025 11:35:45" 
-{DSK}<Users>kaplan>Local>medley3.5>working-medley>library>MULTI-ALIST.;28)
+      :PREVIOUS-DATE "25-Sep-2025 18:41:59" {WMEDLEY}<library>MULTI-ALIST.;30)
 
 
 (PRETTYCOMPRINT MULTI-ALISTCOMS)
@@ -62,7 +61,7 @@
                                            (CDR ARGS))))
 
 (PUTPROPS SGETMULTI
 MACRO
 ((MULTIALIST . KEYS)
-                           (CDR (GETMULTI-PAIR MULTIALIST . KEYS))))
+                           (CDR (SGETMULTI-PAIR MULTIALIST . KEYS))))
 
 (PUTPROPS SGETMULTI-PAIR
 MACRO
 (ARGS (GETMULTI-PAIR.EXPAND
 'SASSOC (CAR ARGS)
                                             (CDR ARGS))))
@@ -282,7 +281,7 @@
 (LOCALVARS . T)
 )
 (DECLARE%: DONTCOPY
-  (FILEMAP (NIL (3720 10430 (MAPMULTI 3730 . 4876) (MAPMULTI1 4878 . 5935) (COLLECTMULTI 5937 . 6408) (
-FETCHMULTI-PAIR 6410 . 7470) (EXTENDMULTI-PAIR 7472 . 10428)) (10431 14805 (GETMULTI-PAIR.EXPAND 10441
- . 11942) (PUTMULTI.EXPAND 11944 . 14803)))))
+  (FILEMAP (NIL (3678 10388 (MAPMULTI 3688 . 4834) (MAPMULTI1 4836 . 5893) (COLLECTMULTI 5895 . 6366) (
+FETCHMULTI-PAIR 6368 . 7428) (EXTENDMULTI-PAIR 7430 . 10386)) (10389 14763 (GETMULTI-PAIR.EXPAND 10399
+ . 11900) (PUTMULTI.EXPAND 11902 . 14761)))))
 STOP
diff --git a/library/MULTI-ALIST.LCOM b/library/MULTI-ALIST.LCOM
index d4c087988c1ea3321c2ddb642a0fbdd2f08ebc4f..16b75a6ce21f3e7c1e7f274f5b915b22e05ecc52 100644
GIT binary patch
delta 280
zcmZ3f_g!~Fgs`EmOKP&Nk%5t^f{}rhiGh`|*~Dz4dLvB*E+s=FgruP*P{zu@SV<wN
zC^b1hw;(eoHANw{qM)c))k+~Rza%3wFI^!sPeI8o)W=5wS*xC&o{~aJVhK<^HZu*4
zlr*_C+&q0;or7E*LtI@Hl#H-Ct6GWONWsw5%)o4NBBP99K#+exu!2UgyK9JVs85Ke
zf@6@opQEp9u%@PhhOeV@kbkfOLK3KI@&-l~E(<FYLn~8DB?YdDwMv^cnDPV|gD2k+
P)SH|w#JTybPz(zIS&vCF

delta 340
zcmeyayHamLgs`b@aB6|Bk%5t^f}w?#iIJ6o!NhE%dIL=bE+r#mNpmX$V=E(LC55D-
z)a3l!g3O%M6ou4^f}&zoD+Skx5LZ7J-%y_rPu&1V&me`&JOw4UP#+%!WHa>i^pq4*
z5=(#@u^Db`s-(%K;pXY%>MRrF>KNkcqJZiIp!*E1Of4ttGb*tgC>WZWnOIDYV3gr<
z^9zQ$V6q^Os0i2vnhF}ej?O{;!3u7!A<iC?molmZ8(JBgTA7$CDR5Q01bf%ogche3
z729Pe7UU%6+4<xrC+67Yrl#biRvPP>+Lh-QWoPE4>q12Aax#;O5{oMBAbxc8@eB^p
Wvo^BW{Dm=JVDd^qz0H$^Qdt1eGG12z

diff --git a/library/MULTI-ALIST.TEDIT b/library/MULTI-ALIST.TEDIT
index 25c9ad8de4795c48ca3ca6f36a20e992d52ec9d2..a7f1bab6b2d8ea20fdd6af7325591ceedc7df0b7 100644
GIT binary patch
delta 3195
zcmbtWO-~b16nzCmL6nb1(8P}dZ7C`vf+l_@Hnd_9N-U$%4T;8t1q=70nT2~3GaGlV
zj4n;wnHb|<SMH3z!HpZ2-gBq-*y$rsBc!kGdFP({`QG&N#+QwEFS7C0SYP}q8_0YA
z`ybiS;Y=p}m0v&ToIB%sS5_<4M%@j><HdaZtnfY49j_Pjvc7FuzZN$~x`pptm;A#{
z{<`C(srks@UO^TV#v-g9Src9p0OJ}yn+cSDwgO<x7_bK-pq}-R^M*M0AaOML7wK}4
znKpnj1w$-21jtxmlWzsEds=~by)>?Aij;F1c^y++7R?06oQD8)uuu*bl4r4{-y}m6
zVZZ=-Xg7)y$0~?WH4M5S(r-f6C<>Nshfz#=2=xlKr6mF!JvB&4x=85z1SN3ODCV4L
zX;|PX7cntnAMtV+5`Luh`hOjjVODH7i^6cmESY3W>hDgaA^Ao&>Y&mTx?%{5f$cY~
z0GfWlfIfVH6y^NtL~Nw8;YN_;eBdCf^G<|z(8=zggZ$GmQpoGql<6Qq(1KO~#m}_@
zh?>=AQpb&wAn<=E4av8Y9y0AAzSTL8!_!Omhub*fzY{aMx88g*9RR7WAHfbf?$vL?
zY*0I;%*p&GE#~O5Vw||kX13SN?ivE;m?_<X0cEbXQy2{?Wl(s{1Kw{&^i3IB=`8Dh
zGjUESYkbdSh_qMTxjRkH5XW7G<=N8{B$u)kmVv7yu#|}!`p1c6v*wMiJFtA%^ek^l
z=U%r1gJ_B#ynl9y3!!1w=785_CvrG7$)(8Z@%(mTpQ-@DVG9us1|<ccuixaQ>4JgQ
zM!dqbai|)?(mg*aa%g3V^LfbWxo9$M9g{QX@>GcDXR{nk94<{9kqyFrml?ohY<~d#
z+x!-|HqD4hXG?3KX9^HcMJLYLYeqq*R+VA%xnnyqgV0Fz6SWA;T*FS)LJ=(f)={%U
z6sbg+Cqvgfqm(k+rS(Bv90=>1TA|S_p(V@$jvxqZdy~Q`VA-MzAR`ewxtWiKKp4bA
zD*)H2EMbeE7%DP~58Jxt^=f{S1a$s1NmxCHxmLA#L^KruC$O`vF!h!}0hh<1XoyO}
zdd3iKhai#j1AAm7R*9vxT0@J0Vq6lSR4RqlN-YeQ%WGk9y;iRTYhj~SU(5x$iM7RQ
sxN>_rtW8YkN((p2jcR>iHGVliHnLPHht*4)!@r-%Z{z!!t;Zk!0Mt2H4*&oF

delta 3124
zcmbtWO=}ZT6rHJ`v9@Uwj25a^^U?T`*bfD@3Jod<x>1Vg#)Sw4yKpa*!9O6#?5gNW
z+zQ<ZBI33y{S|Kf0j_-KzB#8ed6K4B=*!G`_nv$2x%a(fYxUder`Of=ZEZZ=sCM0F
zdGklLHW^3hug2pz-n`u$jZ1NazmaGxec76h<Mdstq4j%ft-}2gXLSLlak@Oam=NCY
zkQ)YLaXfq7>g_TB7Rz|13z&ZA0a$bh>;nl*=L6&tktllN1J$>Ykq9(r2#BUhgvlX6
z<pQ5Z9>DH-1JafDDJ#=aMbRGjf86lw#gK&nu_ECC2Mc2lSmuZz6Nqq_fFkreC0V90
zK&r;75JC=-h|D7FaYtFy14MjHZka^zNY)9Nk&(F64?0x99hxw>%CfZJqX^14M1mS7
zoMU3H|IcGIs!9#FdI||1Wifus=^vddLhen;LkD{k(KR9v1KS_-0Gd8VpoE7)@KBvZ
zjWlZnc8EV8<GUdmz*8N-gZhg(iYVyUEP0S1%({61;?Lv(6eP7()Crn+1o4j)A@_DR
zK*D1mdR+{>bb1y3Sf7oHKa88gqja?ND|rAEx;}*+m<0NrrVq3;lLa^be!euiQcM%K
zM7INUdq@PqF;ljK*%8h4eiLOQlO9ZT%>y2#lVXcTUWnq)M^?C|R2n~`iI9HPqv%0q
zGof)eV)xzir{gbW3ai8|5Hd4MXc!(R8Pi)gy6wRGX%^Xi_|ARk2g+!QMcH*oTnP8+
z%>cSChoM7Vi48}1A?P3vOBBu_5>!)>AV#MExK1b0&wLF~O_!Rr63Bq`WFs$1p>Igd
z(-lTiGpjbmaax)y4uTbp-k0IB!yrJ$uzDQS@Jhc2TR(pOIN39n#10lR)6p0vxEii3
z6qG_tGUmWmVi3U*jCGgpkfErBAxJ*lnx+@BKvgPKbt-kMv$=!Heg@L5`6=BakXT|>
z5D*-}AZU~&(Ph{oA)eIu3lXFXyJjB11Z@|TI1>cIZwh0n;o+a5b)PcOwhUGeoL<4(
z)X8|Q5&$Q$6Y`={;=2nQ7;DN~MBr)e9U>+@;4rV}w2??smUCn|x&`y(uQQLd+v&#Q
YOr?Iaw{q+1v-eAH+>hI}c>Trazi|pl7ytkO