Changeset 3097
- Timestamp:
- 2015-06-21T23:34:39-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/5am-poly.lisp
r3056 r3097 115 115 ) 116 116 117 117 (test poly-standard-extension 118 "Standard extension" 119 (let* ((p (alist-poly '( ((0) . 1) ((1) . 2)))) 120 (q (alist-poly '( ((0) . 1) ((2) . 3)))) 121 (plist (list p q)) 122 (p-ext (alist->poly '( ((1 0 0) . 1) ((1 0 1) . 2)))) 123 (q-ext (alist->poly '( ((0 1 0) . 1) ((0 1 2) . 3)))) 124 (plist-st-ext (p-ext q-ext))) 125 (is (r-equalp (standard-extension plist) plist-st-ext)))) 118 126 119 127 (run! 'poly-suite)
Note:
See TracChangeset
for help on using the changeset viewer.