3 (cl:defpackage #:sb-rotate-byte-system
5 (cl:in-package #:sb-rotate-byte-system)
7 (defsystem sb-rotate-byte
11 (:file "compiler" :depends-on ("package"))
13 :depends-on ("compiler")
16 :in-order-to ((compile-op (feature :x86))))
18 :in-order-to ((compile-op (feature :ppc)))))
19 :pathname #.(make-pathname :directory '(:relative))
20 :if-component-dep-fails :ignore)
21 (:file "rotate-byte" :depends-on ("compiler"))))
23 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-rotate-byte))))
24 (provide 'sb-rotate-byte))
26 (defmethod perform ((o test-op) (c (eql (find-system :sb-rotate-byte))))
27 (or (load (compile-file "rotate-byte-tests.lisp"))
28 (error "test-op failed")))