Changeset 2036
- Timestamp:
- 2015-06-17T16:00:12-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r2035 r2036 80 80 81 81 (defmethod print-object ((m monom) stream) 82 (princ (slot-value m 'exponents) ))82 (princ (slot-value m 'exponents) stream)) 83 83 84 84 ;; If a monomial is redefined as structure with slot EXPONENTS, the function … … 148 148 (defmethod ring-div ((m1 monom) (m2 monom)) 149 149 "Divide monomial M1 by monomial M2." 150 (with-slots (exponents 1 exponents)150 (with-slots (exponents exponents1) 151 151 m1 152 (with-slots (exponents 2exponents2)152 (with-slots (exponents exponents2) 153 153 m2 154 154 (let* ((exponents (copy-seq exponents1))
Note:
See TracChangeset
for help on using the changeset viewer.