[cells-cvs] CVS update: cell-cultures/cl-ftgl/cl-ftgl.lisp

[Kenny Tilton]

Update of /project/cells/cvsroot/cell-cultures/cl-ftgl
In directory common-lisp.net:/tmp/cvs-serv5472/cl-ftgl

Modified Files:
	cl-ftgl.lisp 
Log Message:

Date: Sun Jul  4 11:59:44 2004
Author: ktilton

Index: cell-cultures/cl-ftgl/cl-ftgl.lisp
diff -u cell-cultures/cl-ftgl/cl-ftgl.lisp:1.1 cell-cultures/cl-ftgl/cl-ftgl.lisp:1.2
--- cell-cultures/cl-ftgl/cl-ftgl.lisp:1.1	Sat Jun 26 11:38:39 2004
+++ cell-cultures/cl-ftgl/cl-ftgl.lisp	Sun Jul  4 11:59:44 2004
@@ -20,7 +20,7 @@
 ;;; FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS 
 ;;; IN THE SOFTWARE.
 
-;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.1 2004/06/26 18:38:39 ktilton Exp $
+;;; $Header: /project/cells/cvsroot/cell-cultures/cl-ftgl/cl-ftgl.lisp,v 1.2 2004/07/04 18:59:44 ktilton Exp $
 
 (defpackage #:cl-ftgl
   (:nicknames #:ftgl)
@@ -433,7 +433,7 @@
   (let ((cf (ftgl-get-metrics-font font)))
     (assert cf)
     (unless (ftgl-ready font)
-      (when clo::*listingp* (cells::c-break "bad time #1 for sizing? ~a ~a" clo::*listingp* font))
+      ;;(when *ogl-listing-p* (cells::c-break "bad time #1 for sizing? ~a ~a" *ogl-listing-p* font))
       (setf (ftgl-ready font) t)
       (fgc-set-face-size cf (ftgl-size font) (ftgl-target-res font)))
     cf))