[cello-cvs] CVS cello/cl-magick

[ktilton]

Update of /project/cello/cvsroot/cello/cl-magick
In directory clnet:/tmp/cvs-serv13054/cl-magick

Modified Files:
	cl-magick.lisp wand-image.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp	2006/07/06 22:09:11	1.5
+++ /project/cello/cvsroot/cello/cl-magick/cl-magick.lisp	2006/08/22 16:12:35	1.6
@@ -20,6 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
+
 (defpackage :cl-magick
     (:nicknames :mgk)
     (:use
--- /project/cello/cvsroot/cello/cl-magick/wand-image.lisp	2006/08/21 04:28:28	1.4
+++ /project/cello/cvsroot/cello/cl-magick/wand-image.lisp	2006/08/22 16:12:35	1.5
@@ -100,7 +100,7 @@
            (pixels (fgn-alloc :unsigned-char (* 3 columns rows) :wand-image)))
       
       ;(print (list "wand-get-image-pixels got" wand (* 3 columns rows) pixels))
-      (cells:trc "image format" wand (magick-get-image-format wand))
+      (cells:trc nil "image format" wand (magick-get-image-format wand))
       (magick-get-image-pixels wand first-col first-row columns rows "RGB" 0 pixels )
       #+testing (progn
                   (incf testn)