Changeset 12597


Ignore:
Timestamp:
Aug 16, 2009, 10:43:04 PM (10 years ago)
Author:
gb
Message:

Declare "self" and "e" to have dynamic-extent in #/sendEvent, which is
called on every event. (Not consing here seems like a good idea.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/cocoa-ide/cocoa-utils.lisp

    r12526 r12597  
    238238;;; type is #$NSApplicationDefined.
    239239(objc:defmethod (#/sendEvent: :void) ((self lisp-application) e)
     240  (declare (dynamic-extent self e))
    240241  (if (and (eql (#/type e) #$NSApplicationDefined)
    241242           (eql (#/subtype e) $lisp-function-event-subtype))
Note: See TracChangeset for help on using the changeset viewer.