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 ;;;; Author: Kevin M. Rosenberg
11 ;;;; *************************************************************************
14 (defpackage vcs-tree-system
16 (:export save-executable))
17 (in-package vcs-tree-system)
19 (defun save-executable (&optional (fname "_vcs-tree"))
20 (setq cl:*print-pretty* nil)
21 (sb-ext:save-lisp-and-die
26 (funcall (intern (symbol-name '#:main)
27 (find-package (symbol-name '#:vcs-tree)))
28 (list* "vcs-tree" (cdr sb-ext:*posix-argv*)))
30 (format *error-output* "vcs-tree failed due to error:~% ~A~%" c)
31 (sb-ext:quit :unix-status 1)))
32 (sb-ext:quit :unix-status 0))))
36 :components ((:file "package")
37 (:file "kmrcl-excerpt" :depends-on ("package"))
38 (:file "getopt-excerpt" :depends-on ("package"))
39 (:file "main" :depends-on ("kmrcl-excerpt" "getopt-excerpt"))))