;;; RATPOLY+ (p q)                                                   [FUNCTION]
;;;    Add polynomials P and Q.
;;;
;;; RATPOLY- (p q)                                                   [FUNCTION]
;;;
;;; RATPOLY-UMINUS (p)                                               [FUNCTION]
;;;
;;; RATPOLY* (p q)                                                   [FUNCTION]
;;;    Multiply polynomials P and Q.
;;;
;;; SCALAR-TIMES-RATPOLY (scalar p)                                  [FUNCTION]
;;;    Multiply scalar SCALAR by a polynomial P.
;;;
;;; RAT-TIMES-RATPOLY (scalar p)                                     [FUNCTION]
;;;    Multiply rational function SCALAR by a polynomial P.
;;;
;;; RATPOLY-DIVIDE (f g)                                             [FUNCTION]
;;;    Divide polynomial F by G. Return quotient and remainder as multiple
;;;    values. 
;;;
;;; RATPOLY-REMAINDER (f g)                                          [FUNCTION]
;;;    The remainder of the division of a polynomial F by G.
;;;
;;; RATPOLY-GCD (f g)                                                [FUNCTION]
;;;    Return GCD of polynomials F and G.
;;;
;;; RATPOLY-DIFF (f)                                                 [FUNCTION]
;;;    Differentiate a polynomial.
;;;
;;; RATPOLY-SQUARE-FREE (f)                                          [FUNCTION]
;;;    Return the square-free part of a polynomial F.
;;;
;;; RATPOLY-NORMALIZE (f)                                            [FUNCTION]
;;;    Divide a non-zero polynomial by the coefficient at the highest power.
;;;
;;; RATPOLY-RESULTANT (f g)                                          [FUNCTION]
;;;    Return the resultant of polynomials F and G.
;;;
;;; DEG (s)                                                          [FUNCTION]
;;;
;;; LEAD (s)                                                         [FUNCTION]
;;;
;;; RATPOLY-DISCRIMINANT (p &aux (l (deg p)))                        [FUNCTION]
;;;    The discriminant of a polynomial P.
;;;
;;; RATPOLY-PRINT (p vars &optional (stream t) (beg t) (p-orig p))   [FUNCTION]
;;;
;;; POLY-TO-RATPOLY (p)                                              [FUNCTION]
;;;
;;; POLY-TO-POLY1 (p &aux (htab (make-hash-table)) q)                [FUNCTION]
;;;
;;; POLY1-TO-RATPOLY (p)                                             [FUNCTION]
;;;
;;; RATPOLY-TO-POLY1 (p)                                             [FUNCTION]
;;;    Convert every coefficient of ratpoly to polynomial if possible
;;;
;;; POLY1-TO-POLY (p)                                                [FUNCTION]
;;;    Convert a ratpoly, whose coeffs have been converted to poly,
;;;    into a poly structure, i.e. tack in powers of first variable.
;;;
;;; RATPOLY-TO-POLY (p)                                              [FUNCTION]
;;;
;;; POLY-RESULTANT (f g)                                             [FUNCTION]
;;;    Calculate resultant of F and G given in poly i.e. alist
;;;    representation. 
;;;