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 4396 for branches


Ignore:
Timestamp:
2016-06-07T16:53:25-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4395 r4396  
    623623(defmethod ->sexp ((self poly) &optional vars)
    624624  "Converts a polynomial SELF to a sexp."
    625   (let ((m (mapcar #'(lambda (x) (->sexp x vars))
     625  (let ((m (mapcar #'(lambda (trm) (->sexp trm vars))
    626626                   (poly-termlist self))))
    627627    (cond ((endp m) 0)
Note: See TracChangeset for help on using the changeset viewer.