Changeset 2971
- Timestamp:
- 2015-06-21T14:52:09-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2970 r2971 75 75 (setf (slot-value self 'coeff) coeff))))) 76 76 77 (defmethod update-instance-for-different-class :after((old monom) (new term) &key)77 (defmethod update-instance-for-different-class ((old monom) (new term) &key) 78 78 ;; Changing an instance of class MONOM to class TERM may also 79 79 ;; happen when OLD is an instance of TERM, in which case the 80 80 ;; value of the coefficient should be preserved. 81 (call-next-method) 81 82 (unless (slot-boundp new 'coeff) 82 83 (setf (term-coeff new) 1)) 83 new)84 ) 84 85 85 86 #|
Note:
See TracChangeset
for help on using the changeset viewer.