1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: vcs-tree-system -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
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
10 ;;;; $Id: xlunit.asd 7061 2003-09-07 06:34:45Z kevin $
11 ;;;; *************************************************************************
14 (defpackage vcs-tree-system (:use #:cl #:asdf))
15 (in-package vcs-tree-system)
17 (require 'sb-executable)
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"
25 :defaults (component-pathname c))
26 '("package.fasl" "kmrcl-excerpt.fasl" "getopt-excerpt.fasl" "main.fasl"
28 :initial-function "RUN"
31 (defmethod perform ((o load-op) (c exe-file)) nil)
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"))))
41 (defmethod perform :after ((o load-op) (c (eql (find-system :vcs-tree))))
44 (defmethod perform ((o test-op) (c (eql (find-system :vcs-tree))))