Changeset 3286
- Timestamp:
- 2015-06-23T07:44:56-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3285 r3286 67 67 (poly-term-order self) (poly-term-order other))) 68 68 self)) 69 70 (defmethod update-instance-for-different-class ((old term) (new poly)71 &key72 &allow-other-keys)73 (reinitialize-instance new74 :termlist (list old)75 :dimension (monom-dimension old)76 :order #'lex>))77 78 (defmethod update-instance-for-different-class :before ((old monom) (new poly)79 &key80 &allow-other-keys)81 (change-class old 'term))82 83 69 84 70 (defun alist->poly (alist &aux (poly (make-instance 'poly)))
Note:
See TracChangeset
for help on using the changeset viewer.