[cello-cvs] CVS cello/cl-ftgl

[ktilton]

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

Modified Files:
	cl-ftgl.lisp cl-ftgl.lpr 
Log Message:
CVS sucks

--- /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/07/08 03:29:09	1.7
+++ /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp	2006/08/21 04:28:27	1.8
@@ -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.7 2006/07/08 03:29:09 ktilton Exp $
+;;; $Header: /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lisp,v 1.8 2006/08/21 04:28:27 ktilton Exp $
 
 (defpackage #:cl-ftgl
   (:nicknames #:ftgl)
@@ -178,7 +178,8 @@
   ifont)
 
 (defun ftgl-assert-opengl-context ()
-  ;; use when debugging FTGL being hit before opengl context estanblished (assert *ftgl-ogl*)
+  ;; use when debugging FTGL being hit before opengl context estanblished 
+  (assert *ftgl-ogl*)
   )
 
 (defun ftgl-char-width (f c)
@@ -253,10 +254,10 @@
       (typecase font
         (ftgl-extruded
          #+nyet (let ((*ogl-listing-p* t))
-          (ukt::trc nil "ftgl-get-display-font> building glyphs for" font)
+          (trc nil "ftgl-get-display-font> building glyphs for" font)
            
            (fgc-build-glyphs cf)
-           (ukt::trc nil "ftgl-get-display-font> glyphs built OK for" font)))
+           (trc nil "ftgl-get-display-font> glyphs built OK for" font)))
         (ftgl-texture
          #+no (fgc-set-face-size cf (ftgl-size font) (ftgl-target-res font)))
         (ftgl-pixmap
--- /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lpr	2006/07/03 00:35:12	1.6
+++ /project/cello/cvsroot/cello/cl-ftgl/cl-ftgl.lpr	2006/08/21 04:28:27	1.7
@@ -1,4 +1,4 @@
-;; -*- lisp-version: "8.0 [Windows] (Jun 28, 2006 10:53)"; cg: "1.81"; -*-
+;; -*- lisp-version: "8.0 [Windows] (Aug 17, 2006 12:24)"; cg: "1.81"; -*-
 
 (in-package :cg-user)