diff options
author | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-11 18:08:51 -0700 |
---|---|---|
committer | Sean Whitton <spwhitton@spwhitton.name> | 2021-03-11 18:08:51 -0700 |
commit | d38f9f862688eea931e833e50495f8c0f1c7c05d (patch) | |
tree | ac4d6d702018704111a5ce945f3553afdb9ca96d /src/util.lisp | |
parent | 22699a0d11cf889a129cb24b3797ed3bc200b217 (diff) | |
download | consfigurator-d38f9f862688eea931e833e50495f8c0f1c7c05d.tar.gz |
factor out, and fix, ORDINARY-LL-WITHOUT-&AUX
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 248f52a..c8054b1 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -54,6 +54,13 @@ expand into errors." (t expanded)))) +(defun ordinary-ll-without-&aux (ll) + (loop for arg in ll + if (symbol-named &aux arg) + return accum + else collect arg into accum + finally (return accum))) + ;;;; Version numbers |