Changeset 12597 for trunk/source/cocoa-ide/cocoa-utils.lisp

Timestamp:

Aug 16, 2009, 10:43:04 PM (11 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:

• trunk/source/cocoa-ide/cocoa-utils.lisp (modified) (1 diff)

trunk/source/cocoa-ide/cocoa-utils.lisp

@@ -238 +238 @@
 ;;; type is #$NSApplicationDefined.
 (objc:defmethod (#/sendEvent: :void) ((self lisp-application) e)
+  (declare (dynamic-extent self e))
   (if (and (eql (#/type e) #$NSApplicationDefined)
            (eql (#/subtype e) $lisp-function-event-subtype))