Changeset 13700
- Timestamp:
- May 15, 2010, 1:28:55 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/objc-bridge/objc-runtime.lisp
r13551 r13700 2962 2962 (#_memmove return-temp value size))) 2963 2963 2964 2965 (defvar *objc-error-return-condition* 'condition 2966 "Type of conditions to be caught by objc:defmethod and resignalled as objc exceptions, 2967 allowing handlers for them to safely take a non-local exit despite possible intervening ObjC 2968 frames. The resignalling unwinds the stack before the handler is invoked, which can be 2969 a problem for some handlers.") 2970 2971 2964 2972 (defmacro objc:defmethod (name (self-arg &rest other-args) &body body &environment env) 2965 2973 (collect ((arglist) … … 3060 3068 ',result-type 3061 3069 ',(cddr arg-types)) 3062 (defcallback ,impname ( :error-return ( conditionobjc-callback-error-return) ,@(arglist))3070 (defcallback ,impname ( :error-return (,*objc-error-return-condition* objc-callback-error-return) ,@(arglist)) 3063 3071 (declare (ignorable ,self-name) 3064 3072 (unsettable ,self-name)
Note: See TracChangeset
for help on using the changeset viewer.