
(/VERSIONCHECK 2) 

(DEFUN |RESULT;cleanUpDomainForm| (|d| $)
  (PROG (#1=#:G675 |u| #2=#:G674)
    (RETURN
     (SEQ
      (COND
       ((NULL (SPADCALL |d| (QREFELT $ 17))) (SPADCALL |d| (QREFELT $ 18)))
       (#3='T
        (COND
         ((EQL (SPADCALL |d| (QREFELT $ 20)) 1)
          (SPADCALL (SPADCALL |d| (QREFELT $ 21)) (QREFELT $ 18)))
         ((NULL (SPADCALL (SPADCALL |d| (QREFELT $ 21)) (QREFELT $ 22)))
          (QREFELT $ 12))
         (#3#
          (SPADCALL (SPADCALL (SPADCALL |d| (QREFELT $ 21)) (QREFELT $ 18))
                    (PROGN
                     (LETT #2# NIL . #4=(|RESULT;cleanUpDomainForm|))
                     (SEQ (LETT |u| NIL . #4#)
                          (LETT #1#
                                (SPADCALL (SPADCALL |d| (QREFELT $ 23))
                                          (QREFELT $ 25))
                                . #4#)
                          G190
                          (COND
                           ((OR (ATOM #1#)
                                (PROGN (LETT |u| (CAR #1#) . #4#) NIL))
                            (GO G191)))
                          (SEQ
                           (EXIT
                            (LETT #2#
                                  (CONS (|RESULT;cleanUpDomainForm| |u| $) #2#)
                                  . #4#)))
                          (LETT #1# (CDR #1#) . #4#) (GO G190) G191
                          (EXIT (NREVERSE0 #2#))))
                    (QREFELT $ 26)))))))))) 

(DEFUN |RESULT;display| (|v| |d| $)
  (COND
   ((NULL (SPADCALL |d| (QREFELT $ 17))) (|error| "Domain form is non-list"))
   ('T
    (COND
     ((OR (EQL (SPADCALL |d| (QREFELT $ 20)) 1)
          (SPADCALL (SPADCALL |d| (QREFELT $ 21))
                    (SPADCALL '|Complex| (QREFELT $ 29)) (QREFELT $ 30)))
      (COND ((QREFELT $ 13) (SPADCALL |v| (QREFELT $ 28)))
            (#1='T (|RESULT;cleanUpDomainForm| |d| $))))
     ((QREFELT $ 14) (SPADCALL |v| (QREFELT $ 28)))
     (#1# (|RESULT;cleanUpDomainForm| |d| $)))))) 

(DEFUN |RESULT;makeEntry| (|k| |v| $)
  (SPADCALL
   (LIST (SPADCALL |k| (QREFELT $ 10)) (QREFELT $ 11)
         (|RESULT;display| |v| (SPADCALL |v| (QREFELT $ 31)) $))
   (QREFELT $ 32))) 

(DEFUN |RESULT;coerce;$Of;4| (|r| $)
  (PROG (#1=#:G684 |key| #2=#:G683)
    (RETURN
     (SEQ
      (SPADCALL
       (PROGN
        (LETT #2# NIL . #3=(|RESULT;coerce;$Of;4|))
        (SEQ (LETT |key| NIL . #3#)
             (LETT #1# (NREVERSE (SPADCALL |r| (QREFELT $ 34))) . #3#) G190
             (COND
              ((OR (ATOM #1#) (PROGN (LETT |key| (CAR #1#) . #3#) NIL))
               (GO G191)))
             (SEQ
              (EXIT
               (LETT #2#
                     (CONS
                      (|RESULT;makeEntry| |key|
                       (SPADCALL |r| |key| (QREFELT $ 35)) $)
                      #2#)
                     . #3#)))
             (LETT #1# (CDR #1#) . #3#) (GO G190) G191 (EXIT (NREVERSE0 #2#))))
       (QREFELT $ 36)))))) 

(DEFUN |RESULT;showArrayValues;2B;5| (|b| $) (SETELT $ 14 |b|)) 

(DEFUN |RESULT;showScalarValues;2B;6| (|b| $) (SETELT $ 13 |b|)) 

(DEFUN |Result| #1=()
  (PROG #1#
    (RETURN
     (PROG (#2=#:G736)
       (RETURN
        (COND
         ((LETT #2# (HGET |$ConstructorCache| '|Result|) . #3=(|Result|))
          (|CDRwithIncrement| (CDAR #2#)))
         ('T
          (UNWIND-PROTECT
              (PROG1
                  (CDDAR
                   (HPUT |$ConstructorCache| '|Result|
                         (LIST (CONS NIL (CONS 1 (|Result;|))))))
                (LETT #2# T . #3#))
            (COND ((NOT #2#) (HREM |$ConstructorCache| '|Result|))))))))))) 

(DEFUN |Result;| ()
  (PROG (|dv$| $ #1=#:G733 #2=#:G732 |pv$| #3=#:G734)
    (RETURN
     (PROGN
      (LETT |dv$| '(|Result|) . #4=(|Result|))
      (LETT $ (GETREFV 59) . #4#)
      (QSETREFV $ 0 |dv$|)
      (QSETREFV $ 3
                (LETT |pv$|
                      (|buildPredVector| 0 0
                                         (LIST
                                          (|HasCategory|
                                           (|Record| (|:| |key| (|Symbol|))
                                                     (|:| |entry| (|Any|)))
                                           '(|ConvertibleTo| (|InputForm|)))
                                          (LETT #1#
                                                (|HasCategory|
                                                 (|Record|
                                                  (|:| |key| (|Symbol|))
                                                  (|:| |entry| (|Any|)))
                                                 '(|SetCategory|))
                                                . #4#)
                                          (AND #1#
                                               (|HasCategory|
                                                (|Record|
                                                 (|:| |key| (|Symbol|))
                                                 (|:| |entry| (|Any|)))
                                                '(|Evalable|
                                                  (|Record|
                                                   (|:| |key| (|Symbol|))
                                                   (|:| |entry| (|Any|))))))
                                          (|HasCategory| (|Symbol|)
                                                         '(|OrderedSet|))
                                          (LETT #2#
                                                (|HasCategory| (|Any|)
                                                               '(|SetCategory|))
                                                . #4#)
                                          (OR #1# #2#)
                                          (AND #2#
                                               (|HasCategory| (|Any|)
                                                              '(|Evalable|
                                                                (|Any|))))))
                      . #4#))
      (|haddProp| |$ConstructorCache| '|Result| NIL (CONS 1 $))
      (|stuffDomainSlots| $)
      (AND (LETT #3# (|HasCategory| $ '(|finiteAggregate|)) . #4#)
           (|augmentPredVector| $ 128))
      (AND #3# #1# (|augmentPredVector| $ 256))
      (AND #3# #2# (|augmentPredVector| $ 512))
      (AND (|HasCategory| $ '(|shallowlyMutable|))
           (|augmentPredVector| $ 1024))
      (QSETREFV $ 11 (SPADCALL (SPADCALL ": " (QREFELT $ 8)) (QREFELT $ 10)))
      (QSETREFV $ 12 (SPADCALL (SPADCALL "..." (QREFELT $ 8)) (QREFELT $ 10)))
      (QSETREFV $ 13 'NIL)
      (QSETREFV $ 14 'NIL)
      $)))) 

(MAKEPROP '|Result| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL (|Table| 7 27) (|String|) (|Symbol|)
              (0 . |coerce|) (|OutputForm|) (5 . |coerce|) '|colon| '|elide|
              '|showScalarValuesFlag| '|showArrayValuesFlag| (|Boolean|)
              (|SExpression|) (10 . |list?|) (15 . |coerce|) (|Integer|)
              (20 . |#|) (25 . |car|) (30 . |atom?|) (35 . |cdr|) (|List| $)
              (40 . |destruct|) (45 . |prefix|) (|Any|) (51 . |objectOf|)
              (56 . |convert|) (61 . =) (67 . |dom|) (72 . |hconcat|)
              (|List| 7) (77 . |keys|) (82 . |elt|) (88 . |bracket|)
              |RESULT;coerce;$Of;4| |RESULT;showArrayValues;2B;5|
              |RESULT;showScalarValues;2B;6| (|Equation| 27) (|List| 40)
              (|List| 27) (|Record| (|:| |key| 7) (|:| |entry| 27)) (|List| 43)
              (|Equation| 43) (|List| 45) (|NonNegativeInteger|)
              (|Mapping| 43 43 43) (|SingleInteger|) (|InputForm|)
              (|Mapping| 15 27) (|Mapping| 15 43) (|Mapping| 27 27) (|Void|)
              (|Mapping| 43 43) (|Mapping| 27 27 27) (|Union| 27 '"failed")
              (|Union| 43 '"failed"))
           '#(|showScalarValues| 93 |showArrayValues| 98 |keys| 103 |elt| 108
              |coerce| 114)
           'NIL
           (CONS
            (|makeByteWordVec2| 7
                                '(0 0 0 0 0 0 0 0 0 0 0 3 6 7 0 0 0 0 3 6 6 1
                                  7))
            (CONS
             '#(|TableAggregate&| |KeyedDictionary&| |Dictionary&|
                |DictionaryOperations&| |BagAggregate&| |IndexedAggregate&|
                |Collection&| |HomogeneousAggregate&| |HomogeneousAggregate&|
                |EltableAggregate&| |Aggregate&| |Evalable&| |SetCategory&|
                |Evalable&| NIL NIL NIL NIL |InnerEvalable&| |BasicType&| NIL
                NIL |InnerEvalable&|)
             (CONS
              '#((|TableAggregate| 7 27) (|KeyedDictionary| 7 27)
                 (|Dictionary| 43) (|DictionaryOperations| 43)
                 (|BagAggregate| 43) (|IndexedAggregate| 7 27)
                 (|Collection| 43) (|HomogeneousAggregate| 27)
                 (|HomogeneousAggregate| 43) (|EltableAggregate| 7 27)
                 (|Aggregate|) (|Evalable| 43) (|SetCategory|) (|Evalable| 27)
                 (|finiteAggregate|) (|Eltable| 7 27) (|Type|)
                 (|shallowlyMutable|) (|InnerEvalable| 43 43) (|BasicType|)
                 (|CoercibleTo| 9) (|ConvertibleTo| 50)
                 (|InnerEvalable| 27 27))
              (|makeByteWordVec2| 39
                                  '(1 7 0 6 8 1 7 9 0 10 1 16 15 0 17 1 16 9 0
                                    18 1 16 19 0 20 1 16 0 0 21 1 16 15 0 22 1
                                    16 0 0 23 1 16 24 0 25 2 9 0 0 24 26 1 27 9
                                    0 28 1 16 0 7 29 2 16 15 0 0 30 1 27 16 0
                                    31 1 9 0 24 32 1 0 33 0 34 2 0 27 0 7 35 1
                                    9 0 24 36 1 0 15 15 39 1 0 15 15 38 1 0 33
                                    0 34 2 0 27 0 7 35 1 6 9 0 37)))))
           '|lookupIncomplete|)) 

(MAKEPROP '|Result| 'NILADIC T) 
