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 4076


Ignore:
Timestamp:
2016-05-31T21:27:17-07:00 (9 years ago)
Author:
Marek Rychlik
Message:

* empty log message *

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/f4grobner/symbolic-polynomial.lisp

    r4067 r4076  
    119119  (with-input-from-string (s str)
    120120    (let ((p-or-plist (read-poly vars :stream s :order order)))
    121       (typecase p-or-plist
     121      (etypecase p-or-plist
    122122        (poly (change-class p-or-plist 'symbolic-poly :vars vars))
    123123        (cons
     
    163163(defgeneric poly->string (self &optional vars)
    164164  (:documentation "Render polynomial SELF as a string, using symbolic variables VARS.")
     165  (:method ((self list) &optional (vars nil))
     166    (assert (eql (car self) :[))
     167    (cons :[ (mapcar #'(lambda (p) (poly->string p vars)) (cdr self))))
    165168  (:method ((self poly) &optional (vars nil))
    166169    ;; Ensure that the number of variables matches the dimension
Note: See TracChangeset for help on using the changeset viewer.