Changeset 3339
- Timestamp:
- 2015-06-23T11:31:20-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/symbolic-polynomial.lisp
r3338 r3339 57 57 58 58 59 (defun update-instance-for-different-class ((old term) (new symbolic-poly-vars) &key)59 (defun update-instance-for-different-class :after ((old term) (new symbolic-poly-vars) &key) 60 60 "Coerce an element of the coefficient ring to a constant polynomial." 61 61 (reinitialize-instance new 62 :termlist (list old) 63 0)) 62 :dimension (monom-dimension term) 63 :termlist (list old))) 64 64 65 65 66 #|
Note:
See TracChangeset
for help on using the changeset viewer.