#!/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 06:29:09 AM [+0]
  	        on voltaire
  	        using SBCL version 0.8.14.28
   PPC3      (: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+,;   
*                    ::      
S 9`  : x}{x~xN       6~гx`   :ss , @ lX  +| @ l3 |
 A $j 3, @ DJ /J 3 |
 @ 0S 
~Xxo  O }{x|ox; }SSxN  S  
NS  
/N    =?-$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<=;   
*                    :: @   ~x: 0 
~Yx~Zx~[xD S D D D S D  S D $D (D ,S 9` 0 : }{x|#xN       .6~гx`   :sH~Xxo  O }{x|ox; }SSxN      =?>8.    ?8 ?>@   #    VCS-TREE<#$%( A$'($$$$(#   1
B(C1DE;   
*                    ::      
S 9`  : x}{x~xN       6~гx`   :ss , @ lX  +| @ l3 |
 A $j 3, @ DJ /J 3 |
 @ 0S 
~Xxo  O }{x|ox; }SSxN  S  
NS  
/N    =?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 06:29:09 AM [+0]
  	        on voltaire
  	        using SBCL version 0.8.14.28
   PPC3      (: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+,;   
*                    ::      
S 9`  : x}{x~xN       6~гx`   :ss , @ lX  +| @ l3 |
 A $j 3, @ DJ /J 3 |
 @ 0S 
~Xxo  O }{x|ox; }SSxN  S  
NS  
/N    =?-$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$$#m  $$#  (;$'(#  #  $ #  1
<$,#Q&VCS-TREER=READ-FILE-TO-STRINGS$$$d(?$'($$$$0#  1
@#(  #&FLET #:CLEANUP-FUN-9ANCLEANUP( C$'+   D$$#   #,  #  1
E(F1GH;	  *                    :: `     ~JxO  3 
S S 9`  : }{x~xN       (6~гx`   :s`x~xO <; 8 :1 b* 8`:j~12  
O 8 }sxo LR	|9xO H D/ @~xo P8 R!D   d 9SБD 9O R!S 9`   :P}{x~xN   T6~гx`   :s 
x}XSx ~x~Yx}ZSxS 9`  :}{x~xN       h6~гx`   :s`
x |
 A t8 :1 V4 8b ~12  TO T   <~YxO S 9`  :}{x~xN       6~гx`   :s
xK S !9`  :X}{x~xN       6~гx`   :s O 8~Xx
r!c  r!}{x~x: ` 8 <|fx|#x9SH    6 o  O }{x|ox; }SSxN    6  }j[xO O H D/ @R	!xo L|p A (N,
  A 9|p @}{x~x: ` 8 <|#x9SHH    6  O }KSxH  O | @ $~Tx|3xO }{x|ox;N   T~x3 %S )9`  :}{x~xN       6~гx`   :s@  KQNBARQ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\];   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?^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;   *                    ::      
X,
 J@ x3 ~x:  
;R ~[xD S 9`  : }{x|#xN       &6~гx`   :sh~Xxo  O }{x|ox; }SSxN  ~YxK    =?ic.    j8 ?>k   $t`LSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACEl#&(XEP for VCS-TREE::STRING-TRIM-WHITESPACEm:$$#m  $$#.  (n$'(#  #  $$$h1
o$0#=STRING-TRIM-WHITESPACE$$#  (q$'(#  $m$4$h1
r(s1tu;t   *                    ::  x 4x~óx~xS 
, JA (~xS 9`  |vx~xN      
N   =?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;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?}.    8 ?>   #  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 #) ...):$$#m  $$#  $`($'(#  #  $ #  1
$,#&6#'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...)$$$d$`($'($$$$0#  1
(1;
  *                    ::       O qC 
  
 ;  ;@ S 
9`  : }{x~xN       *6~гx`   :sX| AO J qC 
  *O J qC 
  J qC 
  JO O J qC 
  J qC 
  J |
 AO J qC 
  J qC 
  J qC 
  JO  S 9`  :}{x~xN       f6~гx`   :shS 9`  :}{x~xN   r6~гx`   :s8  3 O o S 9`  :}{x~xN       6~гx`   :sx / S 9`     N ~JxO K O J ~x:  !3 %s )8` d 8` d S -9`  :}{x|#xN   6~гx`   :s`K    =?
WHOLE28

ENVIRONMENT29.L*    ?>   #   &DEFMACRO VCS-TREE::AIF	%DEFMACRO<#&Gtop level form (SB-C::%DEFMACRO (QUOTE VCS-TREE::AIF) (FUNCTION #) ...)%( $'($$$$(#   1
(1;   
*                    ::     ~x:  3 
S ~[xS D S 9`  : }{x|#xN   $6~гx`   :sp~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #  =FLATTEN<LAPPEND<&
DEFUN FLATTEN#&XEP for VCS-TREE::FLATTEN:$$#m  $$#  ($'(#  #  $ #  1
$,#$$$d($'($$$$0#  1
(1;  *                    ::       O |
 A qC , A ( o  O }{x|ox; }SSxN  O JqC , @ O 
S 
9`  : }{x~xN   26~гx`   :s8 O 
 S 
9`  :}{x~xN       B6~гx`   :sx S 9`     N O 
8 :1 V5 8b ~x
J ~12   O 
 S 
9`  :}{x~xN       f6~гx`   :shx S 9`     N     =?=LIS.NOQ    ?>   #   W<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...)%( $'($$$$(#   1
(1;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #   &DEFUN MKLIST#&XEP for VCS-TREE::MKLIST:$$#m  $$#  ($'(#  $m$$#   1
$0#=MKLIST$$#  ($'(#  #   $0#   1
(1;   *                    ::  ~óx x|dxr , A H~سx8 :1 V5 8b ~x
J ~12  ~x}{x|#x; ~xN  ~سxK=?=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;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #X  =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:$$#m  $$#  ($'(#  #  $ #@  1
$,#$$$d($'($$$$0#@  1
(1;X  *                    :: @      S 
9`  : }{x~xN       ,6~гx`   :sP
x}XSx ~x:  3 S s   D S !9`  :}{x|#xN   D6~гx`   :sS %9`  :@}{x~xN   P6~гx`   :s~Tx ~Xx8 :1 V5 8b ~x
J ~12  ~xO H  쒯 $O   O J qC 
  O ~xS )9`  :}{x~xN   v6~гx`   :s( $  | A ~x/ ~xS 
9`  :(}{x~xN       6~гx`   :s؃/ 8 :1 V5 8b ~x
J ~12  ~x~ճx| A O |
 @O  s , @  S - | AS 1 | A~x: ~Xxx~Zx|xD   S 59`  : }{x|#xN       6~гx`   :s   | @| @ ȃ S )9`  :H}{x~xN   6~гx`   :s| A P 8 :1 V5 8b ~x
J ~12  ~xo  O }{x|ox; }SSxN   9/ S =9`  :}{x~xN       6~гx`   :s(~Xx8 :1 V5 8b ~x
J ~12  ~xO ~xxH  / }ZSxO S A9`  :X}{x~xN      6~гx`   :s/ O 8 :1 V5 8b ~x
J ~12  ~x| A X 9 s#   4x| @hO J 8 :1 V4 8b ~12   T ~xK~Jx E 
N IxS =9`  :0}{x~xN  L6~гx`   :ss , @ (|, A , @8, A , @(S M 
N~Jx E 
N     
N    
N   =?=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     ;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?  .      8 ?>  #p  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  :$$#m  $$#  (  $'(#  #  $ #p  1
  $,#$$$d(  $'($$$$0#p  1
  #<  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#  (  $'+     #N  #   #<  #p  1
  (  1    ;p  *                    :: @      S 
9`  : }{x~xN       *6~гx`   :sX $ $S 9`  : }{x~xN   86~гx`   :s }{x~x: @x|fx|#x9SH   D6  $S 9`  :@}{x~xN       P6~гx`   :s}{x~x: @x|fx|#x9SpH    \6O |
 @O |
 @\| @$~Yx| @ ( $o  O }{x|ox; }SSxN  /  $S 9`  :}{x~xN       |6~гx`   :sx}{x~x: @|#x9S H t      6/ ~xS 9`  :P}{x~xN       6~гx`   :sx !S %~[xS )O ~JxO S -O ~JxO S 1O  S 59` (    N ~x8 :1 V5 8b ~x
J ~12  ~xK 8 :1 V5 8b ~x
J ~12  ~xK| Ah 9/ S =~xS A9`  :P}{x~xN       6~гx`   :s8 :1 V5 8b ~x
J ~12  ~xK E| A  ~x|3x}{x|ox;N ~UxK    =?  .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#  $  ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?%    .    &  8 ?>'  #   <L
NAMESTRING<Q&SB-UNIXR	(  UNIX-FILE-KIND<  &DEFUN PROBE-DIRECTORY*  #&!XEP for VCS-TREE::PROBE-DIRECTORY+  :$$#m  $$#  (,  $	'(#  #  $ #   1
-  $,#$$$d(.  $	'($$$$0#   1
/  (0  11  2  ;   
*                    ::        S 
9`  : }{x~xN        6~гx`   :sS 9`  : }{x~xN   ,6~гx`   :sPS 9`  : }{x~xN   86~гx`   :s S |
 @ (; o  O }{x|ox; }SSxN  ~XxK=?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=  >  ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =??  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  $$#  (M  $
'(#  #  $ #  1
N  $P#&%hairy arg processor for VCS-TREE::CWDO  $=DIR#  $d(Q  $

OPTIONAL-ARGS$ (S  ($$$$T#  1
T  #  #&&OPTIONAL processor #:G94U  NOPTIONAL( W  $
'(#N  #  #  #  1
X  (Y  1Z  [  ;  *                    ::  ,  @ H x, @ x  ~xH   
m   O | @ Ē S 
9`   : }{x~xN   ,6~гx`   :sP 
xqC , @ Xjpc , @ H }XSxS 9`  :}{x~xN       D6~гx`   :s 
x}XSxo  O }{x|ox; }SSxN  r , A r , @ tpc , A |r , @ PT  +| @ P |
 @ S ~xKj 3, @ J /J 
 |
 AԁS  
NS  
/N~xS 9`  :}{x~xN   6~гx`   :sxKPT  +| @  !|
 @ ~xS %9`  :p}{x~xN       6~гx`   :s ~xS %9`  :}{x~xN   6~гx`   :sXxKS ! 
/N~x~Tx  K=?\  =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  ;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?i  c  .    j  8 ?>k  #   NUNIX-STATUSQ&SB-EXTR	l  QUIT<&
DEFUN QUITn  #&XEP for VCS-TREE::QUITo  :$$#m  $$#  (p  $'(#  #  $ #   1
q  $L#&&hairy arg processor for VCS-TREE::QUITr  $=CODE#  (t  $R  $ (u  (#  #   $P#   1
v  #   #&&OPTIONAL processor #:G106w  V  ( x  $'(#  #  #   #   1
y  (z  1{  |  ;   *                    ::  ,  @ H  , @ x~ĳxH   
m   ~xr A r , @ 4t, "A (~x 
S 9`  |#x~xN | @ |xK;  K|x~ĳxK=?}  =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    ;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .      8 ?>  $\&DEFUN COMMAND-LINE-ARGUMENTS  #&(XEP for VCS-TREE::COMMAND-LINE-ARGUMENTS  :$$#m  (  $'(#  #  $ $P1
  $$#=COMMAND-LINE-ARGUMENTS(   $'(#  #  $$$P1
  (  1    ;\   *                    ::    9R 4
, JA  }{x~ϳx; ~xN       
N   =?    .      ?>  #       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    ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .      8 ?>  #    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  :$$#m  $$#.  (  $
'(#  #  #   #  1
  #   #&&MORE processing  V  $$#.  $$#N  $$#   (  $
'(#  #  #   #  1
  #  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $=CMD$d(  $
$   DELETED    (  ($$$#  #  1
  #(  #&FLET #:CLEANUP-FUN-118  B(   $
'+     $$#   #,  #  1
  #  #&FLET #:CLEANUP-FUN-108  B(   $
'+     $$#   #  #  1
  (	  1    ;  *                    :: ~x4@ X~"4@ $~x|Z84  8  A4A $4#  A 4C A 4c x, A 8k}CP}ZSx|dxH   
m   8d|ex~Jx~Tx~[x~Uxp ,  @ H  x|+x8f  ~.8|+x8f  }Z.8 
|
 A L |
 A @ |
 A 0}XSx8 :1 V5 8b ~x
J ~12  H  ~x,  @| @ /   H  $| @U 
N    
   ~x:  3 S !s % S )D 9R D S -9`  :@}{x|#xN       6~гx`   :s $~x:  13 S !s % S )D 9R D S -9`  :}{x|#xN   6~гx`   :s`   $S 59`  :}{x~xN   6~гx`   :s(xxO ` }sxo R	|9xO  / |~xo 8 DR!D   d 9SpD 9O DR!  S 59`  :h}{x~xN       6~гx`   :s x~ʳxO d}sxo tR	|9xO p l/ h~xo x8 (R!D   d 9S D 9O (R! 9/ 8 :1 V5 8b ~x
9J J*J ~12  ~x~x:   =S A~[xS ED  S ID  S M9`   :X}{x|#xN  6~гx`   :s r!c  r!}{x~x:  d|fx|#x9SH  &6r!c  r!}{x~x:  `|fx|#x9SH 0 26 s , @ xX  +| @ x3 Q|
 @ <X  $/  o  O }{x9` |ox: ~[x;}SSxN  j 3, @ J /J 
3 Q|
 AS U 
NS Q 
/N \6  }j[xO O  / |R	!xo |p A (N,
  A 9|p @}{x~x:  `|#x9SH      z6  O }KSxH   6  }j[xO O p l/ hR	!xo t|p A (N,
  A 9|p @}{x~x:  d|#x9SxH        6  O }KSxH  O   ~xS Y9`  :}{x~xN      6~гx`   :s@  ~Tx|3xO }{x|ox;N O   ~xS Y9`  : }{x~xN  6~гx`   :s  ~Tx|3xO }{x|ox;N     QNBARQUNWINDR$  QNBARQ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    ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .      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 06:29:09 AM [+0]
  	        on voltaire
  	        using SBCL version 0.8.14.28
   PPC3      (: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+,;   
*                    ::      
S 9`  : x}{x~xN       6~гx`   :ss , @ lX  +| @ l3 |
 A $j 3, @ DJ /J 3 |
 @ 0S 
~Xxo  O }{x|ox; }SSxN  S  
NS  
/N    =?-$LFUNCTION    /8 ?>0   #  L
SIMPLE-STRING&DEFUN IS-SHORT-OPTION1#&!XEP for VCS-TREE::IS-SHORT-OPTION2NEXTERNAL$$#m  $$#  (4$'(#  #  $ #x  1
5$,#Q&VCS-TREER6IS-SHORT-OPTION$,#  $d(8$'($$$$0#x  1
9(:1;<;  *                    ::   x    ~x9` }{x~x: pN       6~гx`   :s , A r , @ tpc , @ ЁT8  |P@@ r , @ t, @ T8c |( -@ |T8 |P@@ r , @ Pt, @ DT8c |( -@ (~Xxo  O }{x|ox; }SSxN  ; K|p 
.   ~XxK|p 
.   S 
 
N~XxK     
 M    
 M   =?=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;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?PJ.    Q8 ?>R   #  0&DEFUN IS-OPTION-TERMINATORR#&&XEP for VCS-TREE::IS-OPTION-TERMINATORS3$$#m  $$#  (T$'(#  #  $ #x  1
U$,#6IS-OPTION-TERMINATOR$,#  $d(W$'($$$$0#x  1
X(Y1Z[;  *                    ::   x    ~x9` }{x~x: pN       6~гx`   :s , @ r , @ tpc , @ ЁT8  |P@@ r , @ t, @ T8c |( -@ |T8 |P@@ r , @ Pt, @ DT8c |( -@ (; o  O }{x|ox; }SSxN  ~XxK|p 
.   ~XxK|p 
.   S 
 
N~XxK     
 M    
 M   =?\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;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?d^.    e8 ?>f   #  0&DEFUN IS-LONG-OPTIONf#& XEP for VCS-TREE::IS-LONG-OPTIONg3$$#m  $$#  (h$'(#  #  $ #  1
i$,#6IS-LONG-OPTION$,#  $d(k$'($$$$0#  1
l(m1no;  *                    ::   x    ~x9` }{x~x: pN       6~гx`   :s , A (~Xxo  O }{x|ox; }SSxN  r , @tpc , @T8  |P@@r , @ ܈t, @ T8c |( -@ T8 |P@@ r , @ t, @ |T8c |( -@ `T8 |P@@ r , @ 4t, @ (T8c |( -@ ~XxK; K|p 
.   ~XxK|p 
.   ~XxK|p 
.   S 
 
N 
 M    
 M    
 M   =?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;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?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$$#m  $$#  $$#.  ($'(#  #  $ #  1
$0#6
DECOMPOSE-ARG$$$d$$#$  ($'($$$$4#  1
(1;  *                    :: @  / $   O $ 
|
 @8 O qC , @\ S  | AS  | A~x: ; =B/ ~Zx|xE   S 9`  :}{x|+xN   F6~гxH  ~Yx:s耏 4x  |#x~xS 9`  :h}{x~xN       Z6~гx`   :s  | A |~x;9  S 9`  :}{x~xN       n6~гx`   :sHx o  O }{x9` |ox: ~Zx~[x;}SSxN  ~YxKȁO qC , @ (j, A , @, A , @xO  ! 
NO $ %|
 @ 8 K<~x: $ )3 -S 1s 5O $D S 9D S =D S AD S ED  S I9` $ :}{x|#xN   6~гx`   :s8 
N    
N   =?>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;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #p  7<j<NARG<z&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG3$$#m  $$#  ($'(#  #  $ #p  1
$,#6ANALYZE-ARG$$$d($'($$$$0#p  1
(1;p  *                    ::        S 
9`  : }{x~xN       "6~гx`   :sx| @  S 9`  : }{x~xN       26~гx`   :s8| @  S |P @   ~xS 9`  : }{x~xN       H6~гxH  ~Yx:s 
x:x~x}YSxo  O }{x9` |ox: ~[x;}SSxN  S !|P At / ~ZxK !KP KH=??.@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;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #  6MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTION#&XEP for VCS-TREE::FIND-OPTION3$$#m  $$#  $$#.  ($'(#  #  $ #  1
$0#6FIND-OPTION$$$d$$#   ($'($$$$4#  1
(1;  *                    ::    /    ~Xx8 :1 V5 8b ~x
J ~12  ~x~x H  T}YSxWqC 
  
8 :1 V5 8b ~x
J ~12  ~x| A ؒ  r   ~x| @6  S 
9`  : }{x~xN       H6~гx`   :s| A l/ S 9`  :`}{x~xN       X6~гx`   :ss   o  O }{x|ox; }SSxN  ~XxK~Jx  
N    =?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;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #  <<&DEFUN MATCH-OPTION#&XEP for VCS-TREE::MATCH-OPTION3$$#m  $$#  $$#.  ($'(#  #  $ #  1
$0#6MATCH-OPTION$$$d$$#   ($'($$$$4#  1
(1;  *                    ::    /     S 
9`  : x}{x~xN   6~гxH  ~Yx~Zx:s 8xO / S 9`  : }{x~xN   06~гx`   :s@| A Hs   
xJ/ o o  O }{x9` |ox: ;}SSxN  ~ZxK    =?>.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;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    8 ?>   #p  <STRING=*<LVECTORLBASE-STRINGLSYMBOLL	BASE-CHAR      ~<      &DEFUN MATCH-UNIQUE-ABBREVIATION  #&+XEP for VCS-TREE::MATCH-UNIQUE-ABBREVIATION  3$$#m  $$#  $$#.  (  $'(#  #  $ #`  1
  $0#$$$d$$#   (  $'($$$$4#`  1
  (  1  	  ;p  *                    :: @  /     9` }{x~x: N       "6~гx`   :sx ~JxO   9` }{x~x: N       26~гx`   :s8 $|xo (H  (/ S 
9`  :}{x~xN   D6~гx`   :ss   XO , ,9` }{x~x:XN       V6~гx`   :so | @DO qC , @܈jpc , @́O ,qC , @djpc , @T~x:  / ,|x~[x D S 9`  :}{x|#xN       ~6~гx`   :s| A T8 :1 V* 8aJ ~12   ,
o (j 8 :1 V4 8b ~12  TO  T   o (8c o (o ( $|  ApO  |x|
 A 4qC , @J 8 qC , A N   H  , @ <O  JqC 
  
 o  O }{x|ox; }SSxN  ~XxK܁O ,qC , @ jpc , AO ,|
 AqC , @ j, >ApO ,  
NO qC , @ jpc , AO |
 AqC , @ j, >AO   
No | @ ,|xO S 9`  :}{x~xN       6~гx`   :s
x s , @(xpc , @qC , @ jpc , @ ~x:  }YSx|x~[x D S 9`  :}{x|#xN   6~гx`   :s| A8 :1 V* 8aJ ~12   ,
o (j 8 :1 V4 8b ~12  TO  T   KxqC , @ jpc , A<|
 A4qC , @ j, >A ! 
N s , @ xpc , AЃ | As , @ x, >AO  % 
N N   K=?
  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    ;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .      8 ?>  #  V<<z<LNREVERSE<NREQUIRED7<j<NNONE&DEFUN GETOPT  #&XEP for VCS-TREE::GETOPT  3$$#m  $$#  $$#.  (  $	'(#  #  $ #  1
  $0#6GETOPT$$$d$$#   (   $	'($$$$4#  1
!  ("  1#  $  ;  *                    :: @  /    O O ~JxO ~JxO ~JxO  ~JxO $H DO |
 @4O qC 
  
S 
9`  : }{x~xN   86~гx`   :s | @܁O  0O 
/ S 9`  :0}{x~xN   L6~гxH  ~Yx~Zx~[x:sЂ 0x| @pS |
 @,~xS 9`  :}{x~xN       d6~гx`   :sp8 :1 V* 8aJ ~12  
 $
 O $O qC 
  J O O |
 @  S 9`  :}{x~xN   6~гx`   :s  S 9`  :H}{x~xN   6~гx`   :sx O $o  O }{x9` |ox: ~[x;}SSxN  S !|
 A8 :1 V* 8aJ ~12    
 O  K| @`r   ~xJ qC 
  J %|P AO ( ,O J qC 
  
S )9`  :@}{x~xN   6~гx`   :s ,O (| A U qC 
  J %|P A tU qC 
  J qC 
  J8 :1 V4 8b ~12  TT 8 :1 V* 8aJ ~12    
 O  K8 :1 V* 8aJ ~12  J $
 O $KO ( ,O J qC 
  
S -9`  :`}{x~xN      6~гx`   :s ,O (| @O J qC 
  J8 :1 V4 8b ~12  TT 8 :1 V* 8aJ ~12   
 O O J O K܁O J |
 @8 :1 V* 8aJ ~12  J $
 O $Kr   U qC 
  J 1|
 @ 08 :1 V* 8aJ ~12  J $
 O $KH8 :1 V* 8aJ ~12  Jj 8 :1 V4 8b ~12  TO T  K9R O KO qC 
  J8 :1 V4 8b ~12  TO  T   K    =?%    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  ;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?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 06:29:10 AM [+0]
  	        on voltaire
  	        using SBCL version 0.8.14.28
   PPC3      (: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+,;   
*                    ::      
S 9`  : x}{x~xN       6~гx`   :ss , @ lX  +| @ l3 |
 A $j 3, @ DJ /J 3 |
 @ 0S 
~Xxo  O }{x|ox; }SSxN  S  
NS  
/N    =?-$LFUNCTION    /8 ?>0   #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$$#m  $$#  (B$'(#  #  $ #0  1
C$,#Q&VCS-TREERDIS-VCS-DIRECTORY$$$d(F$'($$$$0#0  1
G(H1IJ;	0  *                    ::       O qC , A (~Xxo  O }{x|ox; }SSxN  O J  +| @ 
|
 @x S 9`  : }{x~xN   86~гx`   :s S 9`  :}{x~xN   D6~гx`   :ss   XqC , @jpc , @~x:  }YSx|x~[x D S 9`  :}{x|#xN       d6~гx`   :sp| A ; KЃ S 9`  :}{x~xN       v6~гx`   :s(S 9`  :}{x~xN   6~гx`   :ss   XqC , @ jpc , A LqC , @ jpc , A 0|
 A (qC , @ j, >A qC , B@ @ !}YSx|x~[x|
xO ~JxO S 9`     N  % 
NqC , @ jpc , A\|
 ATqC , @ j, >A<qC , BA0 ) 
Nj 3, @@J /J 
 
|
 ApK(O  
 
/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\];   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?^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$$#m  $$#.  (h$'(#  #  $$#   1
i$0#DIS-CVS-MANAGED$$$d(k$'($$$$4#   1
l(m1no;   
*                    ::  x /     
3 S 9`  : }{x~xN       "6~гx`   :sx/ S 9`  : }{x~xN       06~гx`   :s@S 9`     N     =?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{;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?|v.    }8 ?>~   #   `a7~c<d<e<&DEFUN IS-SVN-MANAGED#& XEP for VCS-TREE::IS-SVN-MANAGEDA$$#m  $$#.  ($'(#  #  $$#   1
$0#DIS-SVN-MANAGED$$$d($'($$$$4#   1
(1;   
*                    ::  x /     
3 S 9`  : }{x~xN       "6~гx`   :sx/ S 9`  : }{x~xN       06~гx`   :s@S 9`     N     =?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;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    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$$#m  $$#  ($'(#  #  $ #
  1
$,#$$$d($'($$$$0#
  1
#8  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))A$$#m  $$#  ($'(#  #  #X  #
  1
#d  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$d($'($$$#h  #
  1
#x	  #A$$#m  $$#  ($'(#  #  #	  #
  1
#	  #$$$d($'($$$#	  #
  1
(1;
  *                    :: @     O qC , A ,~Jx}XSxo  O }{x|ox; }SSxN  O 
S 
9`  : }{x~xN   <6~гx`   :s| @O  r , @@  S 9`  :H}{x~xN       R6~гx`   :s 
x~x:  ~x~Zx|xD   D S !9`  :}{x|#xN   j6~гx`   :sX| @hO  r , @  S 9`  : }{x~xN       6~гx`   :s  
x~x:  )~x~Zx|xD  % D S !9`  :`}{x|#xN   6~гx`   :s| @<~Jx J O O J }TSxr   ~xJO ~JxO H  x  O qC 
  
S 
9`  :}{x~xN       6~гx`   :s  | A r   ~xJO | @ S -9`  :`}{x~xN       6~гx`   :sx| AO |
 @~Xx8 :1 V5 8b ~x
J ~12  ~xO ~x H  ȑO O JO  1S 9`  :}{x~xN   6~гx`   :sx U9` ; :0}{x~xN  6~гx`   :s8 :1 V5 8b ~x
J ~12  ~x | A       r   | @(O J }TSx~UxH  | A D~x r   ~x| @}XSxS 59`     N | A   KT K~Jx 9 
N~Xx8 :1 V5 8b ~x
J ~12  ~xO ~x H  ȑO  O JO  1S 9`  :}{x~xN  h6~гx`   :s`x U9` ; :}{x~xN  v6~гx`   :s(8 :1 V5 8b ~x
J ~12  ~x  | A        r   | @(O J }TSx~UxH  | A ~x r   ~x| @}XSxS 59`  :}{x~xN      6~гx`   :sP8 :1 V* 8aJ ~12  / *
 K| A   KtT Kl~Jx 9 
NO KO |
 @ 48 :1 V* 8aJ ~12   
 
 O K  O 
/ O S =9`  :}{x~xN  6~гx`   :sp  | @lKO J8 :1 V4 8b ~12  TS AT ~xKr , @ (t, A , @, A , @āS E 
NO J8 :1 V4 8b ~12  TS IT ~xK(r , @ (t, A , @, A , @S E 
N &*                    :W: @     O qC 
  JqC , A (~Xxo  O }{x|ox; }SSxN    +| @ S M|P @ O 
S Q9`  :	P}{x~xN  T6~гx`   :sS U9`  :	}{x~xN  `6~гx`   :ss   KLt 3, @<T /J 
 M|
 AhK$ M 
/N v*                    :: @     O qC 
  JqC , A (~Xxo  O }{x|ox; }SSxN    +| @ S M|P @ O 
S Q9`  :
}{x~xN  6~гx`   :spS U9`  :
}{x~xN  6~гx`   :s@s   KLt 3, @<T /J 
 M|
 AhK$ M 
/N=?M.NORx	  M8  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;   
*                    ::      3 
S ~[xS 9`  : }{x~xN    6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?.    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$$#m  $$#  $$#.  $$#N  ($'(#  #  $ #@
  1
$4#$$$d$$#$  $$#D  ($'($$$$8#@
  1
#,  #&%XEP for #'(LAMBDA (#:G196) (LET # #))A$$#m  $$#  ($'(#  #  #X  #@
  1
#l  #&#'(LAMBDA (#:G196) (LET # #))$$$d($'($$$#p  #@
  1
#  #&%XEP for #'(LAMBDA (#:G192) (LET # #))A$$#m  $$#  ($'(#  #  #  #@
  1
#  #&#'(LAMBDA (#:G192) (LET # #))$$$d($'($$$#  #@
  1
(1;&@
  **                    :G:   / $O (   O ( 
|
 @~x:  3 S ~[xS D S !D S %9`  :8}{x|#xN   N6~гx`   :sȃ/ $S )9`  :p}{x~xN       \6~гx`   :sS -9`  :}{x~xN   h6~гx`   :s`  S 19`  :}{x~xN   v6~гx`   :s(S 59`  :}{x~xN   6~гx`   :ss   X (3 
| @( 93 =}ZSxs AS E9`  :h}{x~xN   6~гx`   :sxO ( 
|
 @T}sxo pR	|9xO l h/ d~xo t8 HR!D   d 9SPD 8 :1 b* 8`:j~12  O xO qC , @  I8 :1 V* 9aJ 8`.j~12  
 x
  ~Xx}YSxO S M9`  :`}{x~xN   6~гx`   :s~Xx~x:   8 O x8`  jH |O qC , @ (j, A , @L, A , @<O  Q 
NO ( U|
 @\}sxo R	|9xO  / |~xo 8 ,R!D   d 9SD 8 :1 b* 8`:j~12  O O qC , @  Y8 :1 V* 9aJ 8`.j~12  
 
  ~Xx}YSxO S M9`  :}{x~xN  06~гx`   :s@O 8`  j S ]9`     N O qC , @ (j, A , @D, A , @4O  Q 
N~Xx~x:   8 H  (3 U| @ P 93 a}ZSxs eS E9`  :}{x~xN      h6~гx`   :s`xK~TxKO ( U|
 @ `~x:  3 iS ~[xS D S mD S %9`  :}{x|#xN  6~гx`   :sK ~x: $ q3 S us yO (D S }D S D S D S D  S 9` $ :}{x|#xN      6~гx`   :sp 6 O  / |R	!xo |p A (N,
  A 9|p @O 8`  j; ~x:   8   O ,   @ }{x|;x; }SSxN  |;x}WSx|+x|3xH       6 t,  8  A 8e}V0.8 |X }C1.@~2O l h/ dR	!xo p|p A (N,
  A 9|p @O x8`  jK<     *                    :: U    O      S 9`  :@}{x~xN      6~гx`   :s
xqC , @ jpc , @ ~x:  }YSx|x~[x D S 9`  :}{x|#xN  ,6~гx`   :sP| @ (~Xxo  O }{x|ox; }SSxN  O 
:  9`  H  qC , @ jpc , AXqC , BAL|
 ADqC , @ j, >A,  
N V*                    :: U    O      S 9`  :	}{x~xN      p6~гx`   :s@
xqC , @ jpc , @ ~x:  }YSx|x~[x D S 9`  :
0}{x|#xN  6~гx`   :s| A $; ~x:   9` O 
H  ~Xxo  O }{x|ox; }SSxN  qC , @ jpc , ALqC , BA@|
 A8qC , @ j, >A   
N    QNBARQUNWINDR	  QNBARQUNWINDRT  QNBARQRETURN-MULTIPLER  =?
G192.NOLNULLR  
G1960  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    ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .    	  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$$#m  $$#  $$#.  $$#N  (&  $'(#  #  $ #  1
'  $4#DPROCESS-VCS-DIRECTORY$$$d$$#   $$#   ()  $'($$$$8#  1
*  #L  #&FLET VCS-TREE::PROCESS+  $$$d$$#$  (,  $'($$$#P  #  1
-  (.  1/  0  ;(  ,*                    :?: @  / O     S 
9`  :}{x~xN       D6~гx`   :s| @ ă S 9`  :P}{x~xN       T6~гx`   :s| A S O $  O H  S 
, JA3 O S !9`  :}{x~xN   n6~гx`   :sH;  S %9`     N S )O $  O O S -|P @~Xx3 1O $S !9`  :8}{x~xN   6~гx`   :sȓ  S 59`  :p}{x~xN   6~гx`   :sx~Xx3 9o S !9`  :}{x~xN   6~гx`   :sP  S 59`  :}{x~xN   6~гx`   :sx; 3 =O S !9`  :(}{x~xN   6~гx`   :s~x:  3 AO s E9R D S I9`  :x}{x|#xN   6~гxH  ~Yx~Zx:s
xO / O ;   Xx:H    6~гx`   :sPO O | A ,; 3 M}ZSxS !9`     N ; 3 Q}[SxS !9`     N S U|P @ H~Xx3 YO $S !9`  :X}{x~xN  6~гx`   :s KS ]|P @r , @T S a
 | A  eS i9`  :}{x~xN      26~гx`   :s8 
x~x:  m~x~Zx|xD   D S q9`  :(}{x|#xN  J6~гx`   :s| A s   X ~Xx3 uS !9`  :x}{x~xN  ^6~гx`   :sx~Xx3 yO $S !9`  :}{x~xN  n6~гx`   :sH Ks }Kr , @ (t, A , @, A , @S  
N~x: $ 3 S s  S D S D S D S D  S 9` $ :x}{x|#xN      6~гx`   :s 
N    
N   QNBARQ&SB-VM	2  	GENERIC-=R  =?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=  >  ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =??  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  ;   *                    ::      
X,
 J@ x3 ~x:  
;R ~[xD S 9`  : }{x|#xN       &6~гx`   :sh~Xxo  O }{x|ox; }SSxN  ~YxK    =?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$$#m  $$#  (S  $'(#  #  #   #  1
T  #   #&&MORE processingU  NOPTIONAL$$#  $$#N  $$#   (W  $'(#  #  #   #  1
X  #   #&!varargs entry for VCS-TREE::USAGEY  $DMSG$d$DMSG-ARGS#   (\  $
OPTIONAL-ARGS$ REST-ARG$(_  ($$$#   #  1
`  #|  #&&OPTIONAL processor #:G311a  V  $$#N  (b  $'(#  #  #|  #  1
c  #  #&&OPTIONAL processor #:G316d  V  ( e  $'(#  #  #  #  1
f  (	g  1h  i  ;
  *                    ::  ~x4@ X~"4@ $~x|Z84  8  A4A $4#  A 4C A 4c ,  @ H 8}DP}CSx,  ~TxA L8:1 V4 8b ~xT<~1RH  8 C  8c 4EAE ~12       S 
, JAS J, JA3 S 9`  :x}{x~xN   ^6~гx`   :sO |
 @S 
, JAH3 S 9`  :}{x~xN   r6~гx`   :s8S 
, JA3 !S 9`  :}{x~xN       6~гx`   :sS 
, JAԃ3 %S 9`  :X}{x~xN       6~гx`   :sS 
, JA3 )S 9`     N S  | AtS 
, JAp~x:   8`  ~x:   8 O qC 
  ~x|
 A (J : qC , A 
N   |PU}fP  & F f ; :X}{x|3xN       6~гx`   :sS 
*, JA ; 
BS -9`  :}{x~xN       6~гx`   :s`K(O ~JxO   Kl~JxK 
N    
N    
N    
N    
N    
N    
N    
N    
N   =?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  ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?y  s  .    z  8 ?>{  #   &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$$#m  $$#  (  $	'(#  #  $ #   1
  $,#DPARSE-ACTION-ARG$,#  $d(  $	'($$$$0#   1
  (  1    ;   *                    ::   x   r , @ltpc , @\ ~x: ~x3 
|x~[x D S 9`  : }{x|#xN   46~гx`   :s0 | A ( o  O }{x|ox; }SSxN   ~x3 S 9`  :@}{x~xN       P6~гx`   :s ,  @  !K, A t, @  %Kx  )~xS -9`  :}{x~xN   j6~гx`   :sX ;  S 19`     N  Kr , @ tpc , A| Ar , @ t, >Apr , BAdS 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    ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .      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$$#m  $$#  (  $
'(#  #  $ #`  1
  $X#&%hairy arg processor for VCS-TREE:MAIN  $DARGV$d(  $
]  $ (  ($$$$\#`  1
  #  #&&OPTIONAL processor #:G354  V  (   $
'($$$#   #|  1
  (  1    ;|  *                    ::  ,  @   ~xH , @    ~xH   
m   O O qC 
   
X9 NO 
 3 S 9`  : }{x~xN       @6~гxH  ~Yx~Zx:s  / | A S 9`   :H}{x~xN   R6~гx`   :s;  S 9`  :}{x~xN       `6~гx`   :sO qC 
  
S !9`  :}{x~xN       r6~гx`   :s8
xO | AāS %9`   :}{x~xN   6~гx`   :sS )9`  :8}{x~xN   6~гx`   :sȁS -9`  :h}{x~xN   6~гx`   :sS 19`  :}{x~xN   6~гx`   :shxH  P  / O S 59`  :}{x~xN       6~гx`   :s r   ~x|
 @|xS 9`  :8}{x~xN   6H l`   :s: 89` N9  O ,   @ }{x|3x; }SSxN  |3x}WSx|+xH  O * 9S 9`  :}{x~xN       6~гx`   :s(;  S 9`  :}{x~xN      6~гx`   :sKȃ 9` }{x~x:HN      6~гx`   :s, A4KȑO S =9`   :}{x~xN  "6~гx`   :sx O K     :sȓ  6 V v ~ųxKQNBARQ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    ;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?    .      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 06:29:11 AM [+0]
  	        on voltaire
  	        using SBCL version 0.8.14.28
   PPC3      (: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*+;   
*                    ::      
S 9`  : x}{x~xN       6~гx`   :ss , @ lX  +| @ l3 |
 A $j 3, @ DJ /J 3 |
 @ 0S 
~Xxo  O }{x|ox; }SSxN  S  
NS  
/N    =?,#LFUNCTION    .8 ?>/   #L  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$$#m  (=$&'#  #  $ #  1
>$("Q&COMMON-LISP-USERR?RUN( A$&'$$$$,#  1
B#`  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)C<$$$d$$#   (D$&'$$$#  #L  1
E#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)F$$#  (G$&'#N  #   #  #L  1
H(I1JK;L  *                    :: `     ~Xx8 :1 b* 8`:j~12  
O (}sxo 8R	|9xO 4 0/ ,~xo <8 R!D   d 9SxD 8 :1 b* 8`:j~12  O @ 
8 :1 V* 9aJ 8`.j~12  
 @
  (
 8 :1 V4 8b ~12   T ~x8 :1 V5 8b ~x
J ~12  S , JA8 :1 V6 8b ~12    X9 N9R 4, JAlr   4  8 :1 V5 8b ~x
* ~12  ~xS 9`  :0}{x~xN   6H `   :s: 89` N9O @8`  jH        6 <O 4 0/ ,R	!xo 8|p A (N,
  A 9|p @O (JS !
, JA3 %S )9`  : }{x~xN   6~гx`   :s  -;  S 19`  :8}{x~xN   6H 4`   :s: 89` O @8`  j  O ,   @ }{x|3x; }SSxN  |3x}WSx|+xH    *                    :O: `U  o     o  }{x~x: ` }VSx|fx|#x9SH       6~гx`   :s:  9`  H       
N    
N   :sГ  6 V v ~ųxK 
N   :sȓ  6 V v ~ųxKQNBARQUNWINDR  QNBARQRETURN-MULTIPLER\  =?PFQ&SB-IMPLRQTEMPS-TU`  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_`;   *                    ::      3 
~Zx~[xS 9`  : x}{x~xN   6~гx`   :s~Xxo  O }{x|ox; }SSxN      =?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   @