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

[ehuelsmann at common-lisp.net]

Author: ehuelsmann
Date: Wed Jan  3 15:22:12 2007
New Revision: 133

Modified:
   usocket/trunk/backend/sbcl.lisp
   usocket/trunk/usocket.asd
Log:
Add ECL support.

Modified: usocket/trunk/backend/sbcl.lisp
==============================================================================
--- usocket/trunk/backend/sbcl.lisp	(original)
+++ usocket/trunk/backend/sbcl.lisp	Wed Jan  3 15:22:12 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/trunk/usocket.asd
==============================================================================
--- usocket/trunk/usocket.asd	(original)
+++ usocket/trunk/usocket.asd	Wed Jan  3 15:22:12 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"