[usocket-cvs] r526 - usocket/trunk

[Chun Tian (binghe)]

Author: ctian
Date: Tue Jun 29 08:15:02 2010
New Revision: 526

Log:
Condition: add default value for slot REAL-ERROR, this prevent recursive conditions when usocket conditions are reported.

Modified:
   usocket/trunk/condition.lisp

Modified: usocket/trunk/condition.lisp
==============================================================================
--- usocket/trunk/condition.lisp	(original)
+++ usocket/trunk/condition.lisp	Tue Jun 29 08:15:02 2010
@@ -118,7 +118,8 @@
 
 (define-condition unknown-error (socket-error)
   ((real-error :initarg :real-error
-               :accessor usocket-real-error))
+               :accessor usocket-real-error
+               :initform nil))
   (:report (lambda (c stream)
              (typecase c
                (simple-condition
@@ -135,8 +136,9 @@
   (ns-condition))
 
 (define-condition ns-unknown-condition (ns-condition)
-  ((real-error :initarg :real-condition
-               :accessor ns-real-condition))
+  ((real-condition :initarg :real-condition
+                   :accessor ns-real-condition
+                   :initform nil))
   (:documentation "Condition raised when there's no other - more applicable -
 condition available."))
 
@@ -151,7 +153,8 @@
 
 (define-condition ns-unknown-error (ns-error)
   ((real-error :initarg :real-error
-               :accessor ns-real-error))
+               :accessor ns-real-error
+               :initform nil))
   (:report (lambda (c stream)
              (typecase c
                (simple-condition