From 06f8c9c96a1d13451276ded4e091175eafd5b4e9 Mon Sep 17 00:00:00 2001
From: colin <colin@cicadas.surf>
Date: Tue, 18 Jun 2024 08:21:59 -0700
Subject: Add: def:fast for optimized function defs

---
 util.lisp | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'util.lisp')

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))
-- 
cgit v1.2.3