aboutsummaryrefslogtreecommitdiffhomepage
path: root/examples
diff options
context:
space:
mode:
Diffstat (limited to 'examples')
-rw-r--r--examples/09-ghoulspree.lisp6
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