(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))