Permalink
Browse files

Fix issue #1, thanks to asdr

  • Loading branch information...
Ramarren committed Nov 2, 2010
1 parent 20205e8 commit 26bd2d1015898463638875b782bfaa50d9bbfb74
Showing with 1 addition and 1 deletion.
  1. +1 −1 decode.lisp
View
@@ -68,7 +68,7 @@
(setf (image-data png-state)
(make-array (list w h 3) :element-type '(unsigned-byte 8)))
(setf (index-data png-state)
- (make-array (list w h) :element-type `(unsignned-byte ,bd)))
+ (make-array (list w h) :element-type `(unsigned-byte ,bd)))
(let ((scanlines (get-scanlines data h (1+ (ceiling (* bd w) 8)))))
(unfilter-scanlines scanlines (* bda 4))
(let ((image-data (image-data png-state))

0 comments on commit 26bd2d1

Please sign in to comment.