Tools
amstdam.lst
Associated article: Adding Extensions to Lisp
Tags: Tools Parallel
_Adding Extensions to Lisp_
by Jonathan Amsterdam
Listing 1.
(defmacro for (var-from-to &rest body)
(let ((var (first var-from-to))
(from (second var-from-to))
(to (third var-from-to)))
`(prog (,var)
(setq ,var ,from)
loop
(cond ((> ,var ,to) (go end)))
,@body
(setq ,var (+ ,var 1))
(...


