From 3c28fcb9acb8b742050409b360ec3d7b9e006216 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Tue, 4 Mar 2008 17:06:02 +0100 Subject: Add a note about exception handling to ADD-METHOD (OBJECTIVE-C-GENERIC-FUNCTION OBJECTIVE-C-METHOD). darcs-hash:5504ab9f0855575e5475118f7e95de779369d0e8 --- Lisp/method-definition.lisp | 11 +++++++++++ 1 file changed, 11 insertions(+) (limited to 'Lisp/method-definition.lisp') diff --git a/Lisp/method-definition.lisp b/Lisp/method-definition.lisp index 6df7feb..7e71f31 100644 --- a/Lisp/method-definition.lisp +++ b/Lisp/method-definition.lisp @@ -131,6 +131,17 @@ ;; Leave the second argument (the ;; selector) out. ,@(list* (car arguments) (cddr arguments))) + ;; FIXME: We may want to wrap signalled + ;; SERIOUS-CONDITIONS in some kind of + ;; Objective-C exception object and put + ;; it into *OBJCL-CURRENT-EXCEPTION*. Or + ;; maybe we don't, assuming the Lisp + ;; system can handle a few layers of C + ;; functions between a condition's + ;; signalling and handling, in which case + ;; we'd only destroy the restart + ;; mechanism by pseudo-handling + ;; conditions in this way. (%objcl-acquire-lock *objcl-current-exception-lock*)))))) (let ((callback (get-callback callback-name))) (with-foreign-object (arg-typestring-buffer :string -- cgit v1.2.3