Update of /project/cello/cvsroot/cello/cl-magick In directory clnet:/tmp/cvs-serv9119/cl-magick Modified Files: wand-image.lisp Log Message: nothing special --- /project/cello/cvsroot/cello/cl-magick/wand-image.lisp 2008/04/11 09:23:02 1.11 +++ /project/cello/cvsroot/cello/cl-magick/wand-image.lisp 2008/06/16 12:39:26 1.12 @@ -112,7 +112,7 @@ for pixel-offset fixnum = (the fixnum (+ 3 (* pixel-col bytes-per-pixel))) when (> 96 ;; rough guess at how to detect: can't always get perfect alpha w eraser: /= 255 (eltuc pixels (the fixnum pixel-offset))) - do (cells:trc "image alpha already converted. I see non-255" + do #+shhh (cells:trc "image alpha already converted. I see non-255" (image-path self) (eltuc pixels (the fixnum pixel-offset)) :at-col pixel-col) (return-from detect-converted t)))