1 ;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: cl-user -*-
2 ;;;; *************************************************************************
3 ;;;; FILE IDENTIFICATION
6 ;;;; Purpose: loads any required modules, contains RUN function
7 ;;;; Programmer: Kevin M. Rosenberg
8 ;;;; Date Started: Sep 2003
11 ;;;; *************************************************************************
15 ;;; Nothing to load since the executable contains all of the required
21 (funcall #'vcs-tree::main (list* "vcs-tree" (cdr *posix-argv*)))
23 (format *error-output* "vcs-tree failed due to error:~% ~A~%" c)
24 (sb-ext:quit :unix-status 1))))