[closure-cvs] CVS update: closure/src/imagelib/png.lisp

Eric Marsden emarsden at common-lisp.net
Sun Jul 17 09:38:56 UTC 2005


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)




More information about the Closure-cvs mailing list