[closure-cvs] CVS update: closure/src/renderer/x11.lisp

[Eric Marsden]

Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv16821/src/renderer

Modified Files:
	x11.lisp 
Log Message:
Reducing debug output to console.

Date: Sun Jul 17 11:41:35 2005
Author: emarsden

Index: closure/src/renderer/x11.lisp
diff -u closure/src/renderer/x11.lisp:1.8 closure/src/renderer/x11.lisp:1.9
--- closure/src/renderer/x11.lisp:1.8	Wed Jul 13 15:44:56 2005
+++ closure/src/renderer/x11.lisp	Sun Jul 17 11:41:35 2005
@@ -397,7 +397,6 @@
                         (setf worst-index (list red green blue)
                               worst-delta (second (aref cube red green blue)))))))
                 (destructuring-bind (bm bd nd) (apply #'aref cube worst-index)
-                  (print (list worst-index worst-delta bm bd nd))
                   (setf (apply #'aref cube worst-index)
                     (list (list nd (elt my k))
                           0