contrib/sb-rotate-byte/sb-rotate-byte.asd

   1 ;;; -*-  Lisp -*-
   2
   3 (cl:defpackage #:sb-rotate-byte-system
   4   (:use #:asdf #:cl))
   5 (cl:in-package #:sb-rotate-byte-system)
   6
   7 (defsystem sb-rotate-byte
   8   :version "0.1"
   9   :components
  10   ((:file "package")
  11    (:file "compiler" :depends-on ("package"))
  12    (:module "vm"
  13             :depends-on ("compiler")
  14             :components
  15             ((:file "x86-vm"
  16                     :in-order-to ((compile-op (feature :x86))))
  17              (:file "ppc-vm"
  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"))))
  22
  23 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-rotate-byte))))
  24   (provide 'sb-rotate-byte))
  25
  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")))