sb-bsd-sockets: More robust inet-socket-bind test on Windows.

[sbcl.git] / contrib / sb-rotate-byte / sb-rotate-byte.asd

diff --git a/contrib/sb-rotate-byte/sb-rotate-byte.asd b/contrib/sb-rotate-byte/sb-rotate-byte.asd
index 8cf6d47..036f1ba 100644 (file)
--- a/contrib/sb-rotate-byte/sb-rotate-byte.asd
+++ b/contrib/sb-rotate-byte/sb-rotate-byte.asd
@@ -7,23 +7,22 @@
 (defsystem sb-rotate-byte
   :version "0.1"
   #+sb-building-contrib :pathname
-  #+sb-building-contrib "SYS:CONTRIB;SB-ROTATE-BYTE;"
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
   :components
   ((:file "package")
    (:file "compiler" :depends-on ("package"))
    (:module "vm"
             :depends-on ("compiler")
             :components
-            ((:file "x86-vm"
-                    :in-order-to ((compile-op (feature :x86))))
-             (:file "x86-64-vm"
-                    :in-order-to ((compile-op (feature :x86-64))))
-             (:file "ppc-vm"
-                    :in-order-to ((compile-op (feature :ppc)))))
+            (#+x86
+             (:file "x86-vm")
+             #+x86-64
+             (:file "x86-64-vm")
+             #+ppc
+             (:file "ppc-vm"))
             :pathname
-            #+sb-building-contrib "SYS:CONTRIB;SB-ROTATE-BYTE;"
-            #-sb-building-contrib #.(make-pathname :directory '(:relative))
-            :if-component-dep-fails :ignore)
+            #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
+            #-sb-building-contrib #.(make-pathname :directory '(:relative)))
    (:file "rotate-byte" :depends-on ("compiler"))))
 
 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-rotate-byte))))