From 92760c949ef26423f998d2f2cafc757157fc526b Mon Sep 17 00:00:00 2001 From: Common Lisp at Google Date: Tue, 26 May 2026 17:52:44 -0700 Subject: [PATCH] Remove bogus argument to no-prefix-p PiperOrigin-RevId: 921788203 --- flag.lisp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/flag.lisp b/flag.lisp index bfa983a..4c29248 100644 --- a/flag.lisp +++ b/flag.lisp @@ -203,13 +203,12 @@ (export ',flag +flags-package+)))) ',flag))))) -(defun* no-prefix-p (name &key (start 0)) - (declare (self (string &key fixnum) boolean)) - "True if flag NAME starts with the 'no' prefix. - START is the index on the NAME to look for the prefix." - (and (string:prefixp "no" name :start1 start) - (> (length name) (+ 2 start)) - (alpha-char-p (char name (+ 2 start))))) +(defun no-prefix-p (name) + (declare (string name)) + "True if flag NAME starts with the 'no' prefix." + (and (> (length name) 2) ; the whole flag name can't be just "no" + (string:prefixp "no" name) + (alpha-char-p (char name 2)))) (defun* register (flag names nullablep registry) "Registers the FLAG and checks for flag name clashes.