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)