
(/VERSIONCHECK 2) 

(DEFUN |ICDEN;clearDenominator;BA;1| (|l| $)
  (PROG (|d|)
    (RETURN
      (SEQ (LETT |d| (SPADCALL |l| (QREFELT $ 10))
                 |ICDEN;clearDenominator;BA;1|)
           (EXIT (SPADCALL
                     (CONS #'|ICDEN;clearDenominator;BA;1!0|
                           (VECTOR $ |d|))
                     |l| (QREFELT $ 16))))))) 

(DEFUN |ICDEN;clearDenominator;BA;1!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |ICDEN;clearDenominator;BA;1|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL (QREFELT $$ 1) |#1| (QREFELT $ 12))
            (QREFELT $ 13)))))) 

(DEFUN |ICDEN;splitDenominator;BR;2| (|l| $)
  (PROG (|d|)
    (RETURN
      (SEQ (LETT |d| (SPADCALL |l| (QREFELT $ 10))
                 |ICDEN;splitDenominator;BR;2|)
           (EXIT (CONS (SPADCALL
                           (CONS #'|ICDEN;splitDenominator;BR;2!0|
                                 (VECTOR $ |d|))
                           |l| (QREFELT $ 16))
                       |d|)))))) 

(DEFUN |ICDEN;splitDenominator;BR;2!0| (|#1| $$)
  (PROG ($)
    (LETT $ (QREFELT $$ 0) |ICDEN;splitDenominator;BR;2|)
    (RETURN
      (PROGN
        (SPADCALL (SPADCALL (QREFELT $$ 1) |#1| (QREFELT $ 12))
            (QREFELT $ 13)))))) 

(DEFUN |ICDEN;commonDenominator;BR;3| (|l| $)
  (SPADCALL (ELT $ 20) (SPADCALL (ELT $ 21) |l| (QREFELT $ 16))
      (|spadConstant| $ 22) (QREFELT $ 24))) 

(DEFUN |ICDEN;commonDenominator;BR;4| (|l| $)
  (SPADCALL (ELT $ 11) (SPADCALL (ELT $ 21) |l| (QREFELT $ 16))
      (|spadConstant| $ 22) (QREFELT $ 24))) 

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

(DEFUN |InnerCommonDenominator;| (|#1| |#2| |#3| |#4|)
  (PROG (DV$1 DV$2 DV$3 DV$4 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|) . #0=(|InnerCommonDenominator|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT DV$3 (|devaluate| |#3|) . #0#)
        (LETT DV$4 (|devaluate| |#4|) . #0#)
        (LETT |dv$|
              (LIST '|InnerCommonDenominator| DV$1 DV$2 DV$3 DV$4) . #0#)
        (LETT $ (GETREFV 25) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|InnerCommonDenominator|
            (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| '(|GcdDomain|))
           (QSETREFV $ 10
               (CONS (|dispatchFunction|
                         |ICDEN;commonDenominator;BR;3|)
                     $)))
          ('T
           (QSETREFV $ 10
               (CONS (|dispatchFunction|
                         |ICDEN;commonDenominator;BR;4|)
                     $))))
        $)))) 

(MAKEPROP '|InnerCommonDenominator| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|local| |#3|) (|local| |#4|) (0 . |commonDenominator|)
             (5 . *) (11 . *) (17 . |numer|) (|Mapping| 6 7)
             (|FiniteLinearAggregateFunctions2| 7 9 6 8) (22 . |map|)
             |ICDEN;clearDenominator;BA;1|
             (|Record| (|:| |num| 8) (|:| |den| 6))
             |ICDEN;splitDenominator;BR;2| (28 . |lcm|) (34 . |denom|)
             (39 . |One|) (|Mapping| 6 6 6) (43 . |reduce|))
          '#(|splitDenominator| 50 |commonDenominator| 55
             |clearDenominator| 60)
          'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 24
                                '(1 0 6 9 10 2 6 0 0 0 11 2 7 0 6 0 12
                                  1 7 6 0 13 2 15 8 14 9 16 2 6 0 0 0
                                  20 1 7 6 0 21 0 6 0 22 3 8 6 23 0 6
                                  24 1 0 18 9 19 1 0 6 9 10 1 0 8 9 17)))))
          '|lookupComplete|)) 
