- Timestamp:
- 2015-06-18T20:15:44-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/term.lisp
r2341 r2342 52 52 initargs 53 53 &key 54 coeff 54 55 &allow-other-keys) 55 56 (format t "TERM::SHARED-INITIALIZE called with:~&SLOT-NAMES: ~W~&INITARGS: ~W.~%" slot-names initargs) 56 (call-next-method)) 57 (setf (slot-value self 'coeff) coeff)) 58 57 59 58 60 #|
Note:
See TracChangeset
for help on using the changeset viewer.