- Timestamp:
- 2015-06-18T16:42:11-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2296 r2297 66 66 (slot-value self 'exponents))) 67 67 68 (defmethod initialize-instance ((self monom)68 (defmethod initialize-instance :before ((self monom) 69 69 &rest 70 70 args … … 72 72 &allow-other-keys) 73 73 (format t "MONOM::INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args) 74 (call-next-method)) 74 (call-next-method) 75 ) 75 76 76 77 (defmethod initialize-instance ((self monom)
Note:
See TracChangeset
for help on using the changeset viewer.