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