Changeset 3640
- Timestamp:
- 2015-09-05T20:41:40-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/polynomial.lisp
r3639 r3640 200 200 (let ((s (funcall ,add/subtract-fn (lc p) (lc q)))) 201 201 (cond 202 (( r-zerop s)202 ((universal-zerop s) 203 203 (setf p (cdr p)) 204 204 ) … … 315 315 (let ((prod (left-tensor-product-by term other))) 316 316 (cond 317 (( r-zerop prod) nil)317 ((universal-zerop prod) nil) 318 318 (t (list prod))))) 319 319 (poly-termlist self))) … … 326 326 (let ((prod (right-tensor-product-by term other))) 327 327 (cond 328 (( r-zerop prod) nil)328 ((universal-zerop prod) nil) 329 329 (t (list prod))))) 330 330 (poly-termlist self)))
Note:
See TracChangeset
for help on using the changeset viewer.