Changeset 2986
- Timestamp:
- 2015-06-21T15:06:57-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2985 r2986 75 75 (setf (slot-value self 'coeff) coeff))))) 76 76 77 (defmethod update-instance-for-different-class :a fter((old monom) (new term) &key)77 (defmethod update-instance-for-different-class :around ((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 … … 82 82 (unless (slot-boundp new 'coeff) 83 83 (setf (term-coeff new) 1)) 84 (format t "Changed!!! New: ~A.~%" new)) 84 (format t "Changed!!! New: ~A.~%" new) 85 new) 85 86 86 87 #|
Note:
See TracChangeset
for help on using the changeset viewer.