mim/development/mim/mimc/msetc.mud

   1 <DEFINE MULTI-SET!- ('L "TUPLE" X)
   2         #DECL ((L) <LIST [REST ATOM]>)
   3         <COND (<N==? <LENGTH .X> <LENGTH .L>>
   4                <ERROR WRONG-NUMBER-OF-VARIABLES .L .X>)
   5               (ELSE
   6                <MAPF <>
   7                      <FUNCTION (A B "AUX" LB)
   8                           <COND (<AND ,M$$DECL-CHECK!-INTERNAL
   9                                       <SET LB <CALL NTHR .A ,M$$LVAL>>
  10                                       <SET LB <M$$DECL .LB>>
  11                                       <NOT <DECL? .B .LB>>>
  12                                  <ERROR DECL-VIOLATION!-ERRORS .A .B .LB
  13                                         MULTI-SET>)
  14                                 (ELSE
  15                                  <SET .A .B>)>> .L .X>)>>