contrib/sb-grovel/sb-grovel.asd

   1 ;;; -*-  Lisp -*-
   2
   3 (defpackage #:sb-grovel-system (:use #:asdf #:cl))
   4 (in-package #:sb-grovel-system)
   5
   6 (defsystem sb-grovel
   7     :version "0.01"
   8     #+sb-building-contrib :pathname
   9     #+sb-building-contrib "SYS:CONTRIB;SB-GROVEL;"
  10     :components ((:file "defpackage")
  11                  (:file "def-to-lisp" :depends-on ("defpackage"))
  12                  (:file "foreign-glue" :depends-on ("defpackage"))))
  13
  14 (defmethod perform :after ((o load-op) (c (eql (find-system :sb-grovel))))
  15   (provide 'sb-grovel))
  16
  17 (defmethod perform ((o test-op) (c (eql (find-system :sb-grovel))))
  18   t)
  19