Merge branch 'master' into mth58--DEFINE-RECORD_didnt_provide_arglist_info

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