commit c9543084d857cf48306765b4588c20a238757948 parent 9b306acc3ca359df27488b20278e189ecf811187 Author: Tomas Hlavaty <tomas.hlavaty@knowledgetools.de> Date: Tue, 4 Sep 2012 12:02:36 +0200 minor style improvement Diffstat:
| M | olefs.lisp | | | 4 | ++-- |
1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/olefs.lisp b/olefs.lisp @@ -644,8 +644,8 @@ (define-structure OfficeArtFOPTEOPID () (%dummy ushort) (opid t :compute (logand #x3fff %dummy)) - (fBid t :compute (if (zerop (logand #x4000 %dummy)) nil t)) - (fComplex t :compute (if (zerop (logand #x8000 %dummy)) nil t))) + (fBid t :compute (not (zerop (logand #x4000 %dummy)))) + (fComplex t :compute (not (zerop (logand #x8000 %dummy))))) (define-structure OfficeArtFBSE () (btWin32 ubyte)