(DEFINE-FILE-INFO READTABLE "XCL" PACKAGE "INTERLISP") (FILECREATED " 6-Jul-94 01:13:59" ("compiled on " |{DSK}lispusers>UTILISOPRS.;1|) " 2-Jun-94 10:43:09" |bcompl'd| |in| "Medley 2-Jun-94 ..." |dated| " 2-Jun-94 10:52:50") (FILECREATED "14-Apr-88 12:37:05" {ERINYES}LYRIC>UTILISOPRS.\;1 2918 |changes| |to:| (FNS |FIntersection| |FUnion|) |previous| |date:| "24-Mar-87 19:54:30" |{XDE:MCS:STANFORD}LYRIC>UTILISOPRS.;1|) |FIntersection| :D8 (L (1 Y 0 X)) $@1HµIdA˜»Jµ KhZY¿HX°éK&Z°÷NIL NIL () |FUnion| :D8 (L (1 Y 0 X)) @AHµIdI¢IY¿HX°ïNIL NIL () (PRETTYCOMPRINT UTILISOPRSCOMS) (RPAQQ UTILISOPRSCOMS ((I.S.OPRS COLLECTWHEN INTERSECT MAXIMIZE MINIMIZE REPEATEACHTIME UNION UNIQUE YIELD FIRSTTIME |fintersect| |funion|) (ADDVARS (LOCALVARS $$STATE $$TMP $$UIV $$UNQ $$FLTR) ( SYSLOCALVARS $$STATE $$TMP $$UIV $$UNQ $$FLTR)) (FNS |FIntersection| |FUnion|))) (I.S.OPR (QUOTE COLLECTWHEN) NIL (QUOTE (|bind| $$FLTR |when| (SETQ $$FLTR BODY) |collect| $$FLTR))) (I.S.OPR (QUOTE INTERSECT) (QUOTE (PROGN (INTBOD _ BODY) (OR ($$VAL _ (COND ($$VAL (INTERSECTION $$VAL INTBOD)) (T INTBOD))) (GO $$OUT)))) (QUOTE (BIND INTBOD))) (I.S.OPR (QUOTE MAXIMIZE) NIL (QUOTE (|largest| BODY |yield| $$EXTREME))) (I.S.OPR (QUOTE MINIMIZE) NIL (QUOTE (|smallest| BODY |yield| $$EXTREME))) (I.S.OPR (QUOTE REPEATEACHTIME) NIL (QUOTE (|repeatuntil| (PROGN BODY NIL)))) (I.S.OPR (QUOTE UNION) (QUOTE ($$VAL _ (UNION $$VAL BODY)))) (I.S.OPR (QUOTE UNIQUE) (QUOTE (|if| $$VAL |then| ($$VAL_ NIL) (GO $$OUT) |else| $$VAL _ $$UNQ $$UIV _ I.V.)) (QUOTE (|bind| ($$UNQ $$UIV) |when| $$UNQ _ BODY |finally| (I.V._ (AND $$VAL $$UIV))))) (I.S.OPR (QUOTE YIELD) NIL (QUOTE (FINALLY (RETURN BODY)))) (I.S.OPR (QUOTE FIRSTTIME) NIL (QUOTE (|bind| ($$MEMO _ T) |unless| (AND $$MEMO (PROGN BODY T) (SETQ $$MEMO NIL))))) (I.S.OPR (QUOTE |fintersect|) (QUOTE (PROGN (INTBOD _ BODY) (OR ($$VAL _ (COND ($$VAL (|FIntersection| $$VAL INTBOD)) (T INTBOD))) (GO $$OUT)))) (QUOTE (BIND INTBOD))) (I.S.OPR (QUOTE |funion|) (QUOTE ($$VAL _ (|FUnion| $$VAL BODY)))) (ADDTOVAR LOCALVARS $$STATE $$TMP $$UIV $$UNQ $$FLTR) (ADDTOVAR SYSLOCALVARS $$STATE $$TMP $$UIV $$UNQ $$FLTR) (PUTPROPS UTILISOPRS COPYRIGHT ("Xerox Corporation" 1988)) NIL