Changeset 481 for branches/f4grobner/criterion.lisp
- Timestamp:
- 2015-06-06T20:46:10-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/criterion.lisp
r478 r481 43 43 (when (monom-rel-prime-p (poly-lm f) (poly-lm g)) 44 44 (debug-cgb ":1") 45 (return-from criterion-1 t))))45 (return-from 'criterion-1 t)))) 46 46 47 47 (defun criterion-2 (pair b-done partial-basis … … 79 79 b-done)) 80 80 (debug-cgb ":2") 81 (return-from criterion-2 t)))))81 (return-from 'criterion-2 t)))))
Note:
See TracChangeset
for help on using the changeset viewer.