Changeset 3158
- Timestamp:
- 2015-06-22T12:10:43-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r3157 r3158 72 72 |# 73 73 74 (defmethod update-instance-for-different-class :after ((old monom) (new term) &key) 74 (defmethod update-instance-for-different-class ((old monom) (new term) 75 &rest initargs &key &allow-other-keys) 75 76 ;; Changing an instance of class MONOM to class TERM may also 76 77 ;; happen when OLD is an instance of TERM, in which case the 77 78 ;; value of the coefficient should be preserved. 78 (unless (slot-boundp new 'coeff) 79 (setf (scalar-coeff new) 1)) 80 new) 79 (apply #'call-next-method (list* old new :coeff 1 nitargs))) 81 80 82 81 #|
Note:
See TracChangeset
for help on using the changeset viewer.