From: grue <grue@mail.ru>
Date: Wed, 8 Feb 2006 14:17:12 +0000 (+0000)
Subject: minor fix
X-Git-Url: https://jxself.org/git/?a=commitdiff_plain;h=de820dd6a33a9a08367f89c169df34c5b6ba3582;p=lifp.git

minor fix

darcs-hash:7a1abcc7f6631e4673092763ac0d9d665c8103cc
---

diff --git a/if.lisp b/if.lisp
index f61910d..dac5396 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 (subseq fl2 1)))))
+    (and (char= (aref fl2 0) #\~) (string= fl1 fl2 :start 1))))
 
 (defun combine-flags (flaglist)
   "Combine a list of flags into a _set_ of flags"
diff --git a/iflib.lisp b/iflib.lisp
index 126ae94..0098e5c 100644
--- a/iflib.lisp
+++ b/iflib.lisp
@@ -663,6 +663,7 @@ graphical interface)"
   (compile-file "iflib.lisp")
   (compile-file "verbs.lisp"))
 
+#+clisp
 (defun deliver-me ()
   (ext:saveinitmem "lifp.exe" :quiet t :norc t 
 		   :init-function #'interactive-start