
(/VERSIONCHECK 2) 

(DEFUN |FS2;smpmap| (|fn| |p| $)
  (PROG ()
    (RETURN
      (SPADCALL (CONS #'|FS2;smpmap!1| (VECTOR |fn| $))
          (CONS #'|FS2;smpmap!2| (VECTOR $ |fn|)) |p| (QREFELT $ 21))))) 

(DEFUN |FS2;smpmap!2| (|#1| $$)
  (SPADCALL (SPADCALL |#1| (QREFELT $$ 1)) (QREFELT (QREFELT $$ 0) 16))) 

(DEFUN |FS2;smpmap!1| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 1) |FS2;smpmap|)
    (RETURN
      (PROGN
        (SPADCALL (CONS #'|FS2;smpmap!0| (VECTOR $ (QREFELT $$ 0)))
            |#1| (QREFELT $ 15)))))) 

(DEFUN |FS2;smpmap!0| (|#1| $$)
  (SPADCALL (QREFELT $$ 1) |#1| (QREFELT (QREFELT $$ 0) 11))) 

(DEFUN |FS2;map;MAB;2| (|f| |x| $)
  (SPADCALL (|FS2;smpmap| |f| (SPADCALL |x| (QREFELT $ 23)) $)
      (|FS2;smpmap| |f| (SPADCALL |x| (QREFELT $ 24)) $)
      (QREFELT $ 25))) 

(DEFUN |FS2;map;MAB;3| (|f| |x| $)
  (PROG (#0=#:G1826)
    (RETURN
      (SPADCALL (|FS2;smpmap| |f| (SPADCALL |x| (QREFELT $ 23)) $)
          (PROG2 (LETT #0#
                       (SPADCALL
                           (|FS2;smpmap| |f|
                               (SPADCALL |x| (QREFELT $ 24)) $)
                           (QREFELT $ 27))
                       |FS2;map;MAB;3|)
                 (QCDR #0#)
            (|check-union| (QEQCAR #0# 0) (QREFELT $ 9) #0#))
          (QREFELT $ 28))))) 

(DEFUN |FS2;map;MAB;4| (|f| |x| $)
  (|FS2;smpmap| |f| (SPADCALL |x| (QREFELT $ 23)) $)) 

(DEFUN |FunctionSpaceFunctions2| (&REST #0=#:G1830)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1831)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (|devaluateList| #0#)
                       (HGET |$ConstructorCache|
                             '|FunctionSpaceFunctions2|)
                       '|domainEqualList|)
                   . #2=(|FunctionSpaceFunctions2|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (APPLY (|function| |FunctionSpaceFunctions2;|)
                             #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache| '|FunctionSpaceFunctions2|))))))))))) 

(DEFUN |FunctionSpaceFunctions2;| (|#1| |#2| |#3| |#4|)
  (PROG (DV$1 DV$2 DV$3 DV$4 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|FunctionSpaceFunctions2|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT DV$3 (|devaluate| |#3|) . #0#)
        (LETT DV$4 (|devaluate| |#4|) . #0#)
        (LETT |dv$|
              (LIST '|FunctionSpaceFunctions2| DV$1 DV$2 DV$3 DV$4) . #0#)
        (LETT $ (GETREFV 29) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|FunctionSpaceFunctions2|
            (LIST DV$1 DV$2 DV$3 DV$4) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 8 |#3|)
        (QSETREFV $ 9 |#4|)
        (COND
          ((|HasCategory| |#1| '(|IntegralDomain|))
           (COND
             ((|HasCategory| |#3| '(|IntegralDomain|))
              (QSETREFV $ 11
                  (CONS (|dispatchFunction| |FS2;map;MAB;2|) $)))
             ('T
              (QSETREFV $ 11
                  (CONS (|dispatchFunction| |FS2;map;MAB;3|) $)))))
          ('T
           (QSETREFV $ 11
               (CONS (|dispatchFunction| |FS2;map;MAB;4|) $))))
        $)))) 

(MAKEPROP '|FunctionSpaceFunctions2| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|local| |#3|) (|local| |#4|) (|Mapping| 8 6) (0 . |map|)
             (|Mapping| 9 7) (|Kernel| 7)
             (|ExpressionSpaceFunctions2| 7 9) (6 . |map|)
             (12 . |coerce|) (|Mapping| 9 13) (|Mapping| 9 6)
             (|SparseMultivariatePolynomial| 6 13)
             (|PolynomialCategoryLifting| (|IndexedExponents| 13) 13 6
                 19 9)
             (17 . |map|)
             (|SparseMultivariatePolynomial| 6 (|Kernel| $))
             (24 . |numer|) (29 . |denom|) (34 . /)
             (|Union| $ '"failed") (40 . |recip|) (45 . *))
          '#(|map| 51) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 28
                                '(2 0 9 10 7 11 2 14 9 12 13 15 1 9 0 8
                                  16 3 20 9 17 18 19 21 1 7 22 0 23 1 7
                                  22 0 24 2 9 0 0 0 25 1 9 26 0 27 2 9
                                  0 0 0 28 2 0 9 10 7 11)))))
          '|lookupComplete|)) 
