Changeset 816

Timestamp:

May 8, 2004, 1:18:49 PM (21 years ago)

Author:

Gary Byers

Message:

Use #?.

File:

• trunk/ccl/examples/cocoa-listener.lisp (modified) (3 diffs)

trunk/ccl/examples/cocoa-listener.lisp

@@ -75 +75 @@
          
 
-(defloadvar *NSFileHandleNotificationDataItem*
-    (%get-ptr (foreign-symbol-address "_NSFileHandleNotificationDataItem")))
-
-(defloadvar *NSFileHandleReadCompletionNotification*
-    (%get-ptr (foreign-symbol-address "_NSFileHandleReadCompletionNotification")))
-
 
 
@@ -105 +99 @@
                   :add-observer self
                   :selector (@selector "gotData:")
-                  :name *NSFileHandleReadCompletionNotification*
+                  :name #?NSFileHandleReadCompletionNotification
                   :object fh)
             (send fh 'read-in-background-and-notify)))))
@@ -114 +108 @@
   (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))