Rename: alambda to thunk*

1 files changed, 7 insertions, 5 deletions

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