Changeset 4088 for branches/f4grobner/symbolic-polynomial.lisp
- Timestamp:
- 2016-06-01T09:23:43-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r4076 r4088 163 163 (defgeneric poly->string (self &optional vars) 164 164 (:documentation "Render polynomial SELF as a string, using symbolic variables VARS.") 165 (:method ((self list) &optional (vars nil ))165 (:method ((self list) &optional (vars nil vars-p)) 166 166 (assert (eql (car self) :[)) 167 (cons :[ (mapcar #'(lambda (p) (poly->string p vars)) (cdr self)))) 167 (cond (vars-p 168 (cons :[ (mapcar #'(lambda (p) (poly->string p vars)) (cdr self)))) 169 (t 170 (cons :[ (mapcar #'(lambda (p) (poly->string p)) (cdr self)))))) 168 171 (:method ((self poly) &optional (vars nil)) 169 172 ;; Ensure that the number of variables matches the dimension
Note:
See TracChangeset
for help on using the changeset viewer.