[usocket-cvs] r442 - usocket/branches/0.4.x

[Chun Tian (binghe)]

Author: ctian
Date: Tue Oct 21 13:31:36 2008
New Revision: 442

Log:
Report more details of a UNKNOWN-ERROR or NS-UNKNOWN-ERROR

Modified:
   usocket/branches/0.4.x/condition.lisp

Modified: usocket/branches/0.4.x/condition.lisp
==============================================================================
--- usocket/branches/0.4.x/condition.lisp	(original)
+++ usocket/branches/0.4.x/condition.lisp	Tue Oct 21 13:31:36 2008
@@ -109,6 +109,10 @@
 (define-condition unknown-error (socket-error)
   ((real-error :initarg :real-error
                :accessor usocket-real-error))
+  (:report (lambda (c stream)
+             (format stream
+                     (simple-condition-format-control (usocket-real-error c))
+                     (simple-condition-format-arguments (usocket-real-error c)))))
   (:documentation "Error raised when there's no other - more applicable -
 error available."))
 
@@ -135,6 +139,10 @@
 (define-condition ns-unknown-error (ns-error)
   ((real-error :initarg :real-error
                :accessor ns-real-error))
+  (:report (lambda (c stream)
+             (format stream
+                     (simple-condition-format-control (ns-real-error c))
+                     (simple-condition-format-arguments (ns-real-error c)))))
   (:documentation "Error raised when there's no other - more applicable -
 error available."))
 
@@ -197,4 +205,4 @@
     :context ,context :minimum ,minimum))
 
 (defmacro unimplemented (feature context)
-  `(signal 'unimplemented :feature ,feature :context ,context))
\ No newline at end of file
+  `(signal 'unimplemented :feature ,feature :context ,context))