
(SDEFUN |RESULT;cleanUpDomainForm| ((|d| |SExpression|) ($ |OutputForm|))
        (SPROG ((#1=#:G722 NIL) (|u| NIL) (#2=#:G721 NIL))
               (SEQ
                (COND
                 ((NULL (SPADCALL |d| (QREFELT $ 15)))
                  (SPADCALL |d| (QREFELT $ 16)))
                 (#3='T
                  (COND
                   ((EQL (SPADCALL |d| (QREFELT $ 18)) 1)
                    (SPADCALL (SPADCALL |d| (QREFELT $ 19)) (QREFELT $ 16)))
                   ((NULL
                     (SPADCALL (SPADCALL |d| (QREFELT $ 19)) (QREFELT $ 20)))
                    (QREFELT $ 10))
                   (#3#
                    (SPADCALL
                     (SPADCALL (SPADCALL |d| (QREFELT $ 19)) (QREFELT $ 16))
                     (PROGN
                      (LETT #2# NIL . #4=(|RESULT;cleanUpDomainForm|))
                      (SEQ (LETT |u| NIL . #4#)
                           (LETT #1#
                                 (SPADCALL (SPADCALL |d| (QREFELT $ 21))
                                           (QREFELT $ 23))
                                 . #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 (NREVERSE #2#))))
                     (QREFELT $ 24))))))))) 

(SDEFUN |RESULT;display| ((|v| |Any|) (|d| |SExpression|) ($ |OutputForm|))
        (COND
         ((NULL (SPADCALL |d| (QREFELT $ 15)))
          (|error| "Domain form is non-list"))
         ('T
          (COND
           ((OR (EQL (SPADCALL |d| (QREFELT $ 18)) 1)
                (SPADCALL (SPADCALL |d| (QREFELT $ 19))
                          (SPADCALL '|Complex| (QREFELT $ 27)) (QREFELT $ 28)))
            (COND ((QREFELT $ 11) (SPADCALL |v| (QREFELT $ 26)))
                  (#1='T (|RESULT;cleanUpDomainForm| |d| $))))
           ((QREFELT $ 12) (SPADCALL |v| (QREFELT $ 26)))
           (#1# (|RESULT;cleanUpDomainForm| |d| $)))))) 

(SDEFUN |RESULT;makeEntry| ((|k| |Symbol|) (|v| |Any|) ($ |OutputForm|))
        (SPADCALL
         (LIST (SPADCALL |k| (QREFELT $ 8)) (QREFELT $ 9)
               (|RESULT;display| |v| (SPADCALL |v| (QREFELT $ 29)) $))
         (QREFELT $ 30))) 

(SDEFUN |RESULT;coerce;$Of;4| ((|r| $) ($ |OutputForm|))
        (SPROG ((#1=#:G734 NIL) (|key| NIL) (#2=#:G733 NIL))
               (SEQ
                (SPADCALL
                 (PROGN
                  (LETT #2# NIL . #3=(|RESULT;coerce;$Of;4|))
                  (SEQ (LETT |key| NIL . #3#)
                       (LETT #1# (NREVERSE (SPADCALL |r| (QREFELT $ 32)))
                             . #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 $ 33)) $)
                                #2#)
                               . #3#)))
                       (LETT #1# (CDR #1#) . #3#) (GO G190) G191
                       (EXIT (NREVERSE #2#))))
                 (QREFELT $ 34))))) 

(SDEFUN |RESULT;showArrayValues;2B;5| ((|b| |Boolean|) ($ |Boolean|))
        (SETELT $ 12 |b|)) 

(SDEFUN |RESULT;showScalarValues;2B;6| ((|b| |Boolean|) ($ |Boolean|))
        (SETELT $ 11 |b|)) 

(DECLAIM (NOTINLINE |Result;|)) 

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

(DEFUN |Result;| ()
  (SPROG
   ((|dv$| NIL) ($ NIL) (#1=#:G786 NIL) (#2=#:G785 NIL) (|pv$| NIL)
    (#3=#:G787 NIL) (#4=#:G788 NIL))
   (PROGN
    (LETT |dv$| '(|Result|) . #5=(|Result|))
    (LETT $ (GETREFV 59) . #5#)
    (QSETREFV $ 0 |dv$|)
    (QSETREFV $ 3
              (LETT |pv$|
                    (|buildPredVector| 0 0
                                       (LIST
                                        (|HasCategory|
                                         (|Record| (|:| |key| (|Symbol|))
                                                   (|:| |entry| (|Any|)))
                                         '(|ConvertibleTo| (|InputForm|)))
                                        (|HasCategory|
                                         (|Record| (|:| |key| (|Symbol|))
                                                   (|:| |entry| (|Any|)))
                                         '(|BasicType|))
                                        (|HasCategory| (|Symbol|)
                                                       '(|OrderedSet|))
                                        (OR
                                         (|HasCategory| (|Any|)
                                                        '(|CoercibleTo|
                                                          (|OutputForm|)))
                                         (|HasCategory|
                                          (|Record| (|:| |key| (|Symbol|))
                                                    (|:| |entry| (|Any|)))
                                          '(|CoercibleTo| (|OutputForm|))))
                                        (|HasCategory| (|Any|) '(|BasicType|))
                                        (LETT #1#
                                              (|HasCategory| (|Any|)
                                                             '(|SetCategory|))
                                              . #5#)
                                        (AND
                                         (|HasCategory| (|Any|)
                                                        '(|Evalable| (|Any|)))
                                         #1#)
                                        (LETT #2#
                                              (|HasCategory|
                                               (|Record| (|:| |key| (|Symbol|))
                                                         (|:| |entry| (|Any|)))
                                               '(|SetCategory|))
                                              . #5#)
                                        (AND
                                         (|HasCategory|
                                          (|Record| (|:| |key| (|Symbol|))
                                                    (|:| |entry| (|Any|)))
                                          '(|Evalable|
                                            (|Record| (|:| |key| (|Symbol|))
                                                      (|:| |entry| (|Any|)))))
                                         #2#)
                                        (OR
                                         (|HasCategory| (|Any|) '(|BasicType|))
                                         #1#
                                         (|HasCategory|
                                          (|Record| (|:| |key| (|Symbol|))
                                                    (|:| |entry| (|Any|)))
                                          '(|BasicType|))
                                         #2#)
                                        (OR #1# #2#)
                                        (OR
                                         (|HasCategory| (|Any|)
                                                        '(|CoercibleTo|
                                                          (|OutputForm|)))
                                         #1#
                                         (|HasCategory|
                                          (|Record| (|:| |key| (|Symbol|))
                                                    (|:| |entry| (|Any|)))
                                          '(|CoercibleTo| (|OutputForm|)))
                                         #2#)))
                    . #5#))
    (|haddProp| |$ConstructorCache| '|Result| NIL (CONS 1 $))
    (|stuffDomainSlots| $)
    (AND (LETT #3# (|HasCategory| $ '(|finiteAggregate|)) . #5#)
         (|augmentPredVector| $ 4096))
    (AND #3#
         (|HasCategory| (|Record| (|:| |key| (|Symbol|)) (|:| |entry| (|Any|)))
                        '(|BasicType|))
         (|augmentPredVector| $ 8192))
    (AND
     (LETT #4#
           (AND (|HasCategory| $ '(|finiteAggregate|))
                (|HasCategory| (|Any|) '(|BasicType|)))
           . #5#)
     (|augmentPredVector| $ 16384))
    (AND
     (OR #4#
         (AND #3#
              (|HasCategory|
               (|Record| (|:| |key| (|Symbol|)) (|:| |entry| (|Any|)))
               '(|BasicType|)))
         #1# #2#)
     (|augmentPredVector| $ 32768))
    (AND (|HasCategory| $ '(|shallowlyMutable|)) (|augmentPredVector| $ 65536))
    (SETF |pv$| (QREFELT $ 3))
    (QSETREFV $ 9 (SPADCALL '|: | (QREFELT $ 8)))
    (QSETREFV $ 10 (SPADCALL '|...| (QREFELT $ 8)))
    (QSETREFV $ 11 NIL)
    (QSETREFV $ 12 NIL)
    $))) 

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

(MAKEPROP '|Result| 'NILADIC T) 
