Author: ctian Date: Tue Sep 28 05:15:13 2010 New Revision: 564
Log: Fixed non-exist confition class: ns-try-again-condition. Thanks to Stas Boukarev stassats@gmail.com
Modified: usocket/trunk/backend/cmucl.lisp usocket/trunk/condition.lisp
Modified: usocket/trunk/backend/cmucl.lisp ============================================================================== --- usocket/trunk/backend/cmucl.lisp (original) +++ usocket/trunk/backend/cmucl.lisp Tue Sep 28 05:15:13 2010 @@ -209,10 +209,10 @@ ;; constants mentioned in C (let ((exception (second (assoc errno - '((1 ns-host-not-found-error) ;; HOST_NOT_FOUND - (2 ns-no-recovery-error) ;; NO_DATA - (3 ns-no-recovery-error) ;; NO_RECOVERY - (4 ns-try-again)))))) ;; TRY_AGAIN + '((1 ns-host-not-found-error) ;; HOST_NOT_FOUND + (2 ns-no-recovery-error) ;; NO_DATA + (3 ns-no-recovery-error) ;; NO_RECOVERY + (4 ns-try-again-condition)))))) ;; TRY_AGAIN (when exception (error exception))))))
Modified: usocket/trunk/condition.lisp ============================================================================== --- usocket/trunk/condition.lisp (original) +++ usocket/trunk/condition.lisp Tue Sep 28 05:15:13 2010 @@ -132,7 +132,7 @@ error available."))
(define-usocket-condition-classes - (ns-try-again) + (ns-try-again-condition) (ns-condition))
(define-condition ns-unknown-condition (ns-condition)