[usocket-cvs] r564 - in usocket/trunk: . backend

[Chun Tian (binghe)]

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