From b5e4426cc60b55e0c38edfbf4757363a224cb4b7 Mon Sep 17 00:00:00 2001 From: Matthias Benkard Date: Sun, 17 Feb 2008 15:44:38 +0100 Subject: Fix PRINT-OBJECT (EXCEPTION T). darcs-hash:28e399d1243d9825ae590aba3fd55dc1a4d9706c --- Lisp/method-invocation.lisp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'Lisp/method-invocation.lisp') diff --git a/Lisp/method-invocation.lisp b/Lisp/method-invocation.lisp index 72abefd..0227db0 100644 --- a/Lisp/method-invocation.lisp +++ b/Lisp/method-invocation.lisp @@ -441,7 +441,8 @@ easier to use with __apply__. objc-return-value-cell) objc-arg-ptrs))) (unless (cffi:null-pointer-p error-cell) - (error (make-condition 'exception :pointer error-cell))) + (error (make-condition 'exception :pointer error-cell) + #+(or) (intern-pointer-wrapper 'exception :pointer error-cell))) (case (or (typespec-nominal-type return-type) (typespec-primary-type return-type)) ((id objective-c-class exception selector) -- cgit v1.2.3