vcs-tree.asd

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: vcs-tree-system -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          vcs-tree.asd
   6 ;;;; Purpose:       ASDF file for vcs-tree to create executable
   7 ;;;; Programmer:    Kevin M. Rosenberg
   8 ;;;; Date Started:  Sep 2003
   9 ;;;;
  10 ;;;; $Id: xlunit.asd 7061 2003-09-07 06:34:45Z kevin $
  11 ;;;; *************************************************************************
  12
  13 (in-package vcs-tree-system)
  14 (defpackage vcs-tree-system (:use #:cl #:asdf))
  15 (in-package vcs-tree-system)
  16
  17 (require 'sb-executable)
  18
  19 ;;; From asdf-install.asd
  20 (defclass exe-file (cl-source-file) ())
  21 (defmethod perform :after ((o compile-op) (c exe-file))
  22   (sb-executable:make-executable
  23    (make-pathname :name "vcs-tree"
  24                   :type nil
  25                   :defaults (component-pathname c))
  26    '("package.fasl" "kmrcl-excerpt.fasl" "getopt-excerpt.fasl" "main.fasl"
  27      "loader.fasl")
  28    :initial-function "RUN"
  29    :muffled-warning t))
  30
  31 (defmethod perform ((o load-op) (c exe-file)) nil)
  32
  33 (defsystem vcs-tree
  34   :version "0.1"
  35   :components ((:file "package")
  36                (:exe-file "loader" :depends-on ("main"))
  37                (:file "kmrcl-excerpt" :depends-on ("package"))
  38                (:file "getopt-excerpt" :depends-on ("package"))
  39                (:file "main" :depends-on ("kmrcl-excerpt" "getopt-excerpt"))))
  40
  41 (defmethod perform :after ((o load-op) (c (eql (find-system :vcs-tree))))
  42   (provide 'vcs-tree))
  43
  44 (defmethod perform ((o test-op) (c (eql (find-system :vcs-tree))))
  45   t)
  46