
(SDEFUN |MAPPKG1;nullary;AM;1| ((|a| A) ($ |Mapping| A))
        (CONS #'|MAPPKG1;nullary;AM;1!0| |a|)) 

(SDEFUN |MAPPKG1;nullary;AM;1!0| ((|a| NIL)) |a|) 

(SDEFUN |MAPPKG1;coerce;AM;2| ((|a| A) ($ |Mapping| A))
        (SPADCALL |a| (QREFELT $ 8))) 

(PUT '|MAPPKG1;id;2A;3| '|SPADreplace| '(XLAM (|a|) |a|)) 

(SDEFUN |MAPPKG1;id;2A;3| ((|a| A) ($ A)) |a|) 

(SDEFUN |MAPPKG1;^;MNniM;4|
        ((|g| |Mapping| A A) (|n| |NonNegativeInteger|) ($ |Mapping| A A))
        (SPROG NIL (CONS #'|MAPPKG1;^;MNniM;4!0| (VECTOR $ |n| |g|)))) 

(SDEFUN |MAPPKG1;^;MNniM;4!0| ((|a1| NIL) ($$ NIL))
        (PROG (|g| |n| $)
          (LETT |g| (QREFELT $$ 2))
          (LETT |n| (QREFELT $$ 1))
          (LETT $ (QREFELT $$ 0))
          (RETURN (PROGN (SPADCALL |g| |n| |a1| (QREFELT $ 14)))))) 

(SDEFUN |MAPPKG1;recur;2M;5|
        ((|fnaa| |Mapping| A (|NonNegativeInteger|) A)
         ($ |Mapping| A (|NonNegativeInteger|) A))
        (SPROG NIL (CONS #'|MAPPKG1;recur;2M;5!0| (VECTOR $ |fnaa|)))) 

(SDEFUN |MAPPKG1;recur;2M;5!0| ((|n1| NIL) (|a2| NIL) ($$ NIL))
        (PROG (|fnaa| $)
          (LETT |fnaa| (QREFELT $$ 1))
          (LETT $ (QREFELT $$ 0))
          (RETURN (PROGN (SPADCALL |fnaa| |n1| |a2| (QREFELT $ 17)))))) 

(DECLAIM (NOTINLINE |MappingPackage1;|)) 

(DEFUN |MappingPackage1| (#1=#:G706)
  (SPROG NIL
         (PROG (#2=#:G707)
           (RETURN
            (COND
             ((LETT #2#
                    (|lassocShiftWithFunction| (LIST (|devaluate| #1#))
                                               (HGET |$ConstructorCache|
                                                     '|MappingPackage1|)
                                               '|domainEqualList|))
              (|CDRwithIncrement| #2#))
             ('T
              (UNWIND-PROTECT (PROG1 (|MappingPackage1;| #1#) (LETT #2# T))
                (COND
                 ((NOT #2#)
                  (HREM |$ConstructorCache| '|MappingPackage1|)))))))))) 

(DEFUN |MappingPackage1;| (|#1|)
  (SPROG ((|pv$| NIL) ($ NIL) (|dv$| NIL) (DV$1 NIL))
         (PROGN
          (LETT DV$1 (|devaluate| |#1|))
          (LETT |dv$| (LIST '|MappingPackage1| DV$1))
          (LETT $ (GETREFV 19))
          (QSETREFV $ 0 |dv$|)
          (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL)))
          (|haddProp| |$ConstructorCache| '|MappingPackage1| (LIST DV$1)
                      (CONS 1 $))
          (|stuffDomainSlots| $)
          (QSETREFV $ 6 |#1|)
          (SETF |pv$| (QREFELT $ 3))
          $))) 

(MAKEPROP '|MappingPackage1| '|infovec|
          (LIST
           '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|Mapping| 6)
              |MAPPKG1;nullary;AM;1| |MAPPKG1;coerce;AM;2| |MAPPKG1;id;2A;3|
              (|Mapping| 6 6) (|NonNegativeInteger|)
              (|MappingPackageInternalHacks1| 6) (0 . |iter|)
              |MAPPKG1;^;MNniM;4| (|Mapping| 6 12 6) (7 . |recur|)
              |MAPPKG1;recur;2M;5|)
           '#(|recur| 14 |nullary| 19 |id| 24 |coerce| 29 ^ 34) 'NIL
           (CONS (|makeByteWordVec2| 1 '(0))
                 (CONS '#(NIL)
                       (CONS
                        '#((|Join|
                            (|mkCategory|
                             (LIST '((|nullary| ((|Mapping| |#1|) |#1|)) T)
                                   '((|coerce| ((|Mapping| |#1|) |#1|)) T)
                                   '((|id| (|#1| |#1|)) T)
                                   '((^
                                      ((|Mapping| |#1| |#1|)
                                       (|Mapping| |#1| |#1|)
                                       (|NonNegativeInteger|)))
                                     T)
                                   '((|recur|
                                      ((|Mapping| |#1| (|NonNegativeInteger|)
                                                  |#1|)
                                       (|Mapping| |#1| (|NonNegativeInteger|)
                                                  |#1|)))
                                     T))
                             (LIST) NIL NIL)))
                        (|makeByteWordVec2| 18
                                            '(3 13 6 11 12 6 14 3 13 6 16 12 6
                                              17 1 0 16 16 18 1 0 7 6 8 1 0 6 6
                                              10 1 0 7 6 9 2 0 11 11 12 15)))))
           '|lookupComplete|)) 
