Add: def:fast for optimized function defs

1 files changed, 4 insertions, 0 deletions

diff --git a/util.lisp b/util.lisp
index 537d85d..3008865 100644
--- a/util.lisp
+++ b/util.lisp
@@ -34,3 +34,7 @@ YES is everything for which PRED is T, NO is everything else."
        (string= muffer name :end2 (length muffer))
        (string= muffer name :start2 (- (length (symbol-name name))
                                        (length muffer)))))
+
+(defun lambda-opt-p (x)
+  (find x '(cl:&optional cl:&key cl:&aux cl:&allow-other-keys cl:&rest)
+        :test #'eq))