Changeset 2377
- Timestamp:
- 2015-06-18T21:31:48-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2376 r2377 48 48 ) 49 49 50 (defmethod shared-initialize ((self term) slot-names 51 &rest 52 initargs 53 &key 54 coeff 55 &allow-other-keys) 56 (format t "TERM::SHARED-INITIALIZE called with:~&SLOT-NAMES: ~W~&INITARGS: ~W.~%" slot-names initargs) 57 (setf (slot-value self 'coeff coeff)) 58 (call-next-method) 59 ) 60 50 61 51 62 #| … … 70 81 or NIL when the product is 0. This definition takes care of divisors of 0 71 82 in the coefficient ring." 72 (format t "TERM::R* called with:~& TERM1: ~A~& TERM2: ~A~%" term1 term2)83 ;;(format t "TERM::R* called with:~& TERM1: ~A~& TERM2: ~A~%" term1 term2) 73 84 (change-class (call-next-method) 'term)) 74 85
Note:
See TracChangeset
for help on using the changeset viewer.