Changeset 866
- Timestamp:
- 2015-06-09T11:24:03-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monomial.lisp
r852 r866 204 204 205 205 (defmacro monom-map (fun m &rest ml &aux (result `(copy-structure ,m))) 206 `(map-into (monom-exponents ,result) ,fun ,m,@ml))206 `(map-into (monom-exponents ,result) ,fun (monom-exponents ,m) ,@ml)) 207 207 208 208 (defmacro monom-append (m1 m2)
Note:
See TracChangeset
for help on using the changeset viewer.