diff options
| author | Colin Okay <colin@cicadas.surf> | 2022-07-28 19:35:01 -0500 |
|---|---|---|
| committer | Colin Okay <colin@cicadas.surf> | 2022-07-28 19:35:01 -0500 |
| commit | 36c004c17f6d7380ab10e3c88983788d85434de4 (patch) | |
| tree | 864ba2e7383053def53811a2f37810ba96d25a24 /examples/09-ghoulspree.lisp | |
| parent | 55eaec5b85891b4a55920cf7eb84d08c1109e48d (diff) | |
[remove] old with-pairs macro from [example] 9
Diffstat (limited to 'examples/09-ghoulspree.lisp')
| -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 |