Changeset 2884
- Timestamp:
- 2015-06-21T11:56:11-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2883 r2884 75 75 (setf (slot-value self 'coeff) coeff))))) 76 76 77 (defmethod update-instance-for-different-class :before((old monom)77 (defmethod update-instance-for-different-class ((old monom) 78 78 (new term) 79 79 &key) … … 83 83 ;; This implementation calls R-COEFF, which satisfies 84 84 ;; this requirement. 85 (setf (slot-value new 'coeff) 1) 86 (call-next-method)) 85 (setf (slot-value new 'coeff) 1)) 86 87 87 88 88 #|
Note:
See TracChangeset
for help on using the changeset viewer.