Changeset 3161 for branches/f4grobner/term.lisp
- Timestamp:
- 2015-06-22T12:52:08-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r3160 r3161 51 51 dimension 52 52 exponents 53 coeff)) 53 ;;coeff 54 #\?)) 54 55 self) 55 56 … … 81 82 ;; happen when OLD is an instance of TERM, in which case the 82 83 ;; value of the coefficient should be preserved. 83 (setf initargs (list* :coeff 1 initargs)) 84 (call-next-method)) 84 `(call-next-method :coeff 1 ,@initargs)) 85 85 86 86 #|
Note:
See TracChangeset
for help on using the changeset viewer.