Changeset 2228
- Timestamp:
- 2015-06-18T11:11:58-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2227 r2228 70 70 71 71 (defmethod make-instance ((self monom) 72 &key 72 &rest args 73 &key 73 74 (dimension nil dimension-suppied-p) 74 75 (exponents nil exponents-supplied-p) 75 (exponent nil exponent-supplied-p)) 76 (exponent nil exponent-supplied-p) 77 &allow-other-keys 78 ) 76 79 "A constructor (factory) of monomials. If DIMENSION is given, a 77 80 sequence of DIMENSION elements of type EXPONENT is constructed, where … … 79 82 to 0. Alternatively, all elements may be specified as a list 80 83 EXPONENTS." 81 (format t "MAKE-INSTANCE called with DIMENSION ~A(~A), EXPONENTS ~A(~A), EXPONENT ~A(~A).~%" 82 dimension dimension-suppied-p 83 exponents exponents-supplied-p 84 exponent exponent-supplied-p) 85 (call-next-method :dimension dimension :exponents exponents)) 84 (format t "MAKE-INSTANCE called with args ~A).~%" args) 85 (call-next-method)) 86 86 87 87 #|
Note:
See TracChangeset
for help on using the changeset viewer.