- Timestamp:
- 2015-06-15T17:48:54-07:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/monom.lisp
r1890 r1891 197 197 198 198 (defmacro monom-map (fun m &rest ml &aux (result `(copy-seq ,m))) 199 "Map function FUN of one argument over the powers of a monomial M. 200 Fun should map a single FIXNUM argument to FIXNUM. Return a sequence 201 of results." 202 (declare (type monom m1 m2)) 199 203 `(map-into ,result ,fun ,m ,@ml)) 200 204
Note:
See TracChangeset
for help on using the changeset viewer.