minor fix

darcs-hash:7a1abcc7f6631e4673092763ac0d9d665c8103cc

diff --git a/if.lisp b/if.lisp
index f61910d388df514c7691a3bc079047fc952d2820..dac5396b28f365061b1aca200b7c00f67aecb6e4 100644 (file)
--- a/if.lisp
+++ b/if.lisp
@@ -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 (subseq fl2 1)))))\r
+    (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start 1))))\r
 \r
 (defun combine-flags (flaglist)\r
   "Combine a list of flags into a _set_ of flags"\r

diff --git a/iflib.lisp b/iflib.lisp
index 126ae946c719208c3a7620c4e50a46874894fa15..0098e5c2472bdbd5ea2cb261368d954fa5307073 100644 (file)
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -663,6 +663,7 @@ graphical interface)"
   (compile-file "iflib.lisp")\r
   (compile-file "verbs.lisp"))\r
 \r
+#+clisp\r
 (defun deliver-me ()\r
   (ext:saveinitmem "lifp.exe" :quiet t :norc t \r
                   :init-function #'interactive-start \r