Changeset 3168
- Timestamp:
- 2015-06-22T13:28:13-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r3167 r3168 51 51 dimension 52 52 exponents 53 coeff)) 54 self) 53 coeff))) 55 54 56 55 … … 76 75 |# 77 76 78 (defmethod update-instance-for-different-class :a round((old monom) (new term)77 (defmethod update-instance-for-different-class :after ((old monom) (new term) 79 78 &rest 80 79 initargs 81 80 &key 82 81 &allow-other-keys) 83 (setf (scalar-coeff new) 1) 84 new) 82 (format t "Initargs:~A" initargs) 83 (prog1 (call-next-method) 84 (format t "Old:~A New:~A" old new)) 85 ) 85 86 86 87
Note:
See TracChangeset
for help on using the changeset viewer.