cl-olefs

commit d3532b4de81512b42419f702cab24cecc6ed1145
parent 784f7a676ce996075dedf8b1ca6963bda3c218d3
Author: Tomas Hlavaty <tom@logand.com>
Date:   Mon, 30 May 2011 23:58:36 +0200

use ubyte instead of byte type

Diffstat:
M
olefs.lisp
 | 
4
++--

1 file changed, 2 insertions(+), 2 deletions(-)
diff --git a/olefs.lisp b/olefs.lisp
@@ -428,8 +428,8 @@
   (rcBounds RECT)
   (ptSize POINT)
   (cbSave dword)
-  (compression byte :member '(#x00 #xfe))
-  (filter byte :always #xfe))
+  (compression ubyte :member '(#x00 #xfe))
+  (filter ubyte :always #xfe))
 
 (defun read-record (stream dir &optional n) ;; TODO remove dir and n
   (let ((x (read-RecordHeader stream)))