
(/VERSIONCHECK 2) 

(DEFUN |NCNTFRAC;cfc| (|a| $)
  (PROG ()
    (RETURN
      (SEQ (SPADCALL (CONS #'|NCNTFRAC;cfc!0| (VECTOR $ |a|))
               (QREFELT $ 18)))))) 

(DEFUN |NCNTFRAC;cfc!0| ($$)
  (PROG (|a| $)
    (LETT |a| (QREFELT $$ 1) . #0=(|NCNTFRAC;cfc|))
    (LETT $ (QREFELT $$ 0) . #0#)
    (RETURN
      (PROGN
        (PROG (|aa| |b|)
          (RETURN
            (SEQ (LETT |aa| (SPADCALL |a| (QREFELT $ 8)) NIL)
                 (EXIT (COND
                         ((SPADCALL
                              (LETT |b|
                                    (SPADCALL |a|
                                     (SPADCALL |aa| (QREFELT $ 9))
                                     (QREFELT $ 10))
                                    NIL)
                              (QREFELT $ 12))
                          (SPADCALL |aa| (SPADCALL (QREFELT $ 14))
                              (QREFELT $ 15)))
                         ('T
                          (SPADCALL |aa|
                              (|NCNTFRAC;cfc|
                                  (SPADCALL |b| (QREFELT $ 16)) $)
                              (QREFELT $ 15)))))))))))) 

(DEFUN |NCNTFRAC;continuedFraction;FCf;2| (|a| $)
  (PROG (|aa| |b|)
    (RETURN
      (SEQ (LETT |aa| (SPADCALL |a| (QREFELT $ 8))
                 . #0=(|NCNTFRAC;continuedFraction;FCf;2|))
           (EXIT (COND
                   ((SPADCALL
                        (LETT |b|
                              (SPADCALL |a|
                                  (SPADCALL |aa| (QREFELT $ 9))
                                  (QREFELT $ 10)) . #0#)
                        (QREFELT $ 12))
                    (SPADCALL |aa| (SPADCALL (QREFELT $ 14))
                        (QREFELT $ 20)))
                   ('T
                    (SEQ (COND
                           ((SPADCALL |b| (QREFELT $ 21))
                            (SEQ (LETT |aa| (- |aa| 1) . #0#)
                                 (EXIT (LETT |b|
                                        (SPADCALL |b|
                                         (|spadConstant| $ 22)
                                         (QREFELT $ 24)) . #0#)))))
                         (EXIT (SPADCALL |aa|
                                   (|NCNTFRAC;cfc|
                                    (SPADCALL |b| (QREFELT $ 16)) $)
                                   (QREFELT $ 20))))))))))) 

(DEFUN |NumericContinuedFraction| (#0=#:G1831)
  (PROG ()
    (RETURN
      (PROG (#1=#:G1832)
        (RETURN
          (COND
            ((LETT #1#
                   (|lassocShiftWithFunction| (LIST (|devaluate| #0#))
                       (HGET |$ConstructorCache|
                             '|NumericContinuedFraction|)
                       '|domainEqualList|)
                   . #2=(|NumericContinuedFraction|))
             (|CDRwithIncrement| #1#))
            ('T
             (UNWIND-PROTECT
               (PROG1 (|NumericContinuedFraction;| #0#)
                 (LETT #1# T . #2#))
               (COND
                 ((NOT #1#)
                  (HREM |$ConstructorCache|
                        '|NumericContinuedFraction|))))))))))) 

(DEFUN |NumericContinuedFraction;| (|#1|)
  (PROG (DV$1 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|NumericContinuedFraction|))
        (LETT |dv$| (LIST '|NumericContinuedFraction| DV$1) . #0#)
        (LETT $ (GETREFV 26) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3 (LETT |pv$| (|buildPredVector| 0 0 NIL) . #0#))
        (|haddProp| |$ConstructorCache| '|NumericContinuedFraction|
            (LIST DV$1) (CONS 1 $))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        $)))) 

(MAKEPROP '|NumericContinuedFraction| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|Integer|)
             (0 . |wholePart|) (5 . |coerce|) (10 . -) (|Boolean|)
             (16 . |zero?|) (|Stream| 7) (21 . |empty|) (25 . |concat|)
             (31 . |inv|) (|Mapping| $) (36 . |delay|)
             (|ContinuedFraction| 7) (41 . |reducedContinuedFraction|)
             (47 . |negative?|) (52 . |One|) (56 . |One|) (60 . +)
             |NCNTFRAC;continuedFraction;FCf;2|)
          '#(|continuedFraction| 66) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 25
                                '(1 6 7 0 8 1 6 0 7 9 2 6 0 0 0 10 1 6
                                  11 0 12 0 13 0 14 2 13 0 7 0 15 1 6 0
                                  0 16 1 13 0 17 18 2 19 0 7 13 20 1 6
                                  11 0 21 0 6 0 22 0 19 0 23 2 6 0 0 0
                                  24 1 0 19 6 25)))))
          '|lookupComplete|)) 
