From d38f9f862688eea931e833e50495f8c0f1c7c05d Mon Sep 17 00:00:00 2001 From: Sean Whitton Date: Thu, 11 Mar 2021 18:08:51 -0700 Subject: factor out, and fix, ORDINARY-LL-WITHOUT-&AUX Signed-off-by: Sean Whitton --- src/util.lisp | 7 +++++++ 1 file changed, 7 insertions(+) (limited to 'src/util.lisp') 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 -- cgit v1.2.3