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   #+sb-building-contrib :pathname
  10   #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
  11   :components
  12   ((:file "package")
  13    (:file "compiler" :depends-on ("package"))
  14    (:module "vm"
  15             :depends-on ("compiler")
  16             :components
  17             (#+x86
  18              (:file "x86-vm")
  19              #+x86-64
  20              (:file "x86-64-vm")
  21              #+ppc
  22              (:file "ppc-vm"))
  23             :pathname
  24             #+sb-building-contrib #p"SYS:CONTRIB;SB-ROTATE-BYTE;"
  25             #-sb-building-contrib #.(make-pathname :directory '(:relative)))
  26    (:file "rotate-byte" :depends-on ("compiler"))))
  27
  28 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-rotate-byte))))
  29   (provide 'sb-rotate-byte))
  30
  31 (defmethod perform ((o test-op) (c (eql (find-system :sb-rotate-byte))))
  32   (or (load (compile-file "rotate-byte-tests.lisp"))
  33       (error "test-op failed")))