projects
/
lifp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
minor fix
[lifp.git]
/
if.lisp
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