Changeset 1228
- Timestamp:
- 2015-06-11T13:46:11-07:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/f4grobner/utils.lisp
r1200 r1228 22 22 (defpackage "UTILS" 23 23 (:use :cl) 24 (:export "MAKELIST-1" "MAKELIST" ))24 (:export "MAKELIST-1" "MAKELIST" "SUMMATION")) 25 25 26 26 (in-package :utils) … … 63 63 ((> ,var ,hi) ,l) 64 64 (declare (fixnum ,var)))))) 65 66 (defmacro summation (expr (var lo hi &optional (step 1) (addition '+))) 67 `(,addition ,@`(makelist ,expr ,var ,lo ,hi ,step))) 68 69
Note:
See TracChangeset
for help on using the changeset viewer.