
(/VERSIONCHECK 2) 

(DEFUN |ULSCCAT-;zero?;SB;1| (|x| $)
  (SPADCALL (SPADCALL |x| (QREFELT $ 9)) (QREFELT $ 11))) 

(DEFUN |ULSCCAT-;retract;SUTS;2| (|x| $)
  (SPADCALL |x| (QREFELT $ 13))) 

(DEFUN |ULSCCAT-;retractIfCan;SU;3| (|x| $)
  (SPADCALL |x| (QREFELT $ 16))) 

(DEFUN |UnivariateLaurentSeriesConstructorCategory&| (|#1| |#2| |#3|)
  (PROG (DV$1 DV$2 DV$3 |dv$| $ |pv$|)
    (RETURN
      (PROGN
        (LETT DV$1 (|devaluate| |#1|)
              . #0=(|UnivariateLaurentSeriesConstructorCategory&|))
        (LETT DV$2 (|devaluate| |#2|) . #0#)
        (LETT DV$3 (|devaluate| |#3|) . #0#)
        (LETT |dv$|
              (LIST '|UnivariateLaurentSeriesConstructorCategory&| DV$1
                    DV$2 DV$3) . #0#)
        (LETT $ (GETREFV 24) . #0#)
        (QSETREFV $ 0 |dv$|)
        (QSETREFV $ 3
            (LETT |pv$|
                  (|buildPredVector| 0 0
                      (LIST (|HasCategory| |#2| '(|Field|)))) . #0#))
        (|stuffDomainSlots| $)
        (QSETREFV $ 6 |#1|)
        (QSETREFV $ 7 |#2|)
        (QSETREFV $ 8 |#3|)
        $)))) 

(MAKEPROP '|UnivariateLaurentSeriesConstructorCategory&| '|infovec|
    (LIST '#(NIL NIL NIL NIL NIL NIL (|local| |#1|) (|local| |#2|)
             (|local| |#3|) (0 . |taylorRep|) (|Boolean|) (5 . |zero?|)
             |ULSCCAT-;zero?;SB;1| (10 . |taylor|)
             |ULSCCAT-;retract;SUTS;2| (|Union| 8 '"failed")
             (15 . |taylorIfCan|) |ULSCCAT-;retractIfCan;SU;3|
             (|Union| 19 '"failed") (|Integer|) (|Union| 21 '"failed")
             (|Fraction| 19) (|Union| 23 '"failed") (|Symbol|))
          '#(|zero?| 20 |retractIfCan| 25 |retract| 30) 'NIL
          (CONS (|makeByteWordVec2| 1 'NIL)
                (CONS '#()
                      (CONS '#()
                            (|makeByteWordVec2| 17
                                '(1 6 8 0 9 1 8 10 0 11 1 6 8 0 13 1 6
                                  15 0 16 1 0 10 0 12 1 0 15 0 17 1 0 8
                                  0 14)))))
          '|lookupComplete|)) 
