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 ;;;; Author:  Kevin M. Rosenberg
   8 ;;;; Created: Sep 2003
   9 ;;;;
  10 ;;;; $Id$
  11 ;;;; *************************************************************************
  12
  13 (in-package cl-user)
  14 (defpackage vcs-tree-system
  15   (:use #:cl #:asdf)
  16   (:export save-executable))
  17 (in-package vcs-tree-system)
  18
  19 (defun save-executable (&optional (fname "_vcs-tree"))
  20   (setq cl:*print-pretty* nil)
  21   (sb-ext:save-lisp-and-die
  22    fname
  23    :executable t
  24    :toplevel (lambda ()
  25                (handler-case
  26                    (funcall (intern (symbol-name '#:main)
  27                                     (find-package (symbol-name '#:vcs-tree)))
  28                             (list* "vcs-tree" (cdr sb-ext:*posix-argv*)))
  29                  (error (c)
  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))))
  33
  34 (defsystem vcs-tree
  35   :version "0.3"
  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"))))
  40