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)