X-Git-Url: http://git.kpe.io/?a=blobdiff_plain;f=loader.lisp;fp=loader.lisp;h=0000000000000000000000000000000000000000;hb=f3b2183bff9f8e1d3dfc13abd55593649eebf652;hp=7c1833b866a74ae82e255e17d2bad70c8bbcbcbd;hpb=f5735efb18dce73c993427c75aa39478fa27cffa;p=vcs-tree.git diff --git a/loader.lisp b/loader.lisp deleted file mode 100644 index 7c1833b..0000000 --- a/loader.lisp +++ /dev/null @@ -1,24 +0,0 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Package: cl-user -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: loader.lisp -;;;; Purpose: loads any required modules, contains RUN function -;;;; Programmer: Kevin M. Rosenberg -;;;; Date Started: Sep 2003 -;;;; -;;;; $Id$ -;;;; ************************************************************************* - -(in-package :cl-user) - -;;; Nothing to load since the executable contains all of the required -;;; fasls - - -(defun run () - (handler-case - (funcall #'vcs-tree::main (list* "vcs-tree" (cdr *posix-argv*))) - (error (c) - (format *error-output* "vcs-tree failed due to error:~% ~A~%" c) - (sb-ext:quit :unix-status 1))))