Changeset 2972
- Timestamp:
- 2015-06-21T14:53:08-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2971 r2972 75 75 (setf (slot-value self 'coeff) coeff))))) 76 76 77 (defmethod update-instance-for-different-class ((old monom) (new term) &key)77 (defmethod update-instance-for-different-class :after ((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)82 81 (unless (slot-boundp new 'coeff) 83 (setf (term-coeff new) 1)) 84 ) 82 (setf (term-coeff new) 1))) 85 83 86 84 #|
Note:
See TracChangeset
for help on using the changeset viewer.