Update of /project/closure/cvsroot/closure/src/imagelib In directory common-lisp.net:/tmp/cvs-serv16745/src/imagelib
Modified Files: png.lisp Log Message: Reduce amount of debugging information printed to console.
Date: Sun Jul 17 11:38:53 2005 Author: emarsden
Index: closure/src/imagelib/png.lisp diff -u closure/src/imagelib/png.lisp:1.5 closure/src/imagelib/png.lisp:1.6 --- closure/src/imagelib/png.lisp:1.5 Sun Jul 10 12:36:03 2005 +++ closure/src/imagelib/png.lisp Sun Jul 17 11:38:52 2005 @@ -175,9 +175,7 @@ (defun decode-trns (palette data) (when palette (dotimes (i (length data)) - (setf (svref (aref palette i) 3) (aref data i)))) - (let ((*print-array* t)) - (print palette))) + (setf (svref (aref palette i) 3) (aref data i)))))
(defun read-png-image (input) (unless (read-png-signature-p input)