Author: ctian Date: Tue Sep 28 05:16:01 2010 New Revision: 565
Log: Fixed non-exist confition class: ns-try-again-condition. Thanks to Stas Boukarev stassats@gmail.com
Modified: usocket/branches/0.4.x/backend/cmucl.lisp usocket/branches/0.4.x/condition.lisp
Modified: usocket/branches/0.4.x/backend/cmucl.lisp ============================================================================== --- usocket/branches/0.4.x/backend/cmucl.lisp (original) +++ usocket/branches/0.4.x/backend/cmucl.lisp Tue Sep 28 05:16:01 2010 @@ -163,10 +163,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/branches/0.4.x/condition.lisp ============================================================================== --- usocket/branches/0.4.x/condition.lisp (original) +++ usocket/branches/0.4.x/condition.lisp Tue Sep 28 05:16:01 2010 @@ -131,7 +131,7 @@ error available."))
(define-usocket-condition-classes - (ns-try-again) + (ns-try-again-condition) (ns-condition))
(define-condition ns-unknown-condition (ns-condition)