diff options
| -rw-r--r-- | examples/09-ghoulspree.lisp | 6 |
1 files changed, 0 insertions, 6 deletions
diff --git a/examples/09-ghoulspree.lisp b/examples/09-ghoulspree.lisp index a92299a..03552f0 100644 --- a/examples/09-ghoulspree.lisp +++ b/examples/09-ghoulspree.lisp @@ -52,12 +52,6 @@ on which boundary VAL is outside of." (if (zerop x) 0 (/ x (abs x)))) -(defmacro with-pairs ((a b) ls &rest body) - "run body with a and b bound to unique 2-sets of LS" - (let ((more-a (gensym))) - `(loop for (,a . ,more-a) on ,ls do - (loop for ,b in ,more-a do (progn ,@body)) ))) - (defmacro with-pairs ((a b) vector &rest body) (alexandria:with-gensyms (idxa idxb vec) `(loop |