[mcclim-cvs] CVS mcclim

ahefner ahefner at common-lisp.net
Sun Mar 4 22:37:36 UTC 2007


Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv22852

Modified Files:
	utils.lisp 
Log Message:
Fix parse-space, the unit name is :inches, not :inch (that's what all the
backends use, anyway).


--- /project/mcclim/cvsroot/mcclim/utils.lisp	2006/10/29 11:58:58	1.46
+++ /project/mcclim/cvsroot/mcclim/utils.lisp	2007/03/04 22:37:36	1.47
@@ -498,7 +498,7 @@
                  (gunit (graft-units graft)))
             ;; mungle specification into what grafts talk about
             (case unit
-              ((:point)  (setf value (/ value 72) unit :inch))
+              ((:point)  (setf value (/ value 72) unit :inches))
               ((:pixel)  (setf unit :device))
               ((:mm)     (setf unit :millimeters)))
             ;; 




More information about the Mcclim-cvs mailing list