[Openmcl-cvs-notifications] r7568 - /trunk/ccl/cocoa-ide/preferences.lisp

[rme at clozure.com]

Author: rme
Date: Tue Oct 30 23:18:04 2007
New Revision: 7568

Log:
Correct 32/64 bit portability error.

Modified:
    trunk/ccl/cocoa-ide/preferences.lisp

Modified: trunk/ccl/cocoa-ide/preferences.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/cocoa-ide/preferences.lisp (original)
+++ trunk/ccl/cocoa-ide/preferences.lisp Tue Oct 30 23:18:04 2007
@@ -66,8 +66,8 @@
 (objc:defmethod #/transformedValue: ((self font-to-name-transformer) value)
   (let* ((font (#/unarchiveObjectWithData: ns:ns-unarchiver value))
          (name (#/displayName font))
-         (size (#/pointSize font)))
-    (#/stringWithFormat: ns:ns-string #@"%@ %.0f" :id name :<CGF>loat size=
)))
+         (size (float (#/pointSize font) 0.0d0)))
+    (#/stringWithFormat: ns:ns-string #@"%@ %.0f" :id name :double-float s=
ize)))
 =

 (defclass preferences-window-controller (ns:ns-window-controller)
   ((tab-view :foreign-type :id :accessor tab-view)