#!/bin/sh --
exec sbcl --noinform --disable-debugger --userinit /dev/null --sysinit /dev/null --eval "(with-open-file (i \"$0\" :element-type '(unsigned-byte 8)) (loop while (< ret 2) when (= (read-byte i) 10) count 1 into ret) (load i) (funcall (quote RUN)) (quit))" --end-toplevel-options ${1+"$@"}
# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/package.lisp"
  	        at Saturday, September 25, 2004 09:45:50 AM NIL
  	        on vore
  	        using SBCL version 0.8.14.28
   SPARC3      (:SB-PACKAGE-LOCKS)?>    #   Q&COMMON-LISP-USERR CL-USERQ&SB-INTRFIND-UNDELETED-PACKAGE-OR-LOSE<QLPACKAGERQR( $ $ -Q&	SB-KERNELINSTANCER(	$$ -
QLSTRUCTURE-OBJECTR
($$-
Q&SB-SYSSTRUCTURE!OBJECTR

($$-($$-L	*PACKAGE*LPACKAGEQ&SB-CCOMPILED-DEBUG-INFOR

Q
DEBUG-INFOR

($$-($$-&top level formQCOMPILED-DEBUG-FUNR

Q	DEBUG-FUNR

( $$-!("$$
-#&Itop level form (SETQ *PACKAGE* (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))$NTOPLEVEL( &$ NMINIMALNSTANDARD$$$$(#   1
)(*1+,;   
*                    چ  !  ! `
`   `x  `       6           `+    `@    `3     `/``@    `$      ` `   
.`   
/.=?-$LFUNCTION    /8 ?>0   #   &VCS-TREE0&CL12&MAIN3405Q&SB-IMPLR6%DEFPACKAGE<#&@top level form (SB-IMPL::%DEFPACKAGE "VCS-TREE" (QUOTE NIL) ...)8%( 9$'($$$$(#   1
:(;1<=;   
*                    چ @!  !   0`
    `"`"``"` `"`$"`("`,`  0 `  	`   ,6    P      `     =?>8.    ?8 ?>@   #    VCS-TREE<#$%( A$'($$$$(#   1
B(C1DE;   
*                    چ  !  ! `
`   `x  `       6           `+    `@    `3     `/``@    `$      ` `   
.`   
/.=?F$.    G8 QDEBUG-SOURCER

(I$$-JNFILE&)/build/buildd/vcs-tree-0.2.1/package.lispL"Ə M" N$ +     %O1PQRE      R=      R,      ?>S   @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp"
  	        at Saturday, September 25, 2004 09:45:51 AM NIL
  	        on vore
  	        using SBCL version 0.8.14.28
   SPARC3      (:SB-PACKAGE-LOCKS)?>    #   Q&COMMON-LISP-USERR VCS-TREEQ&SB-INTRFIND-UNDELETED-PACKAGE-OR-LOSE<QLPACKAGERQR( $ $ -Q&	SB-KERNELINSTANCER(	$$ -
QLSTRUCTURE-OBJECTR
($$-
Q&SB-SYSSTRUCTURE!OBJECTR

($$-($$-L	*PACKAGE*LPACKAGEQ&SB-CCOMPILED-DEBUG-INFOR

Q
DEBUG-INFOR

($$-($$-&top level formQCOMPILED-DEBUG-FUNR

Q	DEBUG-FUNR

( $$-!("$$
-#&Itop level form (SETQ *PACKAGE* (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))$NTOPLEVEL( &$ NMINIMALNSTANDARD$$$$(#   1
)(*1+,;   
*                    چ  !  ! `
`   `x  `       6           `+    `@    `3     `/``@    `$      ` `   
.`   
/.=?-$LFUNCTION    /8 ?>0   #  N	DIRECTIONNINPUTLOPEN<LGENSYM<L	READ-LINE<LNREVERSE<NABORTLCLOSE<&DEFUN READ-FILE-TO-STRINGS8#&&XEP for VCS-TREE::READ-FILE-TO-STRINGS9NEXTERNAL$$#  $$#  (;$'(#  #  $ #  1
<$4#Q&VCS-TREER=READ-FILE-TO-STRINGS$$$d(?$'($$$$8#  1
@#H  #&FLET #:CLEANUP-FUN-9ANCLEANUP( C$'+   .D$$#m  #L  #  1
E(F1GH;	  *                    ʆ `    ! !  !  !  `
``   `         *6    X  ! <  `` !:$? `` @$?! 8!  ! L ! ! H! D! @ ! P  9"` "`"`b"`  9`    aX      V6    ~   !    `   a         j6    ~X       `(`` `` @$ $`!  <  `   b          6    }    `!   b`  `       6    }!  8 $? 9   9   ` 8 <  	b 5         6      `   6! !  !  H D @ !  L        $?!!`       ` 8 < 	c`          6            !         ? !   `% `)   c         6    |             
   QNADDRQUNWINDR@  QNSETHIRQUNWINDR<  =?M>=FILEO.PLVALUESLLISTL	&OPTIONALTU    ?>W   #   V>&?Opens a reads a file. Returns the contents as a list of stringsWQ&SB-IMPLRX%DEFUN<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::READ-FILE-TO-STRINGS) (SB-INT:NAMED-LAMBDA VCS-TREE::READ-FILE-TO-STRINGS # ...) ...)Z%( [$'($$$$(#   1
\(]1^_;   
*                    چ  !  ! ``
` `   `       6          `     =?`Z.    a8 ?>b   #   =*WHITESPACE-CHARS*E E	E
E
cX%DEFVAR<#&Wtop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*WHITESPACE-CHARS*) (UNLESS # #) ...)e%( f$'($$$$(#   1
g(h1ij;   *                      !  ! `
 J    ``
   `   `  `   $6    p      `     =?ke.    l8 ?>m   #   bLSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACEn#&(XEP for VCS-TREE::STRING-TRIM-WHITESPACEo:$$#  $$#.  (p$'(#  #  $$$x1
q$8#=STRING-TRIM-WHITESPACE$$#n  (s$'(#  #
  $<#   1
t(u1vw;   *                              `
?`J      `     Ġ        
      
   =?xr=STRz.PQL
SIMPLE-STRINGS|}    ?>   #   ~rY<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (SB-INT:NAMED-LAMBDA VCS-TREE::STRING-TRIM-WHITESPACE # ...) ...)%( $'($$$$(#   1
(1;   *                      !  ! ``
  `   `x      6          `     =?.    8 ?>   #   PROPER-LIST-OF-LENGTH-P<=ITX
BACKQ-LIST<LIFLLETLDEFMACRO=AIF=TEST=THENS=ELSEARG-COUNT-ERROR<&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...):$$#  $$#  $`($'(#  #  $ #  1
$4#&6#'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...)$$$d$`($'($$$$8#  1
(1;
   *                    ʆ      ! !  !             `
   `     ,6    P  q           ?               ?!      |       z      J        s       q       o   ?! ``   aȬ  Ġ       r6    ~8`   a  `   ~6    ~! ``  `   b@          6    } ` `        !      `!`%`)    `-   bȬ  `       6    }8}      
      
      
      
      
      
      
      
      
      
   =?
WHOLE28

ENVIRONMENT29.L*    ?>   #   &DEFMACRO VCS-TREE::AIF	%DEFMACRO<#&Gtop level form (SB-C::%DEFMACRO (QUOTE VCS-TREE::AIF) (FUNCTION #) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` ``   `  `       "6    x      `     =?.    8 ?>   #  =FLATTEN<LAPPEND<&
DEFUN FLATTEN#&XEP for VCS-TREE::FLATTEN:$$#  $$#  ($'(#  #  $ #  1
$4#$$$d($'($$$$8#  1
(1;  *                       e   ! !  !       	         `  ?   )    ?`
   `Ь  `   46    0!   `
   a  `       D6    ~  `      Ġ  ? `(` $$` `` @!   `
   a  `       h6    ~`  `      Ġ        
   =?=LIS.PQS    ?>   #   Y<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...)%( $'($$$$(#   1
(1;   *                      !  ! ``
  `   `x      6          `     =?.    8 ?>   #   &DEFUN MKLIST#&XEP for VCS-TREE::MKLIST:$$#  $$#  ($'(#  #  $ #   1
$0#=MKLIST$$#  ($'(#  #  $0#   1
(1;   *                           
        `(` $$` `` @           
   =?=OBJU    ?>   #   &Make into list if atomY<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` `   `       6          `     =?.    8 ?>   #  =CANONICALIZE-DIRECTORY-NAME<NNAMENWILDNTYPENDEFAULTSL
MAKE-PATHNAME<L	DIRECTORY<=PROBE-DIRECTORY<LIDENTITY<LEQL<%FIND-POSITION<&root not directory ~ALERROR<=DIRECTORY-TREE<LCONS&~ALSEQUENCE&DEFUN DIRECTORY-TREE#& XEP for VCS-TREE::DIRECTORY-TREE:$$#  $$#  ($'(#  #  $ #h  1
$4#$$$d($'($$$$8#t  1
(1;  *                     @Q   ! !  !  `
   `  `       .6    H  ! ``````!   a  `   B6    ~`%   a8  `   N6    ~Ȥ !   `(` $$` `` @ !  >   ! $ ?!      	   !  `)   aج  `   v6    ~( $    !    !  `
   b(  `   6    }  `(` $$` `` @       %             ! `- @    `1             "``5   c  	`       6    |       1    `)   c`  `   6    |       `(` $$` `` @      ` `9 `=   c  Ġ   6    |  `(` $$` `` @ !    #   !  ! ?`A   dh  `  6    {   `(` $$` `` @ @    %` 
   K    @      `(`` `` @ $$`     `E   
.`I `=   eP  Ġ  T6    z        H   D   `M   
N `E   
.       
      
      
      
      
   =?=FILENAMEU    ?>   #   &>Returns a tree of pathnames for sub-directories of a directoryY<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::DIRECTORY-TREE # ...) ...)%( $'($$$$(#   1
   (  1    ;   
*                    چ  !  ! ``
` `   `       6          `     =?  .      8 ?>  #  LPATHNAME<L
PATHNAME-NAME<L
PATHNAME-TYPE<LPATHNAME-DIRECTORY<<N	DIRECTORYNVERSION<LSTRING&.
  LCONCATENATE<N
UNSPECIFIC&!DEFUN CANONICALIZE-DIRECTORY-NAME  #&-XEP for VCS-TREE::CANONICALIZE-DIRECTORY-NAME  :$$#  $$#  (  $'(#  #  $ #  1
  $4#$$$d(  $'($$$$8#  1
  #h  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#.  (  $'+   n  #  #m  #h  #  1
  (  1    ;  *                     @    ! !  !  `
   `  `       ,6    P!  `   `  `   :6       @   	a           H6!  `   aP  `       T6    ~   @   	a          b6   j      Y    I      	         ` !  `   b  `       6    }    @ 	b@ `     6   `   bp  Ġ   6    } `!`% `) `-!  ! `1!   ! $`5  (    `   `(` $$` `` @      `(` $$` `` @       `9 `=`A   cx          6    | `(` $$` `` @    `E@       ?        
   =?  .PQ  S        ?>!  #      Y<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (SB-INT:NAMED-LAMBDA VCS-TREE::CANONICALIZE-DIRECTORY-NAME # ...) ...)!  %( "  $'($$$$(#   1
#  ($  1%  &  ;   *                      !  ! ``
  `   `x      6          `     =?'  !  .    (  8 ?>)  #  <L
NAMESTRING<Q&SB-UNIXR	*  UNIX-FILE-KIND<
  &DEFUN PROBE-DIRECTORY,  #&!XEP for VCS-TREE::PROBE-DIRECTORY-  :$$#  $$#  (.  $	'(#  #  $ #  1
/  $4#$$$d(0  $	'($$$$8#  1
1  (2  13  4  ;  
*                    چ   9   ! !  !  `
   `  `       "6    x`   `  `   .6    H`   `  `   :6    `@ 	         `        
   =?5  .PQLMEMBER7  S8  9      ?>;  #   :  Y<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROBE-DIRECTORY # ...) ...);  %( <  $	'($$$$(#   1
=  (>  1?  @  ;   *                      !  ! ``
  `   `x      6          `     =?A  ;  .    B  8 ?>C  #  	*  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(F  $$-G  L*DEFAULT-PATHNAME-DEFAULTS*  QLLOGICAL-PATHNAMER

G  (J  $$-K  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWDM  #&XEP for VCS-TREE::CWDN  :$$#  $$#  (O  $
'(#  #  $ #  1
P  $`#&%hairy arg processor for VCS-TREE::CWDQ  $=DIR#N  $d(S  $

OPTIONAL-ARGS$ (U  ($$$$d#  1
V  #  #&&OPTIONAL processor #:G94W  NOPTIONAL( Y  $
'(#  #  #  #  1
Z  ([  1\  ]  ;  *                    ҆                !          
   !  /   ! `
    `Ȭ          26    8       ?
      ! `   a(  `       J6    ~      `   @        
   &         +@    `     `$?     3      / 
`    `   
N`   
/N `   b@  `       6    }     +@ %   `!    !  `%   b  `   6    }X  `%   b  `   6    }     `!   
/N  !  ^   =?^  =CWDSR  `  .Sa  b      ?>d  #   c  _  &)Change directory and set default pathnamed  Y<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)e  %( f  $
'($$$$(#   1
g  (h  1i  j  ;   
*                    چ  !  ! ``
` `   `       6          `     =?k  e  .    l  8 ?>m  #   NUNIX-STATUSQ&SB-EXTR	n  QUIT<&
DEFUN QUITp  #&XEP for VCS-TREE::QUITq  :$$#  $$#  (r  $'(#  #  $ #   1
s  $\#&&hairy arg processor for VCS-TREE::QUITt  $=CODE#n  (v  $T  $ (w  (#  #-  $`#   1
x  #   #&&OPTIONAL processor #:G106y  X  ( z  $'(#  #  #   #   1
{  (|  1}  ~  ;   *                            )                
     	      "     `
`    	 Ġ                     =?  =QUITSu  $     .a        ?>  #       &LFunction to exit the Lisp implementation. Copied from CLOCC's QUIT function.  Y<#&ftop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::QUIT) (SB-INT:NAMED-LAMBDA VCS-TREE::QUIT # ...) ...)  %(   $'($$$$(#   1
  (  1    ;   
*                    چ  !  ! ``
` `   `       6          `     =?    .      8 ?>  $p&DEFUN COMMAND-LINE-ARGUMENTS  #&(XEP for VCS-TREE::COMMAND-LINE-ARGUMENTS  :$$#  (  $'(#  #  $ $X1
  $,#=COMMAND-LINE-ARGUMENTS(   $'(#  #  $,$d1
  (  1    ;p   *                        
    4?`J               
      
   =?    .      ?>  #       Y<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::COMMAND-LINE-ARGUMENTS) (SB-INT:NAMED-LAMBDA VCS-TREE::COMMAND-LINE-ARGUMENTS NIL ...) ...)  %(   $'($$$$(#   1
  (  1    ;   *                      !  ! ``
  `   `x      6          `     =?    .      8 ?>  #h  
  NWHOLENALLOW-OTHER-KEYS$   NELEMENT-TYPEL	BASE-CHARNFILL-POINTERN
ADJUSTABLEL
MAKE-ARRAY<  XMAKE-FILL-POINTER-OUTPUT-STREAM<&-c  &/bin/sh  1NOUTPUTNERROR	n  RUN-PROGRAM<QXPROCESSR

(  $$-  XPROCESS7<&DEFUN SHELL-COMMAND-OUTPUT  #&&XEP for VCS-TREE::SHELL-COMMAND-OUTPUT  :$$#  $$#.  (  $
'(#  #  #   #h  1
  #   #&&MORE processing  X  $$#  $$#  $$#-  (  $
'(#  #  #   #h  1
  #  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $=CMD$d(  $
$ 
  DELETED    (  ($$$#  #h  1
  #  #&FLET #:CLEANUP-FUN-118  B(   $
'+   .  $$#m  #  #h  1
  #  #&FLET #:CLEANUP-FUN-108  B(   $
'+   .  $$#m  #  #h  1
  (	  1    ;h  *                           	 	  ` "  `"   `"  	`"  `"  `"   	   #           
   "`     
`   6    #    
 @" 
 @"`
     `     `      `(` $$` `` @              ! !             
      
  !   ```!`%  `) "``-   b  	`   6    }x!   `1``!`%  `) "``-   b  	`       6    }!  `5   c   `   6    |  ! X!  !  ! ! |! x! t !  < 9"` "`"`e"` < 9 `5   c  `       6    |P   ! \ ! l ! ! h! d! ` ! p   9"` "`"`fx"`   9`9  `(`  $$$$ `` @    `=`A `E`I"`"``M    d  	`  &6    {h!  9   9    \  	d         86 9   9    X  	e         F6    #    `+ "   `Q@                  `3     `/`
`Q@   `U   
.`Q   
/.     v6! !  !  | x t !          $?!!`        X 	fX I    6             6! !  !  h d ` !  l        $?!!`        \ 	f 
    6            ! !   `Y   gH  `      6    x      ? ! !   `Y   g  `  6    x`      ?     QNADDRQUNWINDR  QNSETHIRQUNWINDR  QNADDRQUNWINDR  QNSETHIRQUNWINDR  =?  =SHELL-COMMAND-OUTPUT  L&KEY=WHOLE  .  
          QLBASE-STRING  S        ?>  #       Y<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (SB-INT:NAMED-LAMBDA VCS-TREE::SHELL-COMMAND-OUTPUT # ...) ...)  %(   $
'($$$$(#   1
  (  1    ;   *                      !  ! ``
  `   `x      6          `     =?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&//build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp  "Ə   "   $ +     eON
.  1                    ̠       ̗       ̋       ~       j       ]       @       4       &                                                     ̹        ̬        ̜        ̄        w        j        _        H        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp"
  	        at Saturday, September 25, 2004 09:45:50 AM NIL
  	        on vore
  	        using SBCL version 0.8.14.28
   SPARC3      (:SB-PACKAGE-LOCKS)?>    #   Q&COMMON-LISP-USERR VCS-TREEQ&SB-INTRFIND-UNDELETED-PACKAGE-OR-LOSE<QLPACKAGERQR( $ $ -Q&	SB-KERNELINSTANCER(	$$ -
QLSTRUCTURE-OBJECTR
($$-
Q&SB-SYSSTRUCTURE!OBJECTR

($$-($$-L	*PACKAGE*LPACKAGEQ&SB-CCOMPILED-DEBUG-INFOR

Q
DEBUG-INFOR

($$-($$-&top level formQCOMPILED-DEBUG-FUNR

Q	DEBUG-FUNR

( $$-!("$$
-#&Itop level form (SETQ *PACKAGE* (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))$NTOPLEVEL( &$ NMINIMALNSTANDARD$$$$(#   1
)(*1+,;   
*                    چ  !  ! `
`   `x  `       6           `+    `@    `3     `/``@    `$      ` `   
.`   
/.=?-$LFUNCTION    /8 ?>0   #  L
SIMPLE-STRING&DEFUN IS-SHORT-OPTION1#&!XEP for VCS-TREE::IS-SHORT-OPTION2NEXTERNAL$$#  $$#  (4$'(#  #  $ #  1
5$4#Q&VCS-TREER6IS-SHORT-OPTION$,#n  $d(8$'($$$$8#  1
9(:1;<;  *                       c    !  ! !       `xĠ       6       J     B   
   =      @ C     0     ,   2` `- #     @ 4             2` `- 	         `     :`   
.n       :`   
.n   `
   
n           
      

 n
-    

 n
- =?=76ARG?.@LVALUESLMEMBERCL	&OPTIONALEF    ?>H   #   G7Q&SB-IMPLRH%DEFUN<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SHORT-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SHORT-OPTION # ...) ...)J%( K$'($$$$(#   1
L(M1NO;   *                      !  ! ``
  `   `x      6          `     =?PJ.    Q8 ?>R   #  0&DEFUN IS-OPTION-TERMINATORR#&&XEP for VCS-TREE::IS-OPTION-TERMINATORS3$$#  $$#  (T$'(#  #  $ #  1
U$4#6IS-OPTION-TERMINATOR$,#n  $d(W$'($$$$8#  1
X(Y1Z[;  *                       c    !  ! !       `xĠ       6       J     B   
   =      @ C     0     ,   2` `- #     @ 4             2` `- 	         `     :`   
.n       :`   
.n   `
   
n           
      

 n
-    

 n
- =?\V?F    ?>^   #   ]VI<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-OPTION-TERMINATOR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-OPTION-TERMINATOR # ...) ...)^%( _$'($$$$(#   1
`(a1bc;   *                      !  ! ``
  `   `x      6          `     =?d^.    e8 ?>f   #T  0&DEFUN IS-LONG-OPTIONf#& XEP for VCS-TREE::IS-LONG-OPTIONg3$$#  $$#  (h$'(#  #  $ #  1
i$4#6IS-LONG-OPTION$,#n  $d(k$'($$$$8#$  1
l(m1no;T  *                       }    !  ! !       `xĠ       6       	         `   X   
   S      @ V     F     B   2` `- 9     @ G     ,     (   2` `-      @ 8             2` `-            :`   
.n       :`   
.n       :`   
.n   `
   
n       
      

 n
-    

 n
-    

 n
- =?pj?F    ?>r   #   qjI<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-LONG-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-LONG-OPTION # ...) ...)r%( s$'($$$$(#   1
t(u1vw;   *                      !  ! ``
  `   `x      6          `     =?xr.    y8 ?>z   #  NLONGLIDENTITY<LEQL<%FIND-POSITION<LSUBSEQ<LSEQUENCENSHORTCASE-FAILURENNAMELECASENDATUMN
EXPECTED-TYPEBzN
POSSIBILITIESzLERROR<&DEFUN DECOMPOSE-ARG#&XEP for VCS-TREE::DECOMPOSE-ARG3$$#  $$#  $$#.  ($'(#  #  $ #  1
$8#6
DECOMPOSE-ARG$$$d$$#   ($'($$$$<#  1
(1;  *                     @    ! ! !  !  `
  u         [   ! ` @    `       !  !B     "`   a0  
`   L6   ~  !   	 `   a         `6    ~ !       ` `   aЬ  Ġ   t6    ~0                         ?          `!   
. `%            $`)`-`1`5 `9`="``A"``E"` `I  $ b  	`       6    }   
      
      
   =?>6OPTION-TYPE.ALORLCONSLNULLLSIMPLE-ARRAYL*D    ?>   #   &Returns base-name,argumentI<#&xtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DECOMPOSE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::DECOMPOSE-ARG # ...) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` `   `       6          `     =?.    8 ?>   #  7<j<NARG<z&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG3$$#  $$#  ($'(#  #  $ #  1
$4#6ANALYZE-ARG$$$d($'($$$$8#  1
(1;  *                    ҆   ]   ! !  !  `
   `  `       $6    p  E    `   `Ь  `   46    0  2   `` $   !   `   a0  Ġ       L6   ~                 `!   `     `!   `          
   =??.@ABzD    ?>   #   &<Analyzes an argument. Returns option-type,base-name,argumentI<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::ANALYZE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::ANALYZE-ARG # ...) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` `   `       6          `     =?.    8 ?>   #  6MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTION#&XEP for VCS-TREE::FIND-OPTION3$$#  $$#  $$#.  ($'(#  #  $ #  1
$8#6FIND-OPTION$$$d$$#   ($'($$$$<#  1
(1;  *                       e   ! ! !  !   `(` $$` `` @           O   ? `(` $$` `` @  8   %`
`  >    @     `
   a8  Ġ   N6    ~Ȁ      `   ax  Ġ   ^6    ~      ?     `      `   
.       
      
      
      
   =?6NAME6OPTIONS.AD׎    ?>   #   &AFind an option in option list. Handles using unique abbreviationsI<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FIND-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::FIND-OPTION # ...) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` `   `       6          `     =?.    8 ?>   #0  <<&DEFUN MATCH-OPTION#&XEP for VCS-TREE::MATCH-OPTION3$$#  $$#  $$#.  ($'(#  #  $ #  1
$8#6MATCH-OPTION$$$d$$#   ($'($$$$<#$  1
(1;0  *                       =   ! ! !  !  `
   `  `    6    !  !  `   `Ȭ  Ġ   26    8                               
      
   =?>.AD    ?>   #   &TMatches an argument to an option. Returns option-list,option-type,base-name,argumentI<#&vtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-OPTION # ...) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` `   `       6          `     =?.    8 ?>   #  <STRING=*<LVECTORLBASE-STRINGLSYMBOLL	BASE-CHAR      ~<      &DEFUN MATCH-UNIQUE-ABBREVIATION  #&+XEP for VCS-TREE::MATCH-UNIQUE-ABBREVIATION  3$$#  $$#  $$#.  (  $'(#  #  $ #  1
  $8#$$$d$$#   (  $'($$$$<#  1
  (  1  	  ;  *                    ҆ @o   ! ! !  !       `Ġ       $6    p!  !       `ЁĠ       46    0!   !   g      `
   a   Ġ       H6    ~  9   ?! $ $     ahĠ   Z6    ~             ?
   }    $   ^   ?
   Y     $      `   b  `   6    }      `(`  `` @ $$?  $  `(`` `` @$ $`!    !      	                  `            `     ?            `      $      ?
      $       ? >    $`   
.       ?
  }     y      ? >r    `   
.      $   `   d@    6    {     R   ?
   M   `  2   
   -          `   dج  `      66    {( d    `(`  `` @ $$?  $  `(`` `` @$ $`! N   `     
     @ː`      >   `!   
.       ?
             ? >    `%   
.   
      
            
   =?
  6ABBR6STRINGS
  ׎    ?>  #     &fReturns position of ABBR in STRINGS. ABBR may be a unique abbreviation.
Returns NIL if no match found.  I<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-UNIQUE-ABBREVIATION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-UNIQUE-ABBREVIATION # ...) ...)  %(   $'($$$$(#   1
  (  1    ;   
*                    چ  !  ! ``
` `   `       6          `     =?    .      8 ?>  #(  V<<z<LNREVERSE<NREQUIRED7<j<NNONE&DEFUN GETOPT  #&XEP for VCS-TREE::GETOPT  3$$#  $$#  $$#.  (  $	'(#  #  $ #  1
  $8#6GETOPT$$$d$$#   (   $	'($$$$<#  1
!  ("  1#  $  ;(  *                     @   ! ! !  !  !  !  !  !   ! $ Z     q         ?`
   `  `       >6     W    ?! 0 ? `   aP  Ġ       T6     ~ 0   b   `  N    `   a  Ġ       n6    ~H `(`` `` @$ $$`! $   7    !        `   b@  `   6    }!  `   bx  `   6    }   $           `!     `(`  `` @$?  $ !         
              ?`%@    ! (! ,        ?`)   c  `       6    |p , (  7          ?`%@ !                 ? `(`` `` @$$` `(`  `` @$?  $ !  h    `(`  `` @$? $$ ! $\   ! (! ,        ?`-   dЬ  `      46    {0 , (            ? `(`` `` @$$` `(`  `` @$? $ !   ! #      t    `(`  `` @$? $$ ! $   
   c       a   ?`1      `(`  `` @$? $$ ! $    `(`  `` @$?$  `(`` `` @$ $`!     !        6   ? `(`` `` @$  $`!        
      
      
      
      
      
      
      
      
      
      
      
      
      
   =?%    6ARGS'  .ALLIST(  (  D)  *      ?>,  #   +    %,  Processes a list of arguments and options. Returns filtered argument
list and alist of options.
opts is a list of option lists. The fields of the list are
 - NAME name of the long option
 - HAS-ARG with legal values of :NONE, :REQUIRED, :OPTIONAL
 - VAL value to return for a option with no arguments,  I<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::GETOPT) (SB-INT:NAMED-LAMBDA VCS-TREE::GETOPT # ...) ...)-  %( .  $	'($$$$(#   1
/  (0  11  2  ;   
*                    چ  !  ! ``
` `   `       6          `     =?3  -  .    4  8 QDEBUG-SOURCER

(6  $$-7  NFILE&0/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp9  "Ə :  " ;  $ +
     iG
p<  1=  >  ?  2     ?  $     ?       ?  	     ?        ?        ?        ?        ?        ?  ̷      ?  ̪      ?  ̓      ?  w      ?  o      ?  c      ?  [      ?  O      ?  <      ?  ,      ?>@  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/main.lisp"
  	        at Saturday, September 25, 2004 09:45:52 AM NIL
  	        on vore
  	        using SBCL version 0.8.14.28
   SPARC3      (:SB-PACKAGE-LOCKS)?>    #   Q&COMMON-LISP-USERR VCS-TREEQ&SB-INTRFIND-UNDELETED-PACKAGE-OR-LOSE<QLPACKAGERQR( $ $ -Q&	SB-KERNELINSTANCER(	$$ -
QLSTRUCTURE-OBJECTR
($$-
Q&SB-SYSSTRUCTURE!OBJECTR

($$-($$-L	*PACKAGE*LPACKAGEQ&SB-CCOMPILED-DEBUG-INFOR

Q
DEBUG-INFOR

($$-($$-&top level formQCOMPILED-DEBUG-FUNR

Q	DEBUG-FUNR

( $$-!("$$
-#&Itop level form (SETQ *PACKAGE* (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))$NTOPLEVEL( &$ NMINIMALNSTANDARD$$$$(#   1
)(*1+,;   
*                    چ  !  ! `
`   `x  `       6           `+    `@    `3     `/``@    `$      ` `   
.`   
/.=?-$LFUNCTION    /8 ?>0   #  QLPATHNAMER

(1$$-2LPATHNAME-DIRECTORY<LLAST<&CVS5STRING=*<&.svn7LORLVECTOR:LBASE-STRINGLSYMBOLL	BASE-CHAR>>&DEFUN IS-VCS-DIRECTORY?#&"XEP for VCS-TREE::IS-VCS-DIRECTORY@NEXTERNAL$$#  $$#  (B$'(#  #  $ #  1
C$4#Q&VCS-TREERDIS-VCS-DIRECTORY$$$d(F$'($$$$8#  1
G(H1IJ;	  *                    ʆ      ! !  !     	         `    +@    `
      `   `  `       <6    `   a   `   H6    ~      ?`  n   
   i   `      `   a  `       h6    ~`          `   a  `       |6    ~`   b   `   6    }   f   ?`     
      `     
      @ 
`      >    ` B    `!      `      ` `%   
.`     
     @`      >   ` B   `)   
. 3 C    / 
`
 N   ;    `
   
/.       
      
      
   =?KEDXM.NLVALUESLMEMBERQL	&OPTIONALST    ?>V   #   UEQ&SB-IMPLRV%DEFUN<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-VCS-DIRECTORY # ...) ...)X%( Y$'($$$$(#   1
Z([1\];   *                      !  ! ``
  `   `x      6          `     =?^X.    _8 ?>`   #   N	DIRECTORYNRELATIVE5bL
MAKE-PATHNAME<LMERGE-PATHNAMES<DPROBE-DIRECTORY<&DEFUN IS-CVS-MANAGEDf#& XEP for VCS-TREE::IS-CVS-MANAGEDgA$$#  $$#.  (h$'(#  #  $$#   1
i$8#DIS-CVS-MANAGED$$$d(k$'($$$$<#   1
l(m1no;   
*                    چ    *   ! !  ! `
``   `  Ġ       $6    p `   `Ȭ  Ġ       26    8`      `        
   =?pjDDIRr.NL*t    ?>v   #   ujW<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-CVS-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-CVS-MANAGED # ...) ...)v%( w$'($$$$(#   1
x(y1z{;   *                      !  ! ``
  `   `x      6          `     =?|v.    }8 ?>~   #   `a7~c<d<e<&DEFUN IS-SVN-MANAGED#& XEP for VCS-TREE::IS-SVN-MANAGEDA$$#  $$#.  ($'(#  #  $$#   1
$8#DIS-SVN-MANAGED$$$d($'($$$$<#   1
(1;   
*                    چ    *   ! !  ! `
``   `  Ġ       $6    p `   `Ȭ  Ġ       26    8`      `        
   =?rt    ?>   #   W<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SVN-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SVN-MANAGED # ...) ...)%( $'($$$$(#   1
(1;   *                      !  ! ``
  `   `x      6          `     =?.    8 ?>   #h  E<BLEQUAL%COERCE-CALLABLE-TO-FUN<7%FIND-POSITION<B5LNREVERSE<DFILTER-TREEDFLATTEN<LCONSDIS-MANAGED-DIR<NCVSLSEQUENCENSVN23<4<&DEFUN FILTER-TREE#&XEP for VCS-TREE::FILTER-TREEA$$#  $$#  ($'(#  #  $ #  1
$4#$$$d($'($$$$8#  1
#  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))A$$#  $$#  ($'(#  #  #	  #   1
#$	  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$d($'($$$#(	  #,  1
#T
  #A$$#  $$#  ($'(#  #  #x
  #D  1
#
  #$$$d($'($$$#
  #P  1
(1;h  *                     @   ! !  !     	         `  ?`
   `  `   <6              ! ``   aP  `       T6    ~    `     `"``!   a  	`       l6    ~P          ! ``   b  `       6    }    `)     `%"``!   bp  	`       6    } s    ?!  !    
  ^    ?!  !  "   !     T   ?`
   c  `       6    |        
  @    ?!      `-   c  `   6    |x        w     `(` $$` `` @ !  !  5   !  ?! `1`   d0  `      6    {в    dh  `      6    { `(` $$` `` @  @ 4    $` `!  `    @                ``        `5      `     `$   `    `9   
.  `(` $$` `` @ !  !  4   !   ?! `1`   f   `  6    z     f8  `      6    yȂ `(` $$` `` @   @ F     $` `!  ` r   @            %    `` b       `5   g(  `      6    xآ  `(`  `` @ $?$ T       `$   `    `9   
. B          `(`  `` @ $? $ !    !   ?  `=   h(    
6    w          ? `(`` `` @$`A$`            O   K   `E   
N ? `(`` `` @$`I$` d                 `E   
N T*                    v @    ! !  !        ?   	         `  `+ 3   `M@ #    ?`Q   j  `  6    u`U   jH  `  6    u      ?   `3    `/ 
`M       `M   
/.     *                    uJ @ r   ! !  !     m   ?   	         `  `+ 3   `M@ #    ?`Q   k  `  6    t`U   k  `  6    tP   =   ?   `3    `/ 
`M       `M   
/.       
      
      
      
      
.      
.      
.      
.      
      
      
      
      
      
   =?M.NORX
  M  DTREEt    ?>   #   &yCalled for a directory tree. First argument is name of current tree.
Returns a list of directories managed by CVS or SVN.W<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FILTER-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::FILTER-TREE # ...) ...)%( $'($$$$(#   1
(1;   
*                    چ  !  ! ``
` `   `       6          `     =?.    8 ?>   #
  NNAME&entriesNTYPE`~c<d<DREAD-FILE-TO-STRINGS<3<4<LSTRING&name="&"LCONCATENATE<B%MAP<Bj<&D/&////&EntriesbCASE-FAILURELECASENDATUMN
EXPECTED-TYPEPN
POSSIBILITIESLERROR<DSTRING-TRIM-WHITESPACE<6<>>&DEFUN IS-MANAGED-DIR#& XEP for VCS-TREE::IS-MANAGED-DIRA$$#  $$#  $$#.  $$#N  ($'(#  #  $ #
  1
$<#$$$d$$#   $$#   ($'($$$$@#
  1
#h  #&%XEP for #'(LAMBDA (#:G196) (LET # #))A$$#  $$#  ($'(#  #  #  #
  1
#  #&#'(LAMBDA (#:G196) (LET # #))$$$d($'($$$#  #
  1
#	  #&%XEP for #'(LAMBDA (#:G192) (LET # #))A$$#  $$#  ($'(#  #  #0	  #
  1
#L	  #&#'(LAMBDA (#:G192) (LET # #))$$$d($'($$$#P	  #
  1
(1;&
  **                    Z    ! ! ! !  !  `
 A   ``` ``!`%   a8  `       N6    ~ `)   ap  Ġ       \6    ~`-   a  `   h6    ~`!  `1   aج  `   v6    ~(`5   b  `   6    }  S   ? `
     `9`=`A`E   bp          6    }  `
  Z    ! h ! ! d! `! \ ! l @ 9"` "`"`g"` `` !:$? `` @$?! p    (   `I `(` #.$ `` @$ p$$   `M   cp     6    |   "    p   $?           ?   р       `Q   
. `U  \    !  ! ! |! x! t !  $ 9"` "`"`f"` `` !:$? `` @$?!     *   `Y `(` #.$ `` @$ $$   `M   d        :6    {    $? `]      `        ?   π       `Q   
.   "    m    `U     `9`a`e`E   eЬ     t6    z0 (    %    `U     ``i` ``m`%   fH  `      6    y     $`q``u`y `}`"``"``"` `  $ f  	`  6    yH 6  | x t !          $?!!`        $?   "          `    
              6 l     ""  d ` \ !  h        $?!!`     p   $?    *                    w ``    ! ! ! !  !  `   h  `       6    w `  *   
   %          `   h  `      <6    w  	         `  ?              `     
     ` B   @ϐ`      >   `   
. l*                    vR `` j   ! ! ! !  !  `   j   `      6    u `  -   
   (          `   j  `      6    up        %    ?              ` `     
     ` B   @̐`      >   `   
.       
      
      
      
   QNADDRQUNWINDR$
  QNSETHIRQUNWINDR 
  QNADDRQUNWINDR  QNSETHIRQUNWINDR  QNADDRQRETURN-MULTIPLER  QNSETHIRQRETURN-MULTIPLER  =?
G192.NOLNULLR	  
G196   h    DSUBDIRqLTYPE  .  s      ?>  #     W<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-MANAGED-DIR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-MANAGED-DIR # ...) ...)  %( 	  $'($$$$(#   1

  (  1  
  ;   *                      !  ! ``
  `   `x      6          `     =?    .      8 ?>  #P  j<<&svn  L*ERROR-OUTPUT*&8INTERAL ERROR: not a version control system directory ~A  LFORMAT<DQUIT<&cvs  NUPDATE&	~A update  L
NAMESTRING<&(cd ~A; ~A)  &~A ~A:~%  `NWHOLEDSHELL-COMMAND-OUTPUT<&~A~%  &Exit status ~D: ~A ~A~%  NSTATUS&	~A status   NCOMMITLCAR<LSTRING=<&m$  <& -m "~A"%  &~A commit~A&  & '  P!      (  !      )  <&DEFUN PROCESS-VCS-DIRECTORY*  #&'XEP for VCS-TREE::PROCESS-VCS-DIRECTORY+  A$$#  $$#  $$#.  $$#N  (,  $'(#  #  $ #   1
-  $<#DPROCESS-VCS-DIRECTORY$$$d$$#   $$#   (/  $'($$$$@#,  1
0  #d  #&FLET VCS-TREE::PROCESS1  $$$d$$#$  (2  $'($$$#h  #8  1
3  (4  15  6  ;(P  ,*                    R @   ! ! ! !  !  `
   a  `       F6    ~耤  5    `   aX  `   V6    ~  	   `! $    #   `?`JP    ` `!   aЬ     t6    ~0  `%      ` `)! $   ! `-      `1 $`!   bX         6    }!  `5   b  `   6    }p  `9 `!   bЬ      6    }0!  `5   c  `   6    |  `= `!   cH      6    | `A `E `I   c  `       6    |p ! ! !     c          6    |0        `M `!        `Q `!      ` `U      `Y $`!   d     6    {! v   `]  q     [   ! `a @    ! `e`i   e   `      @6    {     `m      "``q   e`  	`      X6    z  (      \     `u`!   e    n6    zH  `y $`!   e     ~6    z!    `}                 `   
N  $``````"``"``"` `  $ f  	`      6    y@   
      
      
      
   QNADDRQ&SB-VM	8  	GENERIC-=R  QNSETHIRQ	8  	GENERIC-=R  =?<  .  qDACTIONDOPTIONS?        ?>A  #   @  .  W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)A  %( B  $'($$$$(#   1
C  (D  1E  F  ;   *                      !  ! ``
  `   `x      6          `     =?G  A  .    H  8 ?>I  #   D
*PROGNAME*'  V%DEFVAR<#&Ptop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*PROGNAME*) (UNLESS # "") ...)K  %( L  $'($$$$(#   1
M  (N  1O  P  ;   *                      !  ! `
 J    ``
   `   `  `   $6    p      `     =?Q  K  .    R  8 ?>S  #    I  &usage: ~A action [OPTIONS]~%S    <&3Processes a source-control managed directory tree~%T  &#Action: update, commit, or status~%U  &	OPTIONS~%V  &"   -m <str>    Set commit string~%W  L
WRITE-CHAR<&DEFUN USAGEY  #&XEP for VCS-TREE::USAGEZ  A$$#  $$#  ([  $'(#  #  #   #   1
\  #   #&&MORE processing]  NOPTIONAL$$#.  $$#N  $$#-  (_  $'(#  #  #   #   1
`  #   #&!varargs entry for VCS-TREE::USAGEa  $DMSG$d$DMSG-ARGS#   (d  $
OPTIONAL-ARGS$ REST-ARG$(g  ($$$#$  #   1
h  #  #&&OPTIONAL processor #:G311i  ^  $$#  (j  $'(#  #  #  #  1
k  #  #&&OPTIONAL processor #:G316l  ^  ( m  $'(#  #  #  #  1
n  (	o  1p  q  ;
  *                    ʆ        	 	  ` "  `"   `"  	`"  `"  `"          # 	  @    `(` *`  @"   `"" ` @! ! !  ! `
?`J    `?J     ``   a         l6    ~P   L   `
?`J     ``   b  Ġ       6    }`
?`J     `!`   b`  Ġ       6    }`
?`J     `%`   b  Ġ       6    }P`
?`J r    `)`      Ġ ` @ g   `
?`J e      "      "        Y      ?           
    	  cЬ          6    |0`
?`J 6    *B`-   d  Ġ  6    {~   !  ! !  F              
      
      
      
      
      
      
      
      
      
   =?r  DUSAGERb  L&RESTc  u  .Rt  v  O8:;w  Rx  y      ?>{  #   z  s  W<#&htop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::USAGE) (SB-INT:NAMED-LAMBDA VCS-TREE::USAGE # ...) ...){  %( |  $'($$$$(#   1
}  (~  1    ;   *                      !  ! ``
  `   `x      6          `     =?  {  .      8 ?>  #<  &ci  6<!  &update  &commit  &status    DMATCH-UNIQUE-ABBREVIATION<    &Unknown action: ~A  s  <  <>&DEFUN PARSE-ACTION-ARG  #&"XEP for VCS-TREE::PARSE-ACTION-ARG  A$$#  $$#  (  $	'(#  #  $ #0  1
  $4#DPARSE-ACTION-ARG$,#N  $d(  $	'($$$$8#<  1
  (  1    ;<  *                           !  !   `   
   [   !  `
      `   `ج  `   66    (   	   `     ` !  ``   a@  Ġ   P6    ~       `!     !        `%   ! `) `-   a  Ġ       p6    ~@   `1      ` `        
           >    B   `5   
N       
   =?    DARG  t    ?>  #       W<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PARSE-ACTION-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::PARSE-ACTION-ARG # ...) ...)  %(   $	'($$$$(#   1
  (  1    ;   *                      !  ! ``
  `   `x      6          `     =?    .      8 ?>  #  I  $  NREQUIRED    DGETOPT<s  <  <  <DCWD<DDIRECTORY-TREE<<DMKLIST<.  <&Invalid action ~A  DCOMMAND-LINE-ARGUMENTS<&
DEFUN MAIN  #&XEP for VCS-TREE:MAIN  A$$#  $$#.  (  $
'(#  #  $$#  1
  $l#&%hairy arg processor for VCS-TREE:MAIN  $DARGV$d(  $
e  $ (  ($$$$p#  1
  #T  #&&OPTIONAL processor #:G354  ^  (   $
'($$$#X  #  1
  (  1    ;  *                            !          ! !          
   !       ?`
`!!$  ``   a  Ġ       F6    ~! !     `    ah          Z6    ~  `   a  `       h6    ~`       ?`!   a  `   z6    ~ !   u   `%    b0          6    }`)   b`  `   6    }`-   b  `   6    }p`1   b  `   6    }@     ? !   `5   c     6    | 
   s          `   ch  `   6 f   |     $?!!`       `    
         ?`9`   d  Ġ      6    {  `   d@  `      6    {o         dxĠ  6    { I   ,   ! `=    d     06    {@!        
      
      
   |% %%%%%    QNADDRQRETURN-MULTIPLER  QNSETHIRQRETURN-MULTIPLER  =?  DMAINR          .R  s      ?>  #       W<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE:MAIN) (SB-INT:NAMED-LAMBDA VCS-TREE:MAIN # ...) ...)  %(   $
'($$$$(#   1
  (  1    ;   *                      !  ! ``
  `   `x      6          `     =?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&&/build/buildd/vcs-tree-0.2.1/main.lisp  "Ə   "   $ +     1f  1             ̷       ̝       ̓       ̀       q       P       F       6       
               ̿        ̰        ̐        ̈        {        o        ]        J        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/loader.lisp"
  	        at Saturday, September 25, 2004 09:45:53 AM NIL
  	        on vore
  	        using SBCL version 0.8.14.28
   SPARC3      (:SB-PACKAGE-LOCKS)?>    #   NCL-USERQ&SB-INTRFIND-UNDELETED-PACKAGE-OR-LOSE<QLPACKAGERQR( $ $ -Q&	SB-KERNELINSTANCER($$ -	QLSTRUCTURE-OBJECTR	($$-Q&SB-SYS
STRUCTURE!OBJECTR	($$-($$-L	*PACKAGE*LPACKAGEQ&SB-CCOMPILED-DEBUG-INFOR	Q
DEBUG-INFOR	($$-($$-&top level formQCOMPILED-DEBUG-FUNR	Q	DEBUG-FUNR	($$- (!$$
-"&Itop level form (SETQ *PACKAGE* (SB-INT:FIND-UNDELETED-PACKAGE-OR-LOSE #))#NTOPLEVEL( %$ NMINIMALNSTANDARD$$$$(#   1
(()1*+;   
*                    چ  !  ! `
`   `x  `       6           `+    `@    `3     `/``@    `$      ` `   
.`   
/.=?,#LFUNCTION    .8 ?>/   #  BLERROR*HANDLER-CLUSTERS*&vcs-tree1Q&VCS-TREER2MAIN<L*ERROR-OUTPUT*&%vcs-tree failed due to error:~%  ~A~%5LFORMAT<NUNIX-STATUSQ&SB-EXTR8QUIT<&	DEFUN RUN:"&XEP for COMMON-LISP-USER::RUN;NEXTERNAL$$#  (=$&'#  #  $ #(  1
>$0"Q&COMMON-LISP-USERR?RUN( A$&'$$$$4#4  1
B#  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)C<$$$d$$#   (D$&'$$$#  #  1
E#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)F$$#n  (G$&'#  #m  #  #  1
H(I1JK;  *                     `    !  !   `` !:$? `` @$?! ( ! 8 ! ! 4! 0! , ! <  9"` "`"`b"` `` !:$? `` @$?! @`
 `(`  #.$? `` @$? @$  ($  `(`` `` @`$$`  `(` $$` `` @`?`J     `(` `` @$$``!!$ 4?`J    `     `` `(`  $$ `` @ `   bH  `       6    }     $?!!` @   $? A     6 < 4 0 , !  8        $?!!`     (?`!?`J r    `%`)   c(     6    |`-  `1   c`  Ġ   6 Z   |      @   $?       `    
          *                    |: ```! ! !  !    ;      `   	d8         6    {Ȩ $                 
      
      
      
.   }% %%%%% l      
   |% %%%%%       

   QNADDRQUNWINDR   QNSETHIRQUNWINDR  QNADDRQRETURN-MULTIPLER  QNSETHIRQRETURN-MULTIPLER|  =?TFQ&SB-IMPLRUTEMPW-XY  TZT@-L*\    ?>^   #   ]@U%DEFUN<"&vtop level form (SB-IMPL::%DEFUN (QUOTE COMMON-LISP-USER::RUN) (SB-INT:NAMED-LAMBDA COMMON-LISP-USER::RUN NIL ...) ...)_$( `$&'$$$$(#   1
a(b1cd;   *                      !  ! ``
  `   `x      6          `     =?e_-    f8 QDEBUG-SOURCER	(h$$-iNFILE&(/build/buildd/vcs-tree-0.2.1/loader.lispk"Ə l" m$ +     n1opqd      qK      q+      ?>r   @