[cello-cvs] CVS cello/cl-ftgl

[ktilton]

Update of /project/cello/cvsroot/cello/cl-ftgl
In directory clnet:/tmp/cvs-serv1625/cl-ftgl

Modified Files:
	cl-ftgl.lisp 
Log Message:


--- /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/10/02 02:59:18	1.15
+++ /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/10/13 05:57:27	1.16
@@ -20,7 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.15 2006/10/02 02:59:18 ktilton Exp $
+;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.16 2006/10/13 05:57:27 ktilton Exp $
 
 (eval-when (:compile-toplevel :load-toplevel)
   (pushnew :cl-ftgl *features*))
@@ -181,7 +181,6 @@
 (defun cl-ftgl-reset ()
 #-(or mcl macosx)  
   (setq *ftgl-loaded-p* nil) 
-  (cells::trc "nailing fonts loaded!!!!!!!!!!!!!")
   (setq *ftgl-fonts-loaded* nil))
 
 (defmacro dbgftgl (tag &body body)
@@ -397,7 +396,7 @@
   (fgc-bitmap-make fpath))
   
 (defmethod fgc-font-make ((font ftgl-texture) fpath)
-  (format t "~%*** FGC-FONT-MAKE: fpath = ~A~%" fpath)
+  (format *debug-io* "~%*** FGC-FONT-MAKE: fpath = ~A~%" fpath)
   (fgc-texture-make fpath))
 
 (defmethod fgc-font-make ((font ftgl-extruded) fpath)