Changeset 4483 for branches/f4grobner
- Timestamp:
- 2016-06-15T18:33:31-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/division.lisp
r4463 r4483 87 87 (debug-cgb "~&~3T~d reduction~:p" division-count) 88 88 (when (null r) (debug-cgb " ---> 0")) 89 (values a (make-instance 'poly :termlist r) c division-count))89 (values a (make-instance 'poly :termlist (nreverse r)) c division-count)) 90 90 (declare (fixnum division-count)) 91 91 ;; Check the loop invariant here … … 224 224 (stat2 225 225 (every #'universal-zerop 226 (makelist (normal-form (copy-instance (elt f i)) gnil)226 (makelist (normal-form (copy-instance (elt f i)) (mapcar #'copy-instance g) nil) 227 227 (i 0 (1- (length f))))))) 228 228 (unless stat1
Note:
See TracChangeset
for help on using the changeset viewer.