projects
/
lifp.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
a03f281
)
minor fix
author
grue
<grue@mail.ru>
Wed, 8 Feb 2006 14:17:12 +0000
(14:17 +0000)
committer
grue
<grue@mail.ru>
Wed, 8 Feb 2006 14:17:12 +0000
(14:17 +0000)
darcs-hash:
7a1abcc7f6631e4673092763ac0d9d665c8103cc
if.lisp
patch
|
blob
|
history
iflib.lisp
patch
|
blob
|
history
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
"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
\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
(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
(defun deliver-me ()
\r
(ext:saveinitmem "lifp.exe" :quiet t :norc t
\r
:init-function #'interactive-start
\r