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))