close Warning: Can't synchronize with repository "(default)" (The repository directory has changed, you should resynchronize the repository with: trac-admin $ENV repository resync '(default)'). Look in the Trac log for more information.

Changeset 1171 for branches/f4grobner


Ignore:
Timestamp:
2015-06-10T19:58:43-07:00 (10 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r1170 r1171  
    414414MONOM[I] is a list of exponents in the monomial and COEFF[I] is the
    415415corresponding coefficient in the ring."
    416   (declare (type poly p))
    417   (mapcar #'term->cons (poly-termlist p)))
     416  (cond
     417    ((poly-p p)
     418     (mapcar #'term->cons (poly-termlist p)))
     419    ((and (consp p) (eq (car p) :[))
     420     (const :[ (mapcar #'poly->alist (cdr p))))))
    418421
    419422(defun string->alist (str vars
Note: See TracChangeset for help on using the changeset viewer.