Make exception reports more verbose.

darcs-hash:0f1b1b5cea7f08a1dc3cfae4d7b843dbf48b5a50

1 files changed, 9 insertions, 6 deletions

diff --git a/objcl.lisp b/objcl.lisp
index bb90c71..52e73e7 100644
--- a/objcl.lisp
+++ b/objcl.lisp
@@ -44,8 +44,14 @@
   (:report (lambda (condition stream)
              (format stream
                      "The Objective C runtime has issued an exception of ~
-                      type `~A'."
-                     (objcl-invoke-class-method condition "name")))))
+                      type `~A'.~&~
+                      Reason: ~A."
+                     (objcl-invoke-class-method
+                      (objcl-invoke-class-method condition "name")
+                      "UTF8String")
+                     (objcl-invoke-class-method
+                      (objcl-invoke-class-method condition "reason")
+                      "UTF8String")))))
 
 
 (defgeneric objcl-eql (obj1 obj2))
@@ -236,10 +242,7 @@
 
 (defun arglist-intersperse-types (arglist)
   (mapcan #'(lambda (arg)
-              (with-foreign-slots ((type data) arg obj-data)
-                (list (type-name->c-type (type-id->type-name
-                                          (foreign-string-to-lisp type)))
-                      arg)))
+              (list :pointer arg))
           arglist))