[cello-cvs] CVS cello/cl-magick

[ktilton]

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)))