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