Permalink
Browse files

use :element-type '(unsigned-byte 8) instead of :default to make ccl …

…happy.
  • Loading branch information...
1 parent b6fe409 commit 94b7cfada9954804d835cb7ec56b8ac21a14a841 @slyrus committed Dec 1, 2008
Showing with 3 additions and 3 deletions.
  1. +3 −3 retrospectiff.lisp
View
@@ -487,7 +487,7 @@
(read-image stream ifd)))))
(defun read-tiff-file (pathname)
- (with-open-file (stream pathname :direction :input :element-type :default)
+ (with-open-file (stream pathname :direction :input :element-type '(unsigned-byte 8))
(read-tiff-stream stream)))
;; we should return the number of strips (and possibly the length of
@@ -734,7 +734,7 @@
(let ((stream (gensym "write-tiff-file")))
`(with-open-file (,stream ,pathname
:direction :output
- :element-type :default
+ :element-type '(unsigned-byte 8)
,@args)
(write-tiff-stream ,stream ,image)
,pathname)))
@@ -788,6 +788,6 @@
(image-info stream (car ifds)))))
(defun read-tiff-file-info (pathname)
- (with-open-file (stream pathname :direction :input :element-type :default)
+ (with-open-file (stream pathname :direction :input :element-type '(unsigned-byte 8))
(read-tiff-stream-info stream)))

0 comments on commit 94b7cfa

Please sign in to comment.