Index: /trunk/ccl/examples/cocoa-window.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-window.lisp	(revision 612)
+++ /trunk/ccl/examples/cocoa-window.lisp	(revision 613)
@@ -19,5 +19,6 @@
 
 (eval-when (:compile-toplevel :load-toplevel :execute)
-  (require "OBJC-SUPPORT"))
+  (require "OBJC-SUPPORT")
+  (require "COCOA-DEFAULTS"))
 
 (eval-when (:compile-toplevel :execute)
@@ -268,6 +269,6 @@
 						 (toplevel)))))
 
-(defparameter *default-font-name* "Courier")
-(defparameter *default-font-size* 12.0e0)
+(def-cocoa-default *default-font-name* :string "Courier")
+(def-cocoa-default *default-font-size* :float 12.0e0)
 
 (defparameter *font-attribute-names*
@@ -313,5 +314,5 @@
 	    (values font implemented-attributes))))))
 
-(defparameter *tab-width* 8)
+(def-cocoa-default *tab-width* :int 8)
 
 ;;; Create a paragraph style, mostly so that we can set tabs reasonably.