Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

Fix issue #1, thanks to asdr

  • Loading branch information...
commit 26bd2d1015898463638875b782bfaa50d9bbfb74 1 parent 20205e8
@Ramarren authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  decode.lisp
View
2  decode.lisp
@@ -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))
Please sign in to comment.
Something went wrong with that request. Please try again.