From 36c004c17f6d7380ab10e3c88983788d85434de4 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 28 Jul 2022 19:35:01 -0500 Subject: [remove] old with-pairs macro from [example] 9 --- examples/09-ghoulspree.lisp | 6 ------ 1 file changed, 6 deletions(-) (limited to 'examples/09-ghoulspree.lisp') 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 -- cgit v1.2.3