cl-olefs

OLE File System tools for Common Lisp
git clone https://logand.com/git/cl-olefs.git/
Log | Files | Refs

commit c9543084d857cf48306765b4588c20a238757948
parent 9b306acc3ca359df27488b20278e189ecf811187
Author: Tomas Hlavaty <tomas.hlavaty@knowledgetools.de>
Date:   Tue,  4 Sep 2012 12:02:36 +0200

minor style improvement

Diffstat:
Molefs.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)