Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defmacro do-primes ((var start end) &body body)
- (with-gensyms (ending-value-name)
- `(do ((,var (next-prime ,start) (next-prime (1+ ,var)))
- (,ending-value-name ,end))
- ((> ,var ,ending-value-name))
- ,@body)))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement