Changeset 2245
- Timestamp:
- 2015-06-18T11:32:55-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2244 r2245 61 61 (:default-initargs :dimension 0 :exponents nil)) 62 62 63 (defmethod print-object ((m monom) stream) 64 (princ (slot-value m 'exponents) stream)) 63 (defmethod print-object ((self monom) stream) 64 (format stream "#<MONOM DIMENSION=~A EXPONENTS=~A>" 65 (slot-value self 'dimension) 66 (slot-value self 'exponents))) 65 67 66 68 (defmethod initialize-instance :after ((self monom) … … 89 91 ;; otherwise, all exponents are zero 90 92 (t 91 (make-array (list dimension) :element-type 'exponent :initial-element 0))))) 93 (make-array (list dimension) :element-type 'exponent :initial-element 0))))))) 92 94 93 95
Note:
See TracChangeset
for help on using the changeset viewer.