[mcclim-cvs] CVS mcclim/Experimental/freetype

[ahefner]

Update of /project/mcclim/cvsroot/mcclim/Experimental/freetype
In directory cl-net:/tmp/cvs-serv3498

Modified Files:
	xrender-fonts.lisp 
Log Message:
Transform :fixed to :fix during font lookup. Apparently necessary to run
on a machine without fontconfig.


--- /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp	2008/01/31 08:58:20	1.1
+++ /project/mcclim/cvsroot/mcclim/Experimental/freetype/xrender-fonts.lisp	2009/06/14 18:37:39	1.2
@@ -439,6 +439,7 @@
                  (setf face (or face :roman))
                  (setf family (or family :fix))
                  (setf size (or size :normal))
+                 (when (eq family :fixed) (setf family :fix))                   
                  (cond (size
                         (setf size (getf *sizes* size size))
                         (let ((val (gethash (list display family face size) *display-face-hash*)))