Changeset 2373
- Timestamp:
- 2015-06-18T21:26:06-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2366 r2373 63 63 (r-exponents self))) 64 64 65 #|66 65 ;; Debug calls to initialize-instance 67 (defmethod initialize-instance :around((self monom)68 69 70 71 66 (defmethod shared-initialize ((self monom) 67 &rest 68 args 69 &key 70 &allow-other-keys) 72 71 (format t "MONOM::INITIALIZE-INSTANCE called with:~&ARGS: ~W.~%" args) 73 (call-next-method) 74 ) 75 |# 72 (call-next-method)) 73 76 74 77 75 (defmethod shared-initialize :after ((self monom) slot-names
Note:
See TracChangeset
for help on using the changeset viewer.