Index: usocket.asd
===================================================================
--- usocket.asd	(revision 497)
+++ usocket.asd	(working copy)
@@ -7,7 +7,7 @@
 (in-package #:cl-user)
 
 (defpackage #:usocket-system
-    (:use #:cl #:asdf))
+    (:use #:cl #:asdf #:portacl))
 
 (in-package #:usocket-system)
 
@@ -24,20 +24,9 @@
                         :depends-on ("package"))
                  (:file "condition"
                         :depends-on ("usocket"))
-                 #+clisp (:file "clisp" :pathname "backend/clisp"
-                                :depends-on ("condition"))
-                 #+cmu (:file "cmucl" :pathname "backend/cmucl"
-                              :depends-on ("condition"))
-                 #+scl (:file "scl" :pathname "backend/scl"
-                              :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"
-                                  :depends-on ("condition"))
-                 #+allegro (:file "allegro" :pathname "backend/allegro"
-                                  :depends-on ("condition"))
-                 #+armedbear (:file "armedbear" :pathname "backend/armedbear"
-                                                :depends-on ("condition"))
-                 ))
+                 (:module "backend"
+                          :depends-on ("condition")
+                          :components
+                          ((:port-file "~A"
+                            ;; Special case
+                            :alternate-file #.(feature-when :ecl "sbcl"))))))