From 1b06f7b323b221243a1fdffcb3fc8c6d23ef2754 Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Tue, 14 Jul 2020 10:32:38 -0500 Subject: cleanup --- macros.lisp | 9 +++------ 1 file changed, 3 insertions(+), 6 deletions(-) diff --git a/macros.lisp b/macros.lisp index c354a89..bd564ba 100644 --- a/macros.lisp +++ b/macros.lisp @@ -43,17 +43,14 @@ higher order functions: #(1 2 3 4) \"ffffffffff\"))) (#\y 3 #\f)" - (let ((new-params (list)) - (calls-to-$$ 0)) + (let ((new-params (list))) (subst-if t (constantly nil) expr :key (lambda (x) (when (is-substitute-var x) (pushnew x new-params)) (when (eql '$$ x) - (incf calls-to-$$)))) - (if (not (zerop calls-to-$$)) - (error "$$ cannot be nested") - `(lambda ,(reverse new-params) ,expr)))) + (error "$$ cannot be nested")))) + `(lambda ,(reverse new-params) ,expr))) -- cgit v1.2.3