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 4036


Ignore:
Timestamp:
2016-05-31T16:19:05-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/f4grobner/polynomial.lisp

    r4035 r4036  
    605605(defmethod ->sexp ((self poly) &optional vars)
    606606  "Converts a polynomial SELF to a sexp."
    607   (cons '+ (mapcar #'(lambda (x) (->sexp x vars))
     607  (let ((m (mapcar #'(lambda (x) (->sexp x vars))
    608608                   (poly-termlist self))))
     609    (cons ((endp m) 0)
     610          ((endp (cdr m)) (car m))
     611          (t (cons '+ m)))))
    609612
    610613(defparameter +list-marker+ :[
Note: See TracChangeset for help on using the changeset viewer.