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