Changeset 2028 for branches/f4grobner/monom.lisp
- Timestamp:
- 2015-06-17T15:47:55-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2027 r2028 79 79 (:default-initargs :dim 0 :exponents nil)) 80 80 81 (defmethod print-object ((m monom ial) stream)81 (defmethod print-object ((m monom) stream) 82 82 (princ (slot-value m 'exponents))) 83 83 … … 91 91 (dim (cond (dimension-suppied-p dimension) 92 92 (initial-exponents-supplied-p (length initial-exponents)) 93 (t (error "You must provide DIMENSION nor INITIAL-EXPONENTS"))))93 (t (error "You must provide DIMENSION or INITIAL-EXPONENTS")))) 94 94 (exponents (cond 95 95 ;; when exponents are supplied
Note:
See TracChangeset
for help on using the changeset viewer.