Changeset 3257
- Timestamp:
- 2015-06-22T20:45:30-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3256 r3257 138 138 (cond ((null (poly-dimension self)) 139 139 (setf (poly-dimension self) (monom-dimension other))) 140 (t (assert (= ( monom-dimension item) (poly-dimension self)))))140 (t (assert (= (poly-dimension self) (monom-dimension other))))) 141 141 (mapc #'(lambda (term) (multiply-by term other)) 142 142 (poly-termlist self)) … … 146 146 (cond ((null (poly-dimension self)) 147 147 (setf (poly-dimension self) (monom-dimension other))) 148 (t (assert (= ( monom-dimension item) (poly-dimension self)))))148 (t (assert (= (poly-dimension self) (monom-dimension other))))) 149 149 (mapc #'(lambda (term) (multiply-by term other)) 150 150 (poly-termlist self)) … … 286 286 287 287 (defmethod multiply-by ((self poly) (other poly)) 288 (cond ((null (poly-dimension self)) 289 (setf (poly-dimension self) (monom-dimension other))) 290 (t (assert (= (monom-dimension item) (poly-dimension self))))) 288 (assert (= (monom-dimension self) (poly-dimension other))) 291 289 (change-term-order other self) 292 290 (setf (poly-termlist self) (multiply-termlists (poly-termlist self)
Note:
See TracChangeset
for help on using the changeset viewer.