Changeset 3687
- Timestamp:
- 2015-09-06T05:52:03-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3680 r3687 158 158 (is (universal-equalp (poly-content p) pc)))) 159 159 160 (test poly-primitive-part 161 "Poly-primitive-part" 162 (let* ((p (alist->poly '( ((1 0 0) . 12) ((1 0 1) . 15)))) 163 (pp (alist->poly '( ((1 0 0) . 4) ((1 0 1) . 5))))) 164 (is (universal-equalp (poly-primitive-part p) pp)))) 160 165 161 166 (run! 'poly-suite)
Note:
See TracChangeset
for help on using the changeset viewer.