Move exception reporting to PRINT-OBJECT (EXCEPTION T).

darcs-hash:7487d34005f69ab123278791d00991d50fde3496

1 files changed, 1 insertions, 9 deletions

diff --git a/Lisp/data-types.lisp b/Lisp/data-types.lisp
index 6c1a6e8..2c309e7 100644
--- a/Lisp/data-types.lisp
+++ b/Lisp/data-types.lisp
@@ -192,7 +192,7 @@ a suitable class method instead as you would in Objective-C.
               :reader   pointer-to
               :initarg  :pointer))
   (:report (lambda (condition stream)
-             (describe-object condition stream)))
+             (print-object condition stream)))
   (:documentation "The condition type for Objective-C exceptions.
 
 ## Description:
@@ -232,14 +232,6 @@ an __exception__, you can simply send it the `self' message.
   __id__"))
 
 
-(defmethod describe-object ((condition exception) stream)
-  (format stream "The Objective-C runtime has issued an exception of ~
-                  type `~A'.~&~
-                  Reason: ~A."
-          (invoke-by-name (invoke-by-name condition "name") "UTF8String")
-          (invoke-by-name (invoke-by-name condition "reason") "UTF8String")))
-
-
 (defclass foreign-value (c-pointer-wrapper)
      ((lisp-managed-cell :type (array boolean ())
                          :accessor foreign-value-lisp-managed-cell-p