[bknr-cvs] r2429 - branches/trunk-reorg/thirdparty/cl-gd-0.5.6

[hhubner at common-lisp.net]

Author: hhubner
Date: Thu Jan 31 05:46:46 2008
New Revision: 2429

Modified:
   branches/trunk-reorg/thirdparty/cl-gd-0.5.6/misc.lisp
Log:
Fix buglet with DO-PIXELS/GET-PIXEL that made SBCL choke.


Modified: branches/trunk-reorg/thirdparty/cl-gd-0.5.6/misc.lisp
==============================================================================
--- branches/trunk-reorg/thirdparty/cl-gd-0.5.6/misc.lisp	(original)
+++ branches/trunk-reorg/thirdparty/cl-gd-0.5.6/misc.lisp	Thu Jan 31 05:46:46 2008
@@ -220,12 +220,12 @@
                 (let ((,raw-pixels (get-slot-value ,img 'gd-image 'pixels)))
                   (declare (type pixels-array ,raw-pixels))
                   (dotimes (,y-var ,height)
-                    (let ((,row (deref-array ,raw-pixels '(:array (* :unsigned-char)) ,y-var)))
+                    (let ((,row (deref-array ,raw-pixels '(:array (* :unsigned-byte)) ,y-var)))
                       (declare (type pixels-row ,row))
                       (macrolet ((do-pixels-in-row ((,x-var) &body ,inner-body)
                                    `(dotimes (,,x-var ,',width)
                                      (macrolet ((raw-pixel ()
-                                                  `(deref-array ,',',row '(:array :unsigned-char) ,',,x-var)))
+                                                  `(deref-array ,',',row '(:array :unsigned-byte) ,',,x-var)))
                                        (locally
                                          ,@,inner-body)))))
                         (locally