(FILECREATED "21-Jul-84 21:57:59" ("compiled on " {ERIS}LSET.;4) "19-Jul-84 18:20:13" tcompl%'d in "INTERLISP-D 19-Jul-84 ..." dated "19-Jul-84 19:54:20") (FILECREATED "21-Jul-84 21:57:29" {ERIS}LSET.;4 19019 changes to: (FNS LUNIFYQ LUNIFY LSETIFYQ LSETIFY LSUBSETQ LSUBSET LEQUAL LEQUALQ LSUBTRACTQ2 LSUBTRACT2 LSUBTRACTQ LSUBTRACT LUNIONQ2 LUNION2 LUNIONQ LUNION LINTERSECTQ2 LINTERSECT2 LINTERSECTQ LINTERSECT BUNIFYQ BUNIFY BALISTQ BALIST BUNALIST BSUBBAGQ BSUBBAG BEQUAL BEQUALQ BSUBTRACTQ2 BSUBTRACT2 BSUBTRACTQ BSUBTRACT BUNIONQ2 BUNION2 BUNIONQ BUNION BINTERSECTQ2 BINTERSECT2 BINTERSECTQ BINTERSECT)) LUNIFYQ D1 (L (1 LIST 0 ELEMENT)) @dA ‘AA(5 MEMB) NIL () LUNIFY D1 (I 1 LIST I 0 ELEMENT) @A ‘A@A(4 MEMBER) NIL () LSETIFYQ D1 (L (0 LIST)) @YµHdH ¢HX¿I°í(17Q MEMB) NIL () LSETIFY D1 (P 2 ELEMENT P 0 ANSWER I 0 LIST) 0@YµHZH £JH¸I°í(17Q MEMBER) NIL () LSUBSETQ D1 (I 1 Y I 0 X) @dAð‘iA hð(12Q LSUBTRACTQ2) NIL () LSUBSET D1 (I 1 Y I 0 X) @dAð‘iA hð(12Q LSUBTRACT2) NIL () LEQUAL D1 (I 1 Y I 0 X) @dAð‘iA ´A@ (21Q LSUBSET 12Q LSUBSET) NIL () LEQUALQ D1 (I 1 Y I 0 X) @dAð‘iA ´A@ (21Q LSUBSETQ 12Q LSUBSETQ) NIL () LSUBTRACTQ2 D1 (L (1 Y 0 X)) ,@dAð‘h1HµIdA ¨»Jµ KhZY¿HX°çK&Z°÷(25Q MEMB) NIL () LSUBTRACT2 D1 (P 4 ELEMENT I 1 Y I 0 X) ,@dAð‘hAHµI\A ©L»JµKhZ¹HX°çK&º°ø(25Q MEMBER) NIL () LSUBTRACTQ D1 (P 10Q SET P 7 ANSWER P 6 SETS P 0 $EXPR$) G eHk2JdIñœ¿K!N_N°&a½Lµ Mh\»JkØZ°áM&¼°÷d_¿OO _¿µïO(73Q LSUBTRACTQ2) NIL () LSUBTRACT D1 (P 10Q SET P 7 ANSWER P 6 SETS P 0 $EXPR$) G eHk2JdIñœ¿K!N_N°&a½Lµ Mh\»JkØZ°áM&¼°÷d_¿OO _¿µïO(73Q LSUBTRACT2) NIL () LUNIONQ2 D1 (P 0 C I 1 B I 0 A) @A XdµAA (21Q \APPEND2 7 LSUBTRACTQ2) NIL () LUNION2 D1 (P 0 C I 1 B I 0 A) @A XdµAA (21Q \APPEND2 7 LSUBTRACT2) NIL () LUNIONQ D1 (P 10Q SET P 7 ANSWER P 6 SETS P 0 $EXPR$) C eHk2JdIñ˜¿K!N°'a½Lµ Mh\»JkØZ°åM&¼°÷d_¿OO _¿µïO(67Q LUNIONQ2) NIL () LUNION D1 (P 10Q SET P 7 ANSWER P 6 SETS P 0 $EXPR$) C eHk2JdIñ˜¿K!N°'a½Lµ Mh\»JkØZ°åM&¼°÷d_¿OO _¿µïO(67Q LUNION2) NIL () LINTERSECTQ2 D1 (L (1 B 0 A)) *@dAð§1HµIdA ˜»Jµ KhZY¿HX°çK&Z°÷(23Q MEMB) NIL () LINTERSECT2 D1 (P 4 ELEMENT I 1 B I 0 A) *@dAð§AHµI\A ™L»JµKhZ¹HX°çK&º°ø(23Q MEMBER) NIL () LINTERSECTQ D1 (P 10Q SET P 7 ANSWER P 6 SETS P 0 $EXPR$) G eHk2JdIñœ¿K!N_N°&a½Lµ Mh\»JkØZ°áM&¼°÷d_¿OO _¿µïO(73Q LINTERSECTQ2) NIL () LINTERSECT D1 (P 10Q SET P 7 ANSWER P 6 SETS P 0 $EXPR$) G eHk2JdIñœ¿K!N_N°&a½Lµ Mh\»JkØZ°áM&¼°÷d_¿OO _¿µïO(73Q LINTERSECT2) NIL () BUNIFYQ D1 (L (1 LIST 0 ELEMENT)) @ANIL NIL () BUNIFY D1 (L (1 LIST 0 ELEMENT)) @ANIL NIL () BALISTQ D1 (P 2 ELEMENT P 1 BUCKET P 0 ALIST I 0 BAG) %0@°dZH YµJkHX¿µíHdkØ°ô(14Q ASSOC) NIL () BALIST D1 (P 2 ELEMENT P 1 BUCKET P 0 ALIST I 0 BAG) %0@°dZH YµJkHX¿µíHdkØ°ô(14Q SASSOC) NIL () BUNALIST D1 (P 0 BAG I 0 ALIST) R 0@°=dYk2 NMñ³"I_¿OµOh__¿NkØ^°æO&_¿°ôOZ–KµJ\[¿µÄL [J°ó(113Q LAST) NIL () BSUBBAGQ D1 (P 5 XBUCKET P 3 ANSWER P 2 YBUCKET P 1 YALIST P 0 XALIST I 1 Y I 0 X) /@@ XA YHLµi]I Z´÷MJñ‘hL\°æ(35Q ASSOC 13Q BALISTQ 6 BALISTQ) NIL () BSUBBAG D1 (P 5 XBUCKET P 3 ANSWER P 2 YBUCKET P 1 YALIST P 0 XALIST I 1 Y I 0 X) /@@ XA YHLµi]I Z´÷MJñ‘hL\°æ(35Q SASSOC 13Q BALIST 6 BALIST) NIL () BEQUAL D1 (I 1 Y I 0 X) @A ´A@ (13Q BSUBBAG 4 BSUBBAG) NIL () BEQUALQ D1 (I 1 Y I 0 X) @A ´A@ (13Q BSUBBAGQ 4 BSUBBAGQ) NIL () BSUBTRACTQ2 D1 (P 4 YBUCKET P 3 ANSWER P 2 XBUCKET P 1 YALIST P 0 XALIST I 1 Y I 0 X) Y@@dAð‘h XA Yd°