
(/VERSIONCHECK 2) 

(DEFUN |BGAGG-;bag;LA;1| (|l| $)
  (PROG (|s| #0=#:G1821 |x|)
    (RETURN
      (SEQ (LETT |x| (SPADCALL (QREFELT $ 8)) . #1=(|BGAGG-;bag;LA;1|))
           (SEQ (LETT |s| NIL . #1#) (LETT #0# |l| . #1#) G190
                (COND
                  ((OR (ATOM #0#)
                       (PROGN (LETT |s| (CAR #0#) . #1#) NIL))
                   (GO G191)))
                (SEQ (EXIT (LETT |x|
                                 (SPADCALL |s| |x| (QREFELT $ 9)) . #1#)))
                (LETT #0# (CDR #0#) . #1#) (GO G190) G191 (EXIT NIL))
           (EXIT |x|))))) 

(DEFUN |BagAggregate&| (|#1| |#2|)
  (PROG (DV$1 DV$2 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|BagAggregate&|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT |dv$| (LIST '|BagAggregate&| DV$1 DV$2) . #0#)
        (LETT $ (GETREFV 12) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        $)))) 

(MAKEPROP '|BagAggregate&| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (0 . |empty|) (4 . |insert!|) (|List| 7)
             |BGAGG-;bag;LA;1|)
          '#(|bag| 10) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 11
                                '(0 6 0 8 2 6 0 7 0 9 1 0 0 10 11)))))
          '|lookupComplete|)) 
