From f3698889e04d90b346e79338ec6afa56ccf385dd Mon Sep 17 00:00:00 2001 From: Colin Okay Date: Thu, 27 Oct 2022 09:55:44 -0500 Subject: Rename: alambda to thunk* --- utilities.lisp | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'utilities.lisp') diff --git a/utilities.lisp b/utilities.lisp index ec1ae55..ce14b7e 100644 --- a/utilities.lisp +++ b/utilities.lisp @@ -84,11 +84,13 @@ (nth m list) tmp) list)) -(defmacro alambda (&body body) - "Anaphoric lambda of one argument" - `(lambda (it) - (declare (ignorable it)) - ,@body)) +(defmacro thunk* (&body body) + "Returns a lambda of any number of arguments where those arguments + are ignored." + (let ((args (gensym)) ) + `(lambda (&rest ,args) + (declare (ignorable ,args)) + ,@body))) (defun tmp-dir-name () (merge-pathnames -- cgit v1.2.3