[usocket-cvs] r565 - in usocket/branches/0.4.x: . backend

[Chun Tian (binghe)]

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 at 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)