Author: ehuelsmann Date: Wed Jan 3 15:34:46 2007 New Revision: 136 Modified: usocket/branches/0.2.x/backend/sbcl.lisp usocket/branches/0.2.x/usocket.asd Log: Backport ECL support. Modified: usocket/branches/0.2.x/backend/sbcl.lisp ============================================================================== --- usocket/branches/0.2.x/backend/sbcl.lisp (original) +++ usocket/branches/0.2.x/backend/sbcl.lisp Wed Jan 3 15:34:46 2007 @@ -5,6 +5,14 @@ (in-package :usocket) +;; There's no way to preload the sockets library other than by requiring it +;; +;; ECL sockets has been forked off sb-bsd-sockets and implements the +;; same interface. We use the same file for now. +#+ecl +(eval-when (:compile-toplevel :load-toplevel :execute) + (require :sockets)) + (defun map-socket-error (sock-err) (map-errno-error (sb-bsd-sockets::socket-error-errno sock-err))) Modified: usocket/branches/0.2.x/usocket.asd ============================================================================== --- usocket/branches/0.2.x/usocket.asd (original) +++ usocket/branches/0.2.x/usocket.asd Wed Jan 3 15:34:46 2007 @@ -30,8 +30,8 @@ :depends-on ("condition")) #+scl (:file "scl" :pathname "backend/scl" :depends-on ("condition")) - #+sbcl (:file "sbcl" :pathname "backend/sbcl" - :depends-on ("condition")) + #+(or sbcl ecl) (:file "sbcl" :pathname "backend/sbcl" + :depends-on ("condition")) #+lispworks (:file "lispworks" :pathname "backend/lispworks" :depends-on ("condition")) #+openmcl (:file "openmcl" :pathname "backend/openmcl"