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