[closure-cvs] CVS update: closure/src/renderer/clim-device.lisp

[Christophe Rhodes]

Update of /project/closure/cvsroot/closure/src/renderer
In directory common-lisp.net:/tmp/cvs-serv24112/src/renderer

Modified Files:
	clim-device.lisp 
Log Message:
Believe it or not, the clim text style family is :fix, not :fixed.  Make 
it so.

Date: Mon Jun 20 17:37:33 2005
Author: crhodes

Index: closure/src/renderer/clim-device.lisp
diff -u closure/src/renderer/clim-device.lisp:1.9 closure/src/renderer/clim-device.lisp:1.10
--- closure/src/renderer/clim-device.lisp:1.9	Sun Mar 13 22:15:09 2005
+++ closure/src/renderer/clim-device.lisp	Mon Jun 20 17:37:33 2005
@@ -82,7 +82,7 @@
                           :device self)))
                 (loop
                     for family      in '("Times" "Helvetica" "Courier")
-                    for clim-family in '(:serif  :sans-serif :fixed) 
+                    for clim-family in '(:serif  :sans-serif :fix) 
                     for size-adjust in '(-2 -2 -2) do 
                     (loop
                         for weight+style in '((400 :normal) (400 :italic) (700 :normal) (700 :italic))
@@ -127,7 +127,7 @@
                           :device self)))
                 (loop
                     for family      in '("Times" "Helvetica" "Courier")
-                    for clim-family in '(:serif  :sans-serif :fixed) 
+                    for clim-family in '(:serif  :sans-serif :fix) 
                     for size-adjust in '(-2 0 -2) do 
                     (loop
                         for weight+style in '((400 :normal) (400 :italic) (700 :normal) (700 :italic))