Changeset 816


Ignore:
Timestamp:
May 8, 2004, 8:18:49 PM (16 years ago)
Author:
gb
Message:

Use #?.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/examples/cocoa-listener.lisp

    r793 r816  
    7575         
    7676
    77 (defloadvar *NSFileHandleNotificationDataItem*
    78     (%get-ptr (foreign-symbol-address "_NSFileHandleNotificationDataItem")))
    79 
    80 (defloadvar *NSFileHandleReadCompletionNotification*
    81     (%get-ptr (foreign-symbol-address "_NSFileHandleReadCompletionNotification")))
    82 
    8377
    8478
     
    10599                  :add-observer self
    106100                  :selector (@selector "gotData:")
    107                   :name *NSFileHandleReadCompletionNotification*
     101                  :name #?NSFileHandleReadCompletionNotification
    108102                  :object fh)
    109103            (send fh 'read-in-background-and-notify)))))
     
    114108  (with-slots (filehandle) self
    115109    (let* ((data (send (send notification 'user-info)
    116                        :object-for-key *NSFileHandleNotificationDataItem*))
     110                       :object-for-key #?NSFileHandleNotificationDataItem))
    117111           (document (send self 'document))
    118112           (data-length (send data 'length))
Note: See TracChangeset for help on using the changeset viewer.