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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Tue Feb  7 12:27:50 2006
New Revision: 55

Modified:
   usocket/trunk/backend/allegro.lisp
   usocket/trunk/usocket.asd
Log:
Make Allegro work.

Modified: usocket/trunk/backend/allegro.lisp
==============================================================================
--- usocket/trunk/backend/allegro.lisp	(original)
+++ usocket/trunk/backend/allegro.lisp	Tue Feb  7 12:27:50 2006
@@ -10,6 +10,7 @@
     (:address-not-available . address-not-available-error)
     (:network-down . network-down-error)
     (:network-reset . network-reset-error)
+    (:network-unreachable . network-unreachable-error)
     (:connection-aborted . connection-aborted-error)
     (:connection-reset . connection-reset-error)
     (:no-buffer-space . no-buffers-error)
@@ -22,14 +23,15 @@
 (defun handle-condition (condition &optional (socket nil))
   "Dispatch correct usocket condition."
   (typecase condition
-    (socket-error (let ((usock-err
-                         (cdr (assoc (stream-error-identifier condition)
-                                     +allegro-identifier-error-map+))))
-                    (if usock-err
-                        (error usock-err :socket socket)
-                      (error 'unknown-error
-                             :real-condition condition
-                             :socket socket))))))
+    (excl:socket-error
+     (let ((usock-err
+            (cdr (assoc (excl:stream-error-identifier condition)
+                        +allegro-identifier-error-map+))))
+       (if usock-err
+           (error usock-err :socket socket)
+         (error 'unknown-error
+                :real-error condition
+                :socket socket))))))
 
 (defun socket-connect (host port &optional (type :stream))
   (declare (ignore type))

Modified: usocket/trunk/usocket.asd
==============================================================================
--- usocket/trunk/usocket.asd	(original)
+++ usocket/trunk/usocket.asd	Tue Feb  7 12:27:50 2006
@@ -18,7 +18,6 @@
     :licence "MIT"
     :description "Universal socket library for Common Lisp"
     :depends-on (:split-sequence
-                 #+allegro :socket
                  #+sbcl :sb-bsd-sockets
                  #+lispworks "comm")
     :components ((:file "package")