official update

[lifp.git] / if.lisp

diff --git a/if.lisp b/if.lisp
index dac5396b28f365061b1aca200b7c00f67aecb6e4..08d5038aa070f1f779b87225b04cc1a2c0fdcf2a 100644 (file)
--- a/if.lisp
+++ b/if.lisp
@@ -47,7 +47,7 @@
            :verb :extend-verb :extend-verb-first\r
            :extend-verb-only :extend-verb-only-first\r
            :deftoken :string== :matchp :!last!\r
-           :in :objectloop :provides\r
+           :in :notin :objectloop :provides\r
            :wordlist :tokenlist\r
            :nosuchword :nosuchword-word\r
            :parse-command :unknown-verb :run-action :run-action-after\r
@@ -343,7 +343,7 @@ word in dictionary, add it."
   "Tests whether flag2 unsets flag1"\r
   (let ((fl1 (symbol-name flag1))\r
         (fl2 (symbol-name flag2)))\r
-    (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start 1))))\r
+    (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start2 1))))\r
 \r
 (defun combine-flags (flaglist)\r
   "Combine a list of flags into a _set_ of flags"\r