Changeset 4261
- Timestamp:
- 2016-06-04T20:37:49-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3776 r4261 159 159 "Poly-content" 160 160 (let* ((p (alist->poly '( ((1 0 0) . 12) ((1 0 1) . 15)))) 161 (pc 3))161 (pc (make-instance 'integer-ring :value 3))) 162 162 (is (universal-equalp (poly-content p) pc)))) 163 163
Note:
See TracChangeset
for help on using the changeset viewer.