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