X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-rotate-byte%2Fsb-rotate-byte.asd;h=a445c1fb8978c037ed0764595f4754be9ef960a6;hb=c44f2e6960733edc383244f3e39db3b6581255c4;hp=3adf23b6804b268d8bd1d6dfe8bc92019140ce6e;hpb=cec71f1e4e1ead387f2ea642f760e553b6053f2b;p=sbcl.git

diff --git a/contrib/sb-rotate-byte/sb-rotate-byte.asd b/contrib/sb-rotate-byte/sb-rotate-byte.asd
index 3adf23b..a445c1f 100644
--- a/contrib/sb-rotate-byte/sb-rotate-byte.asd
+++ b/contrib/sb-rotate-byte/sb-rotate-byte.asd
@@ -6,12 +6,27 @@
 
 (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 "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 "ppc-vm"
+		    :in-order-to ((compile-op (feature :ppc)))))
+	    :pathname
+	    #+sb-building-contrib "SYS:CONTRIB;SB-ROTATE-BYTE;"
+	    #-sb-building-contrib #.(make-pathname :directory '(:relative))
+	    :if-component-dep-fails :ignore)
+   (: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")))