diff options
Diffstat (limited to 'util.lisp')
-rw-r--r-- | util.lisp | 4 |
1 files changed, 4 insertions, 0 deletions
@@ -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)) |