From: grue Date: Wed, 8 Feb 2006 17:30:38 +0000 (+0000) Subject: fix! X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=a55a923ba8e14bae6a6590c2b28b379f773f8760;p=lifp.git fix! darcs-hash:cc898195ef1bf6c2fdcaee5ed4d19fb60e66322a --- diff --git a/if.lisp b/if.lisp index dac5396..dd8d31a 100644 --- a/if.lisp +++ b/if.lisp @@ -343,7 +343,7 @@ word in dictionary, add it." "Tests whether flag2 unsets flag1" (let ((fl1 (symbol-name flag1)) (fl2 (symbol-name flag2))) - (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start 1)))) + (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start2 1)))) (defun combine-flags (flaglist) "Combine a list of flags into a _set_ of flags"