#!/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 03:56:24 PM [+0]
  	        on resume.rfc822.org
  	        using SBCL version 0.8.14
   MIPS3      (: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+,;(  
*                    '&      
     4  ' x! !      6 !    '1 8!   %    	     * +    T $         *     $ 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 
    H!P!X!`!                    $ ( , 4 0 ' !  !      06 !    '@@!           ! !%?   !=?>8.    ?8 ?>@   #(   VCS-TREE<#$%( A$'($$$$(#(  1
B(C1DE;(  
*                    '&      
     4  ' x! !      6 !    '1 8!   %    	     * +    T $         *     $ 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 03:56:27 PM [+0]
  	        on resume.rfc822.org
  	        using SBCL version 0.8.14
   MIPS3      (: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+,;(  
*                    '&      
     4  ' x! !      6 !    '1 8!   %    	     * +    T $         *     $ 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$$#   $$#  (;$'(#N  #-  $ #   1
<$4#Q&VCS-TREER=READ-FILE-TO-STRINGS$$$d(?$'($$$$8#(  1
@#  #&FLET #:CLEANUP-FUN-9ANCLEANUP( C$'+   .D$$#   #  #(  1
E(F1GH;	(  *                    '& `4                 
          4  ' ! !  *6 !    'X P! <& 4 '9 7( 4:            a '9   
	 8  ! L	    P! H D @ ! P& !        ' & ! 4   'h! !  Z6 !    '      X! @@!H!`P! 4  '! !  l6 !    'P     	 !    4 '9 7)             a '9   
(     (   <    H!      4  '8! !  6 !    '           !4  'x! !      6 !    '  8    !    !      !! !& ` 8     <      0! !'  >          6                ! !%?   !  6    H     D     @    	@! L    5               	&5    0! !& ` 8     <     !'            6                8!        T 	    H! !     !%   !  +    @@! %    `P! )4  '8! !     6 !    'Ȏ            
 
 QNJUMPRQUNWINDR  =?K>=FILEM.NLVALUESLLISTL	&OPTIONALRS    ?>U   #   T>&?Opens a reads a file. Returns the contents as a list of stringsUQ&SB-IMPLRV%DEFUN<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::READ-FILE-TO-STRINGS) (SB-INT:NAMED-LAMBDA VCS-TREE::READ-FILE-TO-STRINGS # ...) ...)X%( Y$'($$$$(#   1
Z([1\];   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?^X.    _8 ?>`   #   =*WHITESPACE-CHARS*E E	E
E
aV%DEFVAR<#&Wtop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*WHITESPACE-CHARS*) (UNLESS # #) ...)c%( d$'($$$$(#   1
e(f1gh;   *                    '&      
    (    9 J            
    & X!`! 4  ' ! !      (6 !    '`@!           ! !%?   !H!         =?ic.    j8 ?>k   #   `LSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACEl#&(XEP for VCS-TREE::STRING-TRIM-WHITESPACEm:$$#   $$#.  (n$'(#N  #-  $$$x1
o$8#=STRING-TRIM-WHITESPACE$$#N  (q$'(#n  #   $<#   1
r(s1tu;   *                    '&   H!4       P!  !@X! 
    	    9! J       @!@H! 4   ! `! 
 
  
 
   =?vp=STRx.NOL
SIMPLE-STRINGQz{    ?>}   #   |pW<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (SB-INT:NAMED-LAMBDA VCS-TREE::STRING-TRIM-WHITESPACE # ...) ...)}%( ~$'($$$$(#   1
(1;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?}.    8 ?>   #t  PROPER-LIST-OF-LENGTH-P<=ITV
BACKQ-LIST<LIFLLETLDEFMACRO=AIF=TEST=THENQ=ELSEARG-COUNT-ERROR<&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...):$$#   $$#  $`($'(#N  #-  $ #   1
$4#&6#'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...)$$$d$`($'($$$$8#  1
(1;
t  *                    '&  4               1 8!            4	 4
  
4  ' ! !      .6 !    'H               1 8!       	              1 8!            1 8!                      1 8!            1 8!             Q              1 8!   z         1 8!   w         1 8!   t               4  '! !      6 !    ' 4  '8! !      6 !    'Ȯ                      4  '! !  6 !    'x P!           4                 
      !     %     )    4 4
  -4  ' ! !      6 !    ' g     
 
  
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
   =?
WHOLE28

ENVIRONMENT29.L*    ?>   #   &DEFMACRO VCS-TREE::AIF	%DEFMACRO<#&Gtop level form (SB-C::%DEFMACRO (QUOTE VCS-TREE::AIF) (FUNCTION #) ...)%( $'($$$$(#   1
(1;   
*                    '&           
         X!      4  ' ! !  $6 !    'p@!           ! !%?   !=?.    8 ?>   #  =FLATTEN<LAPPEND<&
DEFUN FLATTEN#&XEP for VCS-TREE::FLATTEN:$$#   $$#  ($'(#N  #-  $ #  1
$4#$$$d($'($$$$8#  1
(1;  *                    '&  4  r              1 8!                       ! !%?   !         1 8!   *              
4  ' ! !      <6 !    '            
4  '0! !  L6 !    ' H!      4               4 '9 7+ `H!(4             a '9   
            
4  '! !      v6 !    '( H!      4           
 
 =?=LIS.NOQ    ?>   #   W<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...)%( $'($$$$(#   1
(1;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?.    8 ?>   #   &DEFUN MKLIST#&XEP for VCS-TREE::MKLIST:$$#   $$#  ($'(#N  #-  $ #   1
$0#=MKLIST$$#  ($'(#N  #-  $0#   1
(1;   *                    '&  4       `!1 8!       @!4 '9 7+ `H!(4 `@!            a '9   
! !&_  @!@!      
 
 =?=OBJS    ?>   #   &Make into list if atomW<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)%( $'($$$$(#   1
(1;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?.    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:$$#   $$#  ($'(#N  #-  $ #  1
$4#$$$d($'($$$$8#  1
(1;@  *                    '& @4 x              
4  ' ! !      .6 !    'H h!                           !4  '! !      F6 !    ' %4  'H! !      R6 !    'P! @!4 '9 7+ `H!(4             a '9   
   D     $     
                1 8!  %     @@! )4  ' ! !      6 !    '  $           "    ``! @@! 
4  'P! !  6 !    '     4 '9 7+ `H!(4 `@!            a '9   
 X!                         2 8!         -    
           1         4      !& @! H!P!  X!`!  54  'P!  !      6 !    '           9          )4  '! !      6 !    '`          4 '9 7+ `H!(4 `@!            a '9   
           ! !%?   ! 9          =4  'H! !     6 !    '@!4 '9 7+ `H!(4             a '9   
 `@! `!  '      h!      A4  '! ! 46 !    '0          4 '9 7+ `H!(4             a '9   
`@!           1 8!   R    H!4              4 '9 7)             a '9   
     *(  @!     @! E     
 
. I     H! =4  '! !     z6 !    '2 8!           $!v  $! /$!  $! +     M     
 
@! E     
 
. 
 
  
 
    
 
    
 
    
 
   =?=FILENAMES    ?>   #   &>Returns a tree of pathnames for sub-directories of a directoryW<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::DIRECTORY-TREE # ...) ...)%( $'($$$$(#   1
(1     ;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?  .      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  :$$#   $$#  (  $'(#N  #-  $ #  1
  $4#$$$d(  $'($$$$8#  1
  #  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#.  (  $'+   n  #  #   #  #  1
  (  1    ;  *                    '& @4                
4  ' ! !      ,6 !    'P       4  ' ! !  :6 !    '! !& @ H!  0! !'             H6       4  'P! !      T6 !    '! !& @ H!  0! !'            b6      v          a    t O    `!                     ! !%?   !       4  '! !      6 !    ' H!0! !& @ !'H  n      6     `@!H! 4  'x! !  6 !    ' H! !     %    X! )    h! -       1            $ 54 (     `@!4 '9 7+ `H!(4 ``!            a '9   
          4 '9 7+ `H!(4 ``!            a '9   
     t     9          =     A4  '! !      6 !    'P4 '9 7+ `H!(4 ``!            a '9   
 p     E    *      X! !!%   !X!      
 
 =?  .NO  Q        ?>  #     W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (SB-INT:NAMED-LAMBDA VCS-TREE::CANONICALIZE-DIRECTORY-NAME # ...) ...)  %(    $'($$$$(#   1
!  ("  1#  $  ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?%    .    &  8 ?>'  #   <L
NAMESTRING<Q&SB-UNIXR	(  UNIX-FILE-KIND<  &DEFUN PROBE-DIRECTORY*  #&!XEP for VCS-TREE::PROBE-DIRECTORY+  :$$#   $$#  (,  $	'(#N  #-  $ #  1
-  $4#$$$d(.  $	'($$$$8#   1
/  (0  11  2  ;   
*                    '&  4  <              
4  ' ! !      "6 !    'x 4  ' ! !      .6 !    'H 4  ' ! !      :6 !    '     (     &            ! !%?   !@!          
 
 =?3  .NOLMEMBER5  Q6  7      ?>9  #   8  W<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROBE-DIRECTORY # ...) ...)9  %( :  $	'($$$$(#   1
;  (<  1=  >  ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=??  9  .    @  8 ?>A  #@  	(  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(D  $$-E  L*DEFAULT-PATHNAME-DEFAULTS*  QLLOGICAL-PATHNAMER

E  (H  $$-I  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWDK  #&XEP for VCS-TREE::CWDL  :$$#   $$#  (M  $
'(#N  #-  $ #@  1
N  $X#&%hairy arg processor for VCS-TREE::CWDO  $=DIR#N  $d(Q  $

OPTIONAL-ARGS$ (S  ($$$$\#@  1
T  #(  #&&OPTIONAL processor #:G94U  NOPTIONAL( W  $
'(#  #-  #,  #@  1
X  (Y  1Z  [  ;@  *                    '&             4       P!  @@!       
 
  T 7      
4   ' ! !      .6 !    'H     1 8!           $!^  $!  $!  $!        4  '0! !      L6 !    'Ў                ! !%?   !1A 8!   K    1A 8!       A    $!^  $!  0$!  $!  ,    1A 8!       H     	 +    4          	          
@@!      3    (   	     /     
         	          
 
N      
 
/N@@! 4  '! !      6 !    'x P!     H     	 +    4 #     !    	     @@! %4  '! !  6 !    '     @@! %4  '(! !  6 !    ' P!      !     
 
/N@@!P!   H        =?\  =CWDQP  ^  .Q_  `      ?>b  #   a  ]  &)Change directory and set default pathnameb  W<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)c  %( d  $
'($$$$(#   1
e  (f  1g  h  ;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?i  c  .    j  8 ?>k  #   NUNIX-STATUSQ&SB-EXTR	l  QUIT<&
DEFUN QUITn  #&XEP for VCS-TREE::QUITo  :$$#   $$#  (p  $'(#N  #-  $ #   1
q  $T#&&hairy arg processor for VCS-TREE::QUITr  $=CODE#N  (t  $R  $ (u  (#n  #   $X#   1
v  #   #&&OPTIONAL processor #:G106w  V  ( x  $'(#N  #-  #   #   1
y  (z  1{  |  ;   *                    '&         '    4       P!  !       
 
 @X!1A   	1A 8!       A    $!  
    @H! 
     4   ! `!T       H!     4	        P!  !     =?}  =QUITQs  $     ._        ?>  #     ~  &LFunction to exit the Lisp implementation. Copied from CLOCC's QUIT function.  W<#&ftop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::QUIT) (SB-INT:NAMED-LAMBDA VCS-TREE::QUIT # ...) ...)  %(   $'($$$$(#   1
  (  1    ;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?    .      8 ?>  $l&DEFUN COMMAND-LINE-ARGUMENTS  #&(XEP for VCS-TREE::COMMAND-LINE-ARGUMENTS  :$$#   (  $'(#N  #-  $ $X1
  $(#=COMMAND-LINE-ARGUMENTS(   $'(#N  #-  $($`1
  (  1    ;l   *                    '&   
    & 4	    9! J  	     @!! !&_  @! 
 
  
 
   =?    .      ?>  #       W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::COMMAND-LINE-ARGUMENTS) (SB-INT:NAMED-LAMBDA VCS-TREE::COMMAND-LINE-ARGUMENTS NIL ...) ...)  %(   $'($$$$(#   1
  (  1    ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?    .      8 ?>  #0    NWHOLENALLOW-OTHER-KEYS$   NELEMENT-TYPEL	BASE-CHARNFILL-POINTERN
ADJUSTABLEL
MAKE-ARRAY<  VMAKE-FILL-POINTER-OUTPUT-STREAM<&-c  &/bin/sh  1NOUTPUTNERROR	l  RUN-PROGRAM<QVPROCESSR

(  $$-  VPROCESS7<&DEFUN SHELL-COMMAND-OUTPUT  #&&XEP for VCS-TREE::SHELL-COMMAND-OUTPUT  :$$#   $$#.  (  $
'(#N  #-  #   #0  1
  #   #&&MORE processing  V  $$#  $$#  $$#   (  $
'(#N  #-  #   #0  1
  #  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $=CMD$d(  $
$   DELETED    (  ($$$#  #0  1
  #p  #&FLET #:CLEANUP-FUN-118  B(   $
'+   .  $$#   #t  #0  1
  #  #&FLET #:CLEANUP-FUN-108  B(   $
'+   .  $$#   #  #0  1
  (	  1    ;0  *                    '&  !$     !$ 	!0!$$      $cs  $   $  $  $  $  $ H!(       $@# `! h!   !       
 
 $  (!@!H!!P!0  8      '     !       $ !       $ 
                             4 '9 7+ `H!(4             a '9   
`P!       !    T          
        H     
 
    
 
    !&            !     %      `! )    &   -4  '!  !  6 !    '`  !&  1          !     %      `! )    &   -4  '!  !      6 !    '       54  'H! !  6 !    ' h! X  ! 	    P! | x t ! & <!        'h & <!      54  '! !  6 !    '(      ! \ ! l	    P! h d ` ! p&  !        '  &  ! 9         4 '9 7, P!H%J JIT H!            a '9   
 !&   =     A    X! E     I       M4   '!  ! :6 !    ' !    !      !! !&  \      0! !'8       N6!    !      !! !&  X      0! !'x       ^6     1 8!   ,    	     * +    T +     Q    *     
                          !4  !&7 X!`!h!% !$ 3    (   	    ) /    ) 
     Q    *     U     
 
. Q     
 
/. 6    |     x     t    	@!     5               	&5    0! !&  X     !'  R         6                8!        6    h     d     `    	@! l    5               	&5    0! !&  \     !'           6                8!           @! Y4  ' ! !  6 !    '       H! !     !%   !    @! Y4  '`! ! 6 !    '      H! !     !%   !QNJUMPRQUNWINDRh  QNJUMPRQUNWINDR  =?  =SHELL-COMMAND-OUTPUT  L&KEY=WHOLE  .            OLBASE-STRING  Q        ?>  #       W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (SB-INT:NAMED-LAMBDA VCS-TREE::SHELL-COMMAND-OUTPUT # ...) ...)  %(   $
'($$$$(#   1
  (  1    ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&//build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp  "Ə   "    $ +     eON
.  1                    ̞       ̕       ̉       |       h       [       >       2       $                                                     ̷        ̪        ̚        ̂        u        h        ]        H        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp"
  	        at Saturday, September 25, 2004 03:56:25 PM [+0]
  	        on resume.rfc822.org
  	        using SBCL version 0.8.14
   MIPS3      (: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+,;(  
*                    '&      
     4  ' x! !      6 !    '1 8!   %    	     * +    T $         *     $ 3    (       ) /    )          *          (@!           ! !%?   !      
 
.      
 
/.=?-$LFUNCTION    /8 ?>0   #  L
SIMPLE-STRING&DEFUN IS-SHORT-OPTION1#&!XEP for VCS-TREE::IS-SHORT-OPTION2NEXTERNAL$$#   $$#  (4$'(#N  #-  $ #  1
5$4#Q&VCS-TREER6IS-SHORT-OPTION$,#N  $d(8$'($$$$8#  1
9(:1;<;  *                    '&  4  j     P!    @@!4 !' p !  6 !    '     )   S    1A 8!   J    A    $!^  E$!  C    H    4   +  G      1A 8!   5    A    $!Z  0    D!     4 - '    H    4  +  5      1A 8!       A    $!Z      D!     4 -     @!           ! !%?   !&       
 
.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;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?PJ.    Q8 ?>R   #  0&DEFUN IS-OPTION-TERMINATORR#&&XEP for VCS-TREE::IS-OPTION-TERMINATORS3$$#   $$#  (T$'(#N  #-  $ #  1
U$4#6IS-OPTION-TERMINATOR$,#N  $d(W$'($$$$8#  1
X(Y1Z[;  *                    '&  4  j     P!    @@!4 !' p !  6 !    '     4  S    1A 8!   J    A    $!^  E$!  C    H    4   +  G      1A 8!   5    A    $!Z  0    D!     4 - '    H    4  +  5      1A 8!       A    $!Z      D!     4 -     &            ! !%?   !@!      
 
.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;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?d^.    e8 ?>f   #x  0&DEFUN IS-LONG-OPTIONf#& XEP for VCS-TREE::IS-LONG-OPTIONg3$$#   $$#  (h$'(#N  #-  $ #@  1
i$4#6IS-LONG-OPTION$,#N  $d(k$'($$$$8#H  1
l(m1no;x  *                    '&  4       P!    @@!4 !' p !  6 !    '     )       @!           ! !%?   !1A 8!   _    A    $!^  Z$!  X    H    4   +  Y      1A 8!   J    A    $!Z  E    D!     4 - <    H    4  +  G      1A 8!   .    A    $!Z  )    D!     4 -      H    4  +  5      1A 8!       A    $!Z  
    D!     4 -     @!     &       
 
.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;   *                    '&           
    P!X! 4  ' ! !       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$$#   $$#  $$#.  ($'(#N  #-  $ #  1
$8#6
DECOMPOSE-ARG$$$d$$#   ($'($$$$<#   1
(1;  *                    '& @4                 
    	     4      1 8!   `          
                         (!& 4=B     P!  X!`!  4  '@!  !      P6   !H!'      X!       H!`P! 4  '! !  d6 !    'p      t "    `H!%)       4  '! !  x6 !    '  H!                !4  !&7 P!X!`!h!% !H!          1 8!           $!v  $! $!  $!           !     
 
.      %    	     4  {     !& $ )     -     1     5          9     =      A      E       I4 $ '@!  !  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;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?.    8 ?>   #  7<j<NARG<z&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG3$$#   $$#  ($'(#N  #-  $ #  1
$4#6ANALYZE-ARG$$$d($'($$$$8#  1
(1;  *                    '&  4  d              
4  ' ! !      $6 !    'p L          4  ' ! !      46 !    '0 8              h '          `H! 4  '0! !      L6   !H!'Ў      P! `!`@!@H!P!           !4  !&7 X!`!h!% ! !    h              P!      !                        
 
 =??.@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;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?.    8 ?>   #  6MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTION#&XEP for VCS-TREE::FIND-OPTION3$$#   $$#  $$#.  ($'(#N  #-  $ #  1
$8#6FIND-OPTION$$$d$$#   ($'($$$$<#  1
(1;  *                    '&  4  r         @!4 '9 7+ `H!(4             a '9   
``!`@!            !    1 8!   V        4 '9 7+ `H!(4             a '9   
`@! =          1 8!   A    H!4               
4  '`! !      X6 !    '           4  '! !      h6 !    '`1 8!                      ! !%?   !@!     @!      
 
. 
 
  
 
    
 
    
 
   =?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;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?.    8 ?>   #D  <<&DEFUN MATCH-OPTION#&XEP for VCS-TREE::MATCH-OPTION3$$#   $$#  $$#.  ($'(#N  #-  $ #0  1
$8#6MATCH-OPTION$$$d$$#   ($'($$$$<#8  1
(1;D  *                    '&  4  B               
4  ' ! !   6   !H!P!'  @!       4  ' ! !  26 !    '8     1 8!        H!*                         !4  !&7 `!h!% !P!          
 
  
 
   =?>.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;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?.    8 ?>   #  <STRING=*<LVECTORLBASE-STRINGLSYMBOLL	BASE-CHAR      ~<      &DEFUN MATCH-UNIQUE-ABBREVIATION  #&+XEP for VCS-TREE::MATCH-UNIQUE-ABBREVIATION  3$$#   $$#  $$#.  (  $'(#N  #-  $ #  1
  $8#$$$d$$#   (  $'($$$$<#  1
  (  1  	  ;  *                    '& @4               4 !'  !      $6 !    'p       4 !'  !  26 !    '8     z                
4  '! !      F6 !    '1 8!  u         $ $    4 !'h !      Z6 !    '               1 8!           $!^  $!       $    1 8!   p        $!^  $!  i          $      P!X!  `!h! 4  '0! !      6 !    '     4 '9 7(             a '9   
 $    	       4 '9 7)             a '9   
(     (        $!               *             ! 
    1 8!             $     
   4               1 8!                       ! !%?   !@!      $    1 8!           $!Z $!      $    1 8!           $!      $          
 
.     1 8!           $!Z a$! _         [1 8!           $! S               
 
.      *      $      H!      4  '! !     66 !    '( H!     1 8!   _        $!^  $!  X    1! 8!   :    !    $!^  $!  3           P!X!  `!h! 4  '! ! `6 !    'J    4 '9 7(             a '9   
 $    	       4 '9 7)             a '9   
(     (   +    1! 8!       !    $!Z $!     41! 8!       !    $!      !     
 
.     1 8!           $!Z $!          1 8!           $!           %     
 
.     
 
  
 
    
 
   =?
  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    ;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?    .      8 ?>  #D  V<<z<LNREVERSE<NREQUIRED7<j<NNONE&DEFUN GETOPT  #&XEP for VCS-TREE::GETOPT  3$$#   $$#  $$#.  (  $	'(#N  #-  $ #  1
  $8#6GETOPT$$$d$$#   (   $	'($$$$<#  1
!  ("  1#  $  ;D  *                    '& @4                     $  `                  1 8!           
4  ' ! !      <6 !    '         
     0               4  'P! !  T6   !H!P!X!' 0     `! n         	 V    @! 4  '! !  l6 !    'P4 '9 7)             a '9   
( $    (  $     1 8!  z                          4  'P! !  6 !    '       4  '! !  6 !    'x H!      $               !4  !&7 X!`!h!% ! !    	    4 '9 7(             a '9   

      	        t     1 8!  .    @!     1 8!  *         %    (      ( ,          1 8!           )4  '! !      6 !    '0 ,     (     F         1 8!           %    ( *         1 8!            1 8!           4 '9 7)             a '9   
*( 4 '9 7(             a '9   
	      	    L    4 '9 7(             a '9   
 $    	  $ <     ( ,          1 8!            -4  'X! ! V6 !    ' ,     (                  1 8!           4 '9 7)             a '9   
*( 4 '9 7(             a '9   
	     	                            Q    4 '9 7(             a '9   
 $    	  $     1 8!   u         1 8!   r         1    	     4 '9 7(             a '9   
 $    	  $     4 '9 7(             a '9   
 4 '9 7)             a '9   
(     (       &            1 8!   :        4 '9 7)             a '9   
(      (             
 
  
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
   =?%    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  ;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?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 03:56:31 PM [+0]
  	        on resume.rfc822.org
  	        using SBCL version 0.8.14
   MIPS3      (: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+,;(  
*                    '&      
     4  ' x! !      6 !    '1 8!   %    	     * +    T $         *     $ 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$'(#N  #-  $ #  1
C$4#Q&VCS-TREERDIS-VCS-DIRECTORY$$$d(F$'($$$$8#  1
G(H1IJ;	  *                    '&  4               1 8!       @!           ! !%?   !          	 +    4      
    	           4  '! !      B6 !    ' 4  '8! !      N6 !    '1 8!       	    1! 8!   r    !    $!^  $!  k           P!X!  `!h! 4  '! !  p6 !    '@     &            4  '! !  6 !    ' 4  '8! !      6 !    '1 8!   r    	    1! 8!       !    $!^  $!      1! 8!       !    $!Z  $!      4 
1! 8!       !    $!      1! 8! B  
     !      P!X!  `!h! 4       %     
 
.1! 8!       !    $!Z $!     41! 8!       !    $!     1! 8! B ~     )     
 
. 3    (  3     /     
     
    	A     )          
     
 
/.     
 
  
 
    
 
   =?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\];   *                    '&           
    P!X! 4  ' ! !       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$'(#N  #-  $$#   1
i$8#DIS-CVS-MANAGED$$$d(k$'($$$$<#   1
l(m1no;   
*                    '&   H!4  '         
          4  ' ! !  $6 !    'p      4  ' ! !      26 !    '8 4       
 
 =?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{;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?|v.    }8 ?>~   #   `a7~c<d<e<&DEFUN IS-SVN-MANAGED#& XEP for VCS-TREE::IS-SVN-MANAGEDA$$#   $$#.  ($'(#N  #-  $$#   1
$8#DIS-SVN-MANAGED$$$d($'($$$$<#   1
(1;   
*                    '&   H!4  '         
          4  ' ! !  $6 !    'p      4  ' ! !      26 !    '8 4       
 
 =?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;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?.    8 ?>   #
  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$$#   $$#  ($'(#N  #-  $ #8
  1
$4#$$$d($'($$$$8#@
  1
#
  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))A$$#   $$#  ($'(#N  #-  #(
  #
  1
#<
  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$d($'($$$#@
  #
  1
#  #A$$#   $$#  ($'(#N  #-  #  #
  1
#  #$$$d($'($$$#  #
  1
(1;
  *                    '& @4 D             1 8!       @!           ! !%?   !          
4  '! !      B6 !    '         
     1A 8!  7           4  'h! !  Z6 !    '      ! !&      @H!P!  X!`!       !4  '!  !      t6 !    '0         
     1A 8!             4  '0! !  6 !    'Ў      ! !&  )    @H!P!  X!`! %      !4  '!  !      6 !    'h    @!	                      X!1a 8!      `@!        $           1 8!           
4  'P! !      6 !    '      >    k     1a 8!      `@!     t          -4  '! !      6 !    '8 `!              @!4 '9 7+ `H!(4             a '9   
 `@!   ;                1     4  'x! ! 6 !    ' x!     4 %? '! ! ,6 !    'P4 '9 7+ `H!(4             a '9   
`@!     4 8         +      )           1! 8!  #    4               H!P!      +    t      P!)     1! 8!       X!t     54      T     +     K      (          @! 9     
 
.@!4 '9 7+ `H!(4             a '9   
 `@!   <                 1     4  '! !     6 !    ' x!     4 %? '! ! 6 !    'H4 '9 7+ `H!(4             a '9   
`@!      4 M          +      )           1! 8!      4               H!P!      +    t &     P!)     1! 8!       X!t     54  '! ! 6 !    '@ H!4 '9 7(             a '9   
     
	  *    T     +     K      (          @! 9     
 
.                    4 '9 7(             a '9   
     	     	                             =4  '	 ! !     @6 !    '                         4 '9 7)             a '9   
( A    (  @! P    1A 8!       A    $!v  $! $!  $!      E     
 
N         4 '9 7)             a '9   
( I    (  @! (    1A 8!       A    $!v  $! $!  $!      E     
 
N *                    '& @4               1 8!           1 8!       @!           ! !%?   !	     * +    T 8     M    ( %              Q4  'P! !     6 !    ' U4  '! !     6 !    '1 8!                $ 3    (      ( /     
     M    	          M     
 
/.  *                    '& @4  {             1 8!   t        1 8!       @!           ! !%?   !	     * +    T 8     M    ( %              Q4  '! !     :6 !    ' U4  '
! !     F6 !    '1 8!   =             $ 3    (      ( /     
     M    	          M     
 
/. 
 
  
 
n    
 
    
 
n    
 
.    
 
.    
 
.    
 
.    
 
  
 
    
 
    
 
  
 
    
 
   =?M.NOR  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;   
*                    '&           
         X! 4  ' ! !  "6 !    'x@!           ! !%?   !=?.    8 ?>   #D  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  ($'(#N  #-  $ #   1
$<#$$$d$$#   $$#   ($'($$$$@#(  1
#|  #&%XEP for #'(LAMBDA (#:G196) (LET # #))A$$#   $$#  ($'(#N  #-  #  #4  1
#  #&#'(LAMBDA (#:G196) (LET # #))$$$d($'($$$#  #<  1
#H
  #&%XEP for #'(LAMBDA (#:G192) (LET # #))A$$#   $$#  ($'(#N  #-  #x
  #<  1
#
  #&#'(LAMBDA (#:G192) (LET # #))$$$d($'($$$#
  #D  1
(1;&D  **                    'G& 4                 
    	o                   X!      !     %4  'H! !  R6 !    '      )4  '! !      `6 !    ' -4  '! !      l6 !    'P       14  '! !  z6 !    ' 54  '! !      6 !    '1 8!      
          
    	      9     =     A     E4  '! !      6 !    'p H!      
    
 k     ! h	    X! d ` \ ! l& @!        ' 4 '9 7( 4:            a '9   
 p     1 8!   .     I    4.4 '9 7* A            a '9   
H p    H I @!@H!      M4  '! !      6 !    '8@!P!& H  @ !4  p               1 8!           $!v  $! $!  $!           Q     
 
.      U    
 k     ! 	    X! | x t ! & $!        ' 4 '9 7( 4:            a '9   
      1 8!   .     Y    4.4 '9 7* A            a '9   
H     H I @!@H!      M4  '! !     b6 !    'x            ]4           1 8!           $!v  $! $!  $!           Q     
 
.@!P!& H  @ !4             U    	      9     a     e     E4  '! ! 6 !    'p H!     H!           U    	           i         X!      m     %4  '! ! 6 !    '      !& $ q          u     y          }                        4 $ '!  ! 6 !    'X 6      |     x     t    	@!     5               	&5          & P!& H  @ !4            4    ! !&_  @! 8!             6 l       !  0!(      &1 (  $$!   ! d     `     \    	@! h    5               	&5     p               J*                    '&           4                  4  '	! !     h6 !    '` H!1! 8!   .    !    $!^  $!  '           P!X!  `!h! 4  '
! !     6 !    '     @!           ! !%?   !         4  4         1! 8!       !    $!Z $!     1! 8! B     41! 8!       !    $!           
 
. *                    '&           4  o                4  'h! !     6 !    ' H!1! 8!   1    !    $!^  $!  *           P!X!  `!h! 4  '! !     6 !    '      & !& (  4                 @!           ! !%?   !1! 8!       !    $!Z $!     1! 8! B     41! 8!       !    $!           
 
.     
 
  
 
    
 
  
 
 QNJUMPRQUNWINDRt  QNJUMPRQUNWINDR	  QNJUMPRQRETURN-MULTIPLER  =?
G192.NOLNULLRH
  
G196  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    ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?    .    	  8 ?>
  #  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  (&  $'(#N  #-  $ #  1
'  $<#DPROCESS-VCS-DIRECTORY$$$d$$#   $$#   ()  $'($$$$@#  1
*  #  #&FLET VCS-TREE::PROCESS+  $$$d$$#$  (,  $'($$$#  #  1
-  (.  1/  0  ;(  ,*                    '?& @4                 
4  '! !      F6 !    ' :          4  'X! !      V6 !    '           $                 (         	    9! J k     @!           !4  '! !  z6 !    '4  %4       )     $                 -         @! 1     $     !4  '! !      6 !    '       54  '! !  6 !    'H P!@! 9          !4  ' ! !      6 !    '        54  '8! !  6 !    ' X!&  =          !4  '! !      6 !    '      A          E    &  I4  '! !  6   !H!P!'0 X!   4	  @@!'            6 !    '               &  M    `P! !4      &  Q          !4       U         @! Y     $     !4  '! !     46 !    '0  k     ]     w    1A 8!   _      a    	     4       e     i4  'P! ! T6 !    '      ! !&  m    @H!P!  X!`!       q4  '!  !     n6 !    'H *    1 8!   g    
     @! u     !4  '! ! 6 !    ' X!@! y     $     !4  'X! !     6 !    '  	     }         1A 8!       A    $!v  $! $!  $!           
 
N !& $                                             4 $ 'H!  !     6 !    ' 
 
  
 
    
 
    
 
   QNJUMPRQ&SB-VM	2  	GENERIC-=RT  =?4  (  qDACTIONDOPTIONS7         ?>9  #   8  (  W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)9  %( :  $'($$$$(#   1
;  (<  1=  >  ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=??  9  .    @  8 ?>A  #   D
*PROGNAME*!  V%DEFVAR<#&Ptop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*PROGNAME*) (UNLESS # "") ...)C  %( D  $'($$$$(#   1
E  (F  1G  H  ;   *                    '&      
    (    9 J            
    & X!`! 4  ' ! !      (6 !    '`@!           ! !%?   !H!         =?I  C  .    J  8 ?>K  #    A  &usage: ~A action [OPTIONS]~%K  
  <&3Processes a source-control managed directory tree~%L  &#Action: update, commit, or status~%M  &	OPTIONS~%N  &"   -m <str>    Set commit string~%O  L
WRITE-CHAR<&DEFUN USAGEQ  #&XEP for VCS-TREE::USAGER  A$$#   $$#  (S  $'(#N  #-  #   #p  1
T  #   #&&MORE processingU  NOPTIONAL$$#N  $$#.  $$#   (W  $'(#N  #-  #   #p  1
X  #,  #&!varargs entry for VCS-TREE::USAGEY  $DMSG$d$DMSG-ARGS#   (\  $
OPTIONAL-ARGS$ REST-ARG$(_  ($$$#0  #p  1
`  #P  #&&OPTIONAL processor #:G311a  V  $$#  (b  $'(#N  #-  #P  #  1
c  #d  #&&OPTIONAL processor #:G316d  V  ( e  $'(#N  #-  #d  #  1
f  (	g  1h  i  ;
  *                    '&   !$     !$ 	!0!$$      $cs  $   $  $  $  $  $           $H# P! ! X!4  '9 7+ `H! @@  (!%) )(      $! $(4             a '9  
      
    	    9! J           
    9A J       @!      4  '! !  r6 !    '8      S     
    	    9! J       @!      4  '0! !      6 !    'Џ 
    	    9! J       @! !     4  '! !      6 !    'x 
    	    9! J       @! %     4  '! !      6 !    '  
    	    9! J  w     @! )     4                 k     
    	    9! J  g     @!P!& H  @0!4      P!& H  4      1 8!   X     ! 
	         & 1 8!       
 
   (#8#       & ' !  ! 6 !    ' 
    	    9! J  3    4
B -4  'p! !     6 !    ' o         3    @!      
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
   =?j  DUSAGERZ  L&REST[  m  .Rl  n  O8:;o  Rp  q      ?>s  #   r  k  W<#&htop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::USAGE) (SB-INT:NAMED-LAMBDA VCS-TREE::USAGE # ...) ...)s  %( t  $'($$$$(#   1
u  (v  1w  x  ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?y  s  .    z  8 ?>{  #h  &ci{  6<  &update|  &commit}  &status~    DMATCH-UNIQUE-ABBREVIATION<    &Unknown action: ~A  k  <  <>&DEFUN PARSE-ACTION-ARG  #&"XEP for VCS-TREE::PARSE-ACTION-ARG  A$$#   $$#  (  $	'(#N  #-  $ #`  1
  $4#DPARSE-ACTION-ARG$,#  $d(  $	'($$$$8#h  1
  (  1    ;h  *                    '&  4       !   2 8!   h        $!^  $!  a      @! 
      P!X!  `!h! 4  ' ! !  86 !    '                           ! !%?   !  @!      4  'X! !  V6 !    '            !         4  !    4       %           )     H! -4  '! !      x6 !    '      4  14                2 8!           $!Z $!     2 8!           $!     2 8! B      5     
 
     
 
 =?    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    ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?    .      8 ?>  #  A    NREQUIRED    DGETOPT<k  <  <  <DCWD<DDIRECTORY-TREE<<DMKLIST<(  <&Invalid action ~A  DCOMMAND-LINE-ARGUMENTS<&
DEFUN MAIN  #&XEP for VCS-TREE:MAIN  A$$#   $$#  (  $
'(#N  #-  $ #  1
  $X#&%hairy arg processor for VCS-TREE:MAIN  $DARGV$d(  $
]  $ (  ($$$$\#  1
  #L  #&&OPTIONAL processor #:G354  V  (   $
'($$$#P  #  1
  (  1    ;  *                    '&              4                
 
       1 8!  
    	     
    H    & I                4  '! !  F6   !H!P!'  T      4   '`! !      X6 !    '4  4  '! !  d6 !    'p     1 8!            !4  '! !      x6 !    '   w     %4   '! !  6 !    ' )4  'H! !      6 !    ' -4  'x! !      6 !    ' 14  '! !      6 !    'X X!      h    k                 54  '! !      6 !    '     1a 8!   s    `@!      @! 4  '`! !      6  g    '& &4         	&           4    ! !&_  @!            	     9     4  '! ! 6 !    '4  4  '8! ! 6 !    ' l         4 !'p ! 6 !    '4 F     ,      =4   '! !     .6 !    'H                
 
    
 
    
 
n   '(  ) * + , -   !     QNJUMPRQ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    ;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&&/build/buildd/vcs-tree-0.2.1/main.lisp  "Ə   "    $ +     1f  1      ̿       ̯       ̕       ̋       x       i       H       >       0                      ̿        ̰        ̐        ̈        {        o        ]        J        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/loader.lisp"
  	        at Saturday, September 25, 2004 03:56:34 PM [+0]
  	        on resume.rfc822.org
  	        using SBCL version 0.8.14
   MIPS3      (: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*+;(  
*                    '&      
     4  ' x! !      6 !    '1 8!   %    	     * +    T $         *     $ 3    (       ) /    )          *          (@!           ! !%?   !      
 
.      
 
/.=?,#LFUNCTION    .8 ?>/   #x  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$$#   (=$&'#N  #   $$#  1
>$0"Q&COMMON-LISP-USERR?RUN( A$&'$$$$4#  1
B#4  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)C<$$$d$$#   (D$&'$$$#x  #p  1
E#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)F$$#n  (G$&'#  #  #  #x  1
H(I1JK;x  *                    '& ` (!0       4 '9 7( 4:            a '9   
 ( ! 8	    P! 4 0 , ! <& !        '  4 '9 7( 4:            a '9   
 @ 
    4.4 '9 7(             a '9   
	 @    	  (    	 4 '9 7)             a '9   
     *(  @!4 '9 7+ `H!(4             a '9   
     	    9! J      4 '9 7*             a '9   
KI      (    & *& 4	    9! J      1! 8!       )          4 '9 7, P!HI @!            a '9   
 4  '! !      6      '0& &4         	& @       H      6 <     4     0     ,    	@! 8    5               	&5     (    
     !    	    9! J  t     @! %     )4  '! !  6 !    '( -    4	  14  '! ! 6  \    '& &4  @                4    ! !&_  @!            *                    'w& `                    4  :    ! !& `       `! !'           >6 !    ' h!K(    4  4          
 
  
 
    
 
    
 
.   '0(  ) * + , -   ! ^     
 
   '(  ) * + , -   !      
 
 QNJUMPRQUNWINDR  QNJUMPRQRETURN-MULTIPLER,  =?PFQ&SB-IMPLRQTEMPS-TU8  PVP@-L*X    ?>Z   #   Y@Q%DEFUN<"&vtop level form (SB-IMPL::%DEFUN (QUOTE COMMON-LISP-USER::RUN) (SB-INT:NAMED-LAMBDA COMMON-LISP-USER::RUN NIL ...) ...)[$( \$&'$$$$(#   1
](^1_`;   *                    '&           
    P!X! 4  ' ! !       6 !    '@!           ! !%?   !=?a[-    b8 QDEBUG-SOURCER	(d$$-eNFILE&(/build/buildd/vcs-tree-0.2.1/loader.lispg"Ə h"  i$ +     j1klm`      mK      m+      ?>n   @