Index: /trunk/ccl/examples/cocoa-listener.lisp
===================================================================
--- /trunk/ccl/examples/cocoa-listener.lisp	(revision 815)
+++ /trunk/ccl/examples/cocoa-listener.lisp	(revision 816)
@@ -75,10 +75,4 @@
          
 
-(defloadvar *NSFileHandleNotificationDataItem*
-    (%get-ptr (foreign-symbol-address "_NSFileHandleNotificationDataItem")))
-
-(defloadvar *NSFileHandleReadCompletionNotification*
-    (%get-ptr (foreign-symbol-address "_NSFileHandleReadCompletionNotification")))
-
 
 
@@ -105,5 +99,5 @@
 		  :add-observer self
 		  :selector (@selector "gotData:")
-		  :name *NSFileHandleReadCompletionNotification*
+		  :name #?NSFileHandleReadCompletionNotification
 		  :object fh)
 	    (send fh 'read-in-background-and-notify)))))
@@ -114,5 +108,5 @@
   (with-slots (filehandle) self
     (let* ((data (send (send notification 'user-info)
-		       :object-for-key *NSFileHandleNotificationDataItem*))
+		       :object-for-key #?NSFileHandleNotificationDataItem))
 	   (document (send self 'document))
 	   (data-length (send data 'length))