Better support for NetBSD/current

[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 3adf23b..036f1ba 100644 (file)
--- a/contrib/sb-rotate-byte/sb-rotate-byte.asd
+++ b/contrib/sb-rotate-byte/sb-rotate-byte.asd
@@ -1,17 +1,33 @@
 ;;; -*-  Lisp -*-
 
-(cl:defpackage #:sb-rotate-byte-system 
+(cl:defpackage #:sb-rotate-byte-system
   (:use #:asdf #:cl))
 (cl:in-package #:sb-rotate-byte-system)
 
 (defsystem sb-rotate-byte
   :version "0.1"
-  :components ((:file "package")
-              (:file "compiler" :depends-on ("package"))
-              (:module "vm"
-                       :depends-on ("compiler")
-                       :components ((:file "x86-vm"
-                                           :in-order-to ((compile-op (feature :x86)))))
-                       :pathname #.(make-pathname :directory '(:relative))
-                       :if-component-dep-fails :ignore)
-              (:file "rotate-byte" :depends-on ("compiler"))))
+  #+sb-building-contrib :pathname
+  #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
+  :components
+  ((:file "package")
+   (:file "compiler" :depends-on ("package"))
+   (:module "vm"
+            :depends-on ("compiler")
+            :components
+            (#+x86
+             (:file "x86-vm")
+             #+x86-64
+             (:file "x86-64-vm")
+             #+ppc
+             (:file "ppc-vm"))
+            :pathname
+            #+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))))
+  (provide 'sb-rotate-byte))
+
+(defmethod perform ((o test-op) (c (eql (find-system :sb-rotate-byte))))
+  (or (load (compile-file "rotate-byte-tests.lisp"))
+      (error "test-op failed")))