diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 10:03:25 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-06-07 10:03:25 -0700 |
commit | c687d10681cb4455e27dceec68aa5379305ec76c (patch) | |
tree | 01927e073ed4ec5bd5bb71d90fd2708ed2892fc6 /src/util.lisp | |
parent | f2f487abcb06afb9226ef7337754dbe2323a6c09 (diff) | |
download | consfigurator-c687d10681cb4455e27dceec68aa5379305ec76c.tar.gz |
factor out LAMBDA-IGNORING-ARGS
Signed-off-by: Sean Whitton <spwhitton@spwhitton.name>
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/util.lisp b/src/util.lisp index fb11fec..9dd417d 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -252,6 +252,13 @@ expansion as a starting point for your own DEFPACKAGE form for your consfig." ;; (push '(:use '#:cl '#:consfigurator) forms)) `(defpackage ,name ,@forms))) +(defmacro lambda-ignoring-args (&body body) + (multiple-value-bind (forms declarations) (parse-body body) + (with-gensyms (ignore) + `(lambda (&rest ,ignore) + (declare (ignore ,ignore) ,@declarations) + ,@forms)))) + ;;;; Progress & debug printing |