Changeset 4312 for branches/f4grobner/criterion.lisp
- Timestamp:
- 2016-06-04T22:56:30-07:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/criterion.lisp
r4180 r4312 30 30 (in-package :criterion) 31 31 32 (proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0)))32 ;;(proclaim '(optimize (speed 3) (space 0) (safety 0) (debug 0))) 33 33 34 34 (defgeneric criterion-1 (pair) … … 61 61 ;; appear in the hash table B-done 62 62 (dolist (h partial-basis nil) 63 (format t "Considering H:~S~%" h)64 63 (cond 65 64 ((eq h f) … … 79 78 ((:before :in-the-middle) (list h g)) 80 79 (:after (list g h))) 81 b-done)) 80 b-done) 81 ) 82 82 (debug-cgb ":2") 83 83 (return-from criterion-2 t))))))
Note:
See TracChangeset
for help on using the changeset viewer.