loader.lisp

   1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: cl-user -*-
   2 ;;;; *************************************************************************
   3 ;;;; FILE IDENTIFICATION
   4 ;;;;
   5 ;;;; Name:          loader.lisp
   6 ;;;; Purpose:       loads any required modules, contains RUN function
   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 :cl-user)
  14
  15 ;;; Nothing to load since the executable contains all of the required
  16 ;;; fasls
  17
  18
  19 (defun run ()
  20   (handler-case
  21       (funcall #'vcs-tree::main (list* "vcs-tree" (cdr *posix-argv*)))
  22     (error (c)
  23       (format *error-output* "vcs-tree failed due to error:~%  ~A~%" c)
  24       (sb-ext:quit :unix-status 1))))