;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: vcs-tree-system -*-
;;;; *************************************************************************
;;;; FILE IDENTIFICATION
;;;;
;;;; Name:          vcs-tree.asd
;;;; Purpose:       ASDF file for vcs-tree to create executable
;;;; Programmer:    Kevin M. Rosenberg
;;;; Date Started:  Sep 2003
;;;;
;;;; $Id: xlunit.asd 7061 2003-09-07 06:34:45Z kevin $
;;;; *************************************************************************

(in-package vcs-tree-system)
(defpackage vcs-tree-system (:use #:cl #:asdf))
(in-package vcs-tree-system)

(require 'sb-executable)

;;; From asdf-install.asd
(defclass exe-file (cl-source-file) ())
(defmethod perform :after ((o compile-op) (c exe-file))
  (sb-executable:make-executable
   (make-pathname :name "vcs-tree"
		  :type nil
		  :defaults (component-pathname c))
   '("package.fasl" "kmrcl-excerpt.fasl" "getopt-excerpt.fasl" "main.fasl"
     "loader.fasl")
   :initial-function "RUN"
   :muffled-warning t))

(defmethod perform ((o load-op) (c exe-file)) nil)

(defsystem vcs-tree
  :version "0.1"
  :components ((:file "package")
	       (:exe-file "loader" :depends-on ("main"))
	       (:file "kmrcl-excerpt" :depends-on ("package"))
	       (:file "getopt-excerpt" :depends-on ("package"))
	       (:file "main" :depends-on ("kmrcl-excerpt" "getopt-excerpt"))))
	       
(defmethod perform :after ((o load-op) (c (eql (find-system :vcs-tree))))
  (provide 'vcs-tree))

(defmethod perform ((o test-op) (c (eql (find-system :vcs-tree))))
  t)