[usocket-cvs] r566 - in usocket/branches/0.3.x: . backend

[Chun Tian (binghe)]

Author: ctian
Date: Tue Sep 28 05:17:06 2010
New Revision: 566

Log:
Fixed non-exist confition class: ns-try-again-condition. Thanks to Stas Boukarev <stassats at gmail.com>

Modified:
   usocket/branches/0.3.x/backend/cmucl.lisp
   usocket/branches/0.3.x/condition.lisp

Modified: usocket/branches/0.3.x/backend/cmucl.lisp
==============================================================================
--- usocket/branches/0.3.x/backend/cmucl.lisp	(original)
+++ usocket/branches/0.3.x/backend/cmucl.lisp	Tue Sep 28 05:17:06 2010
@@ -144,10 +144,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.3.x/condition.lisp
==============================================================================
--- usocket/branches/0.3.x/condition.lisp	(original)
+++ usocket/branches/0.3.x/condition.lisp	Tue Sep 28 05:17:06 2010
@@ -90,7 +90,7 @@
 
 
 (define-usocket-condition-classes
-  (ns-try-again)
+  (ns-try-again-condition)
   (ns-condition))
 
 (define-condition ns-unknown-condition (ns-condition)