From: grue <grue@mail.ru>
Date: Wed, 8 Feb 2006 17:30:38 +0000 (+0000)
Subject: fix!
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;ds=sidebyside;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"