
(/VERSIONCHECK 2) 

(DEFUN |DIOPS-;construct;LA;1| (|l| $) (SPADCALL |l| (QREFELT $ 9))) 

(DEFUN |DIOPS-;dictionary;A;2| ($) (SPADCALL (QREFELT $ 11))) 

(DEFUN |DIOPS-;copy;2A;3| (|d| $)
  (SPADCALL (SPADCALL |d| (QREFELT $ 13)) (QREFELT $ 9))) 

(DEFUN |DIOPS-;coerce;AOf;4| (|s| $)
  (PROG (#1=#:G3805 |x| #2=#:G3804)
    (RETURN
     (SEQ
      (SPADCALL (SPADCALL "dictionary" (QREFELT $ 17))
                (PROGN
                 (LETT #2# NIL . #3=(|DIOPS-;coerce;AOf;4|))
                 (SEQ (LETT |x| NIL . #3#)
                      (LETT #1# (SPADCALL |s| (QREFELT $ 13)) . #3#) G190
                      (COND
                       ((OR (ATOM #1#) (PROGN (LETT |x| (CAR #1#) . #3#) NIL))
                        (GO G191)))
                      (SEQ
                       (EXIT
                        (LETT #2# (CONS (SPADCALL |x| (QREFELT $ 18)) #2#)
                              . #3#)))
                      (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                      (EXIT (NREVERSE0 #2#))))
                (QREFELT $ 20)))))) 

(DEFUN |DictionaryOperations&| (|#1| |#2|)
  (PROG (|pv$| $ |dv$| DV$2 DV$1)
    (RETURN
     (PROGN
      (LETT DV$1 (|devaluate| |#1|) . #1=(|DictionaryOperations&|))
      (LETT DV$2 (|devaluate| |#2|) . #1#)
      (LETT |dv$| (LIST '|DictionaryOperations&| DV$1 DV$2) . #1#)
      (LETT $ (GETREFV 22) . #1#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (|HasCategory| |#1|
                                                         '(|finiteAggregate|))))
                      . #1#))
      (|stuffDomainSlots| $)
      (QSETREFV $ 6 |#1|)
      (QSETREFV $ 7 |#2|)
      (COND
       ((|testBitVector| |pv$| 1)
        (PROGN
         (QSETREFV $ 14 (CONS (|dispatchFunction| |DIOPS-;copy;2A;3|) $))
         (QSETREFV $ 21 (CONS (|dispatchFunction| |DIOPS-;coerce;AOf;4|) $)))))
      $)))) 

(MAKEPROP '|DictionaryOperations&| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|) (|List| 7)
              (0 . |dictionary|) |DIOPS-;construct;LA;1| (5 . |empty|)
              |DIOPS-;dictionary;A;2| (9 . |parts|) (14 . |copy|)
              (|OutputForm|) (|String|) (19 . |coerce|) (24 . |coerce|)
              (|List| $) (29 . |prefix|) (35 . |coerce|))
           '#(|dictionary| 40 |copy| 44 |construct| 49 |coerce| 54) 'NIL
           (CONS (|makeByteWordVec2| 1 'NIL)
                 (CONS '#()
                       (CONS '#()
                             (|makeByteWordVec2| 21
                                                 '(1 6 0 8 9 0 6 0 11 1 6 8 0
                                                   13 1 0 0 0 14 1 16 15 0 17 1
                                                   7 15 0 18 2 15 0 0 19 20 1 0
                                                   15 0 21 0 0 0 12 1 0 0 0 14
                                                   1 0 0 8 10 1 0 15 0 21)))))
           '|lookupComplete|)) 
