#!/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 Friday, November 5, 2004 07:36:18 AM [+0]
  	        on adare
  	        using SBCL version 0.8.16
   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"5 N$ +     %O1PQRE      R=      R,      ?>S   @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp"
  	        at Friday, November 5, 2004 07:36:18 AM [+0]
  	        on adare
  	        using SBCL version 0.8.16
   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$$#   (?$'($$$$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 8x~Yx}ZSxS 9`  :}{x~xN       h6~гx`   :s`
x |
 A t8 :1 V8 8c ~12  XO X   <~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 <|#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 | @ $~Xx|+xO }{x|ox;N Y3 %  S )9`  :}{x~xN   6~гx`   :sH  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$$#N  (q$'(#n  $m$4$h1
r(s1tu;t   *                    ::  x :x~óx~xS 
, JA (YxS 9`  |vxwx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 #) ...)$$#   $`($'($$$$0#  1
(1;
  *                    ::        s    ;  ;@ 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 V: 8cZ Jx
J ~12  O 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  $$#n  ($'(#  #  $$#   1
$(#=MKLIST$$#n  ($'(#  #  $(#   1
(1;   *                    ::  x sc , A Hxx8 :1 V: 8cZ Jx
J ~12  Xx}{x~ϳx; ~xN  xxK=?=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
$,#$$#  ($'($$$$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~Yx ~Xx8 :1 V: 8cZ Jx
J ~12  JxO [xH  O J}YSxO J qC 
  O 8xo / S )9`  :}{x~xN   x6~гx`   :s / o | A |tx $8xS 
9`  :0}{x~xN       6~гx`   :sЂ $8 :1 V: 8cZ Jx
J ~12  [x| AT O |
 @O   $r , @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 V: 8cZ Jx
J ~12  Xxo  O }{x|ox; }SSxN   9/ S =9`  :}{x~xN       6~гx`   :s(~Xx8 :1 V: 8cZ Jx
J ~12  JxO Jx~xH  }TSx o S A9`  :X}{x~xN      6~гx`   :s o 8 :1 V: 8cZ Jx
J ~12  Jx| A XT { sc   xx| @hO 
 8 :1 V* 8aJ ~12  / *
 }XSxK~Jx E 
N I~xS =9`  :0}{x~xN  L6~гx`   :sr , @ (t, A , @@, A , @0S 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 ?>  #H  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  $$#  (  $'(#  #  $ #H  1
  $,#$$#D  (  $'($$$$0#H  1
  #  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#  (  $'+   n  #N  #   #  #H  1
  (  1    ;H  *                    :: @  (    (S 
9`  : }{x~xN       *6~гx`   :sX $ $S 9`  : }{x~xN   86~гx`   :s }{x~x: @|+x9SH d  B6o  $S 9`  :8}{x~xN       N6~гx`   :s}{x~x: @|+x9S`H   X6O |
 @O |
 @X| @$~Zx| @ ( $o  O }{x|ox; }SSxN   $O S 9`  :}{x~xN       x6~гx`   :s O }{xO ~x: @|+x9SH \  6O xxYxS 9`  :@}{x~xN   6~гx`   :sx !S %~[xS )O ~JxO S -O ~JxO S 1O  S 59` (    N xx8 :1 V: 8cZ Jx
J ~12  K 8 :1 V: 8cZ Jx
J ~12  K| Ap 9/ S =S A9`  :0}{x~xN   6~гx`   :s8 :1 V: 8cZ Jx
J ~12  K$3 E| A  x|#x}{x|ox;N ~[xK=?  .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  [  ;  *                    ::  x,  @ H t, @   ~xH   
m   O | @ ē/ S 
9`   : }{x~xN   ,6~гx`   :sP/ 
xqC , @ Xjpc , @ H}XSx/ S 9`  :}{x~xN       D6~гx`   :s/ 
x}XSxo  O }{x|ox; }SSxN  s# , A s# , @ ypc , A |s# , @ PY 
 +| @ P |
 @ S *8xKj 3, @ J /J 
 |
 AԁS  
.NS  
/.N8xS 9`  :}{x~xN   6~гx`   :sxKPY 
 +| @  !|
 @8x/ S %9`  :p}{x~xN       6~гx`   :s/ 8xS %9`  :}{x~xN   6~гx`   :sXxKS ! 
/.N~x~Yx  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  $$#N  (p  $'(#  #  $$#   1
q  $P#&&hairy arg processor for VCS-TREE::QUITr  $=CODE#N  (t  $R  $ (u  (#n  #   $T#   1
v  #   #&&OPTIONAL processor #:G106w  V  ( x  $'(#  #   #   #   1
y  (z  1{  |  ;   *                    ::  x,  @ ~ĳxH  , @ ~ĳxH   
m   ~xsC A sC , @ 4z, "A (Yx 
S 9`  |#xwxN | @ |xK;  K|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~ųx, A 8gPH   
m   8~Jx~Yx~Vx~Xxp ,  @ H  ||#x8f  ;.8|#x8f  }[.8S 
|
 A PS |
 A DS |
 A 4}XSx8 :1 V: 8cZ Jx
J ~12  XxH  6x,  @| @    H  $| @X 
N    
   ~x:  3 S !s % S )D 9R D S -9`  :8}{x|#xN   6~гx`   :sȓ $~x:  13 S !s % S )D 9R D S -9`  :}{x|#xN   6~гx`   :sh   $S 59`  :}{x~xN   6~гx`   :s0x ~xO `}sxo R	|9xO  / |~xo 8 DR!D   d 9ShD 9O DR!  S 59`  :`}{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 V; 8c{ jx
9J J*J ~12  yx~x:   =S A~[xS ED  S ID  S M9`   :P}{x|#xN  6~гx`   :sx/ r!c  r!}{x~x:  d|#x9SH  $6/ r!c  r!}{x~x:  `|#x9SH ( 06/ s# , @ xY 
 +| @ x Q|
 @ <Y  $/  o  O }{x9` |ox: ~[x;}SSxN  j 3, @ J /J 
 Q|
 AS U 
.NS Q 
/.N Z6  }j[xO O  / |R	!xo |p A (N,
  A 
9|p @}{x~x:  `|#x9SH      x6  O }KSxH   ~6  }j[xO O p l/ hR	!xo t|p A (N,
  A 
9|p @}{x~x:  d|#x9SpH        6  O }KSxH  O   S Y9`  :}{x~xN  6~гx`   :sP  ~Xx|+xO }{x|ox;N O   S Y9`  :}{x~xN      6~гx`   :s  ~Xx|+xO }{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  "Ə   "5   $ +     eON
.  1                    ̞       ̕       ̉       |       h       [       >       2       $                                                     ̷        ̪        ̚        ̂        u        h        ]        H        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp"
  	        at Friday, November 5, 2004 07:36:18 AM [+0]
  	        on adare
  	        using SBCL version 0.8.16
   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$0#Q&VCS-TREER6IS-SHORT-OPTION$,#.  $d(8$'($$$$4#x  1
9(:1;<;  *                    ::  x /    8x9` }{x~x: pN       6~гx`   :s/ , A s# , @ ypc , @ ЁY8  |P@@ s# , @ y, @ T8c |( -@ |Y8 |P@@ s# , @ Py, @ 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$0#6IS-OPTION-TERMINATOR$,#.  $d(W$'($$$$4#x  1
X(Y1Z[;  *                    ::  x /    8x9` }{x~x: pN       6~гx`   :s/ , @ s# , @ ypc , @ ЁY8  |P@@ s# , @ y, @ T8c |( -@ |Y8 |P@@ s# , @ Py, @ 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$0#6IS-LONG-OPTION$,#.  $d(k$'($$$$4#  1
l(m1no;  *                    ::  x /    8x9` }{x~x: pN       6~гx`   :s/ , A (~Xxo  O }{x|ox; }SSxN  s# , @ypc , @Y8  |P@@s# , @ ܈y, @ T8c |( -@ Y8 |P@@ s# , @ y, @ |T8c |( -@ `Y8 |P@@ s# , @ 4y, @ (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|xD    S 9`  :}{x|#xN   F6~гxH  ~Yx:s耯 ;xo  $|+xzxS 9`  :h}{x~xN       Z6~гx`   :so  | A |yx;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 ?>   #x  7<j<NARG<z&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG3$$#m  $$#  ($'(#  #  $ #x  1
$,#6ANALYZE-ARG$$$d($'($$$$0#x  1
(1;x  *                    ::        S 
9`  : }{x~xN       "6~гx`   :sx| @  S 9`  : }{x~xN       26~гx`   :s8| @ S S |P @  YxO S 9`  : }{x~xN       H6~гxH  ~Yx:sO 
x;xXx}YSxzxo  O }{x9` |ox: ~[x;}SSxN  S !|P Ap / ~ZxKS !KLS KD    =??.@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 V: 8cZ Jx
J ~12  WxJxo H  T}VSx[qC 
  
8 :1 V: 8cZ Jx
J ~12  Jx| A ؓV { sc   xx| @7  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$$#   $$#   ($'($$$$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 V8 8c ~12  XO  X   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 V8 8c ~12  XO  X   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$$#$  $$#  (   $	'($$$$4#  1
!  ("  1#  $  ;  *                    :: @  $/     O $O ~JxO ~JxO ~JxO ~JxO H LO |
 @0O qC 
  
S 
9`  : }{x~xN   86~гx`   :s | @؁O  (O 
/  S 9`  :0}{x~xN   L6~гxH  ~Yx~Zx~[x:sЂ (x ,O 0| @pS |
 @,~xS 9`  :}{x~xN       f6~гx`   :sh8 :1 V* 8aJ ~12  
 
 O O qC 
  J O O |
 @ S 9`  :}{x~xN   6~гx`   :s  S 9`  :P}{x~xN   6~гx`   :sx O o  O }{x9` |ox: ~[x;}SSxN  S !|
 A8 :1 V* 8aJ ~12   
 O K| @Pr   ~xX qC 
  J %|P AO J qC 
  
S )9`  :@}{x~xN   6~гx`   :sO 0 ,| A U qC 
  J %|P A tU qC 
  J qC 
  
8 :1 V* 8aJ ~12  J
 8 :1 V8 8c ~12  XO X  K8 :1 V* 8aJ ~12  J 
 O KO J qC 
  
S -9`  :X}{x~xN      6~гx`   :sO 0 ,| @O J qC 
  
8 :1 V* 8aJ ~12  J
 8 :1 V8 8c ~12  XO X  O J O KO J |
 @8 :1 V* 8aJ ~12  J 
 O Kr   ~xX qC 
  J 1|
 @ 08 :1 V* 8aJ ~12  J 
 O KT8 :1 V* 8aJ ~12  Jj 8 :1 V8 8c ~12  XO X  K9R O KO qC 
  
8 :1 V* 8aJ ~12  
 
 O 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  "Ə :  "5 ;  $ +
     iG
p<  1=  >  ?  2     ?  $     ?       ?  	     ?        ?        ?        ?        ?        ?  ̷      ?  ̪      ?  ̓      ?  w      ?  o      ?  c      ?  [      ?  O      ?  <      ?  ,      ?>@  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/main.lisp"
  	        at Friday, November 5, 2004 07:36:19 AM [+0]
  	        on adare
  	        using SBCL version 0.8.16
   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
$,#$$#  ($'($$$$0#
  1
#   #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))A$$#m  $$#  ($'(#  #  #@  #
  1
#L  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$d($'($$$#P  #
  1
#`	  #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  * / s# , @$ S 9`  :H}{x~xN       R6~гx`   :s/ 
x~x:  ~Zx|xD   D S !9`  :}{x|#xN       j6~гx`   :sX| @TO  * / s# , @ S 9`  : }{x~xN       6~гx`   :s / 
x~x:  )~Zx|xD  % D S !9`  :`}{x|#xN       6~гx`   :s| @,~Jx
 J O O  j sc   jxJO ~JxO H  xO qC 
  
o S 
9`  :}{x~xN   6~гx`   :so | A[ }[Sxsc   jxJO | @ S -9`  :X}{x~xN   6~гx`   :sx| AO |
 @~Xx8 :1 V: 8cZ Jx
J ~12  JxO Jxo H  ȑO O JO  1S 9`  :}{x~xN   6~гx`   :sx U9` ; :(}{x~xN  
6~гx`   :s8 :1 V: 8cZ Jx
J ~12  Jx | A  X     s   | @(O 
 
x~YxH  J| A @}YSxJ qC 
  }ZSx| @؁S 59`     N | A J Y K
 K~Jx 9 
N~Xx8 :1 V: 8cZ Jx
J ~12  JxO Jxo H  ̑O O JO  1S 9`  :}{x~xN      f6~гx`   :shx U9` ; :}{x~xN  t6~гx`   :s08 :1 V: 8cZ Jx
J ~12  Jx | A  X     s   | @$O 
 
x~YxH  J| A |}YSxJ qC 
  }ZSx| @؁S 59`  :}{x~xN  6~гx`   :s`8 :1 V* 8aJ ~12  / *
 K| A J Y K|
 Kt~Jx 9 
NO KO |
 @ 48 :1 V* 8aJ ~12   
 
 O KāO 
/ O o S =9`  :}{x~xN  6~гx`   :so | @tKO  
8 :1 V* 8aJ ~12  
 A
 Ks# , @ (y, A , @, A , @܁S E 
.NO  
8 :1 V* 8aJ ~12  
 I
 K@s# , @ (y, A , @, A , @S E 
.N  *                    :o: @      s   s , A (~Xxo  O }{x|ox; }SSxN  X * +| @  M|
 @ O 
S Q9`  :	8}{x~xN  N6~гx`   :sȁS U9`  :	h}{x~xN  Z6~гx`   :ss   KLj 3, @<J /J 
 M|
 AhK$S M 
/N p*                    :/: @      s   s , A (~Xxo  O }{x|ox; }SSxN  X * +| @  M|
 @ O 
S Q9`  :
x}{x~xN  6~гx`   :sS U9`  :
}{x~xN  6~гx`   :sXs   KLj 3, @<J /J 
 M|
 AhK$S M 
/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;   
*                    ::      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 # #))$$#   ($'($$$#p  #@
  1
#  #&%XEP for #'(LAMBDA (#:G192) (LET # #))A$$#m  $$#  ($'(#  #  #  #@
  1
#  #&#'(LAMBDA (#:G192) (LET # #))$$#   ($'($$$#  #@
  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`   :sO $3 
|
 @X}sxo tR	|:xO p/ lO h~xo x8 LR!D   d 9SPD 8 :1 b* 8`:j~12  O |O qC , @ 3 I8 :1 V* 9aJ 8`.j~12  */ |* 
 ~Xx}YSxO S M9`  :`}{x~xN       6~гx`   :s~Xx~x:   8 O |8`  jH |O qC , @ (j, A , @H, A , @8O  Q 
NO $3 U|
 @\}sxo R	|:xO / O ~xo 8 0R!D   d 9SD 8 :1 b* 8`:j~12  O O qC , @ 3 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| @ L 93 a}ZSxs eS E9`  :}{x~xN      h6~гx`   :s`K~XxKO $ U|
 @ d~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 x,  8  A 8e}V0.8 |X }C1.@~2O p l/ hR	!xo t|p A (N,
  A 
9|p @O |8`  jK<     *                    :: U 5   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 5   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
*  #\  #&FLET VCS-TREE::PROCESS+  $$#$  $$#D  (,  $'($$$#`  #  1
-  (.  1/  0  ;(   ,*                    :?: @  / O     S 
9`  :}{x~xN       D6~гx`   :s| @ ̃ S 9`  :P}{x~xN       T6~гx`   :s| A $O O $S O (/  O H  S 
, JA3 O S !9`  :}{x~xN   p6~гx`   :s@;  S %9`     N O O $S )O (/  O O S -|P @~Xx3 1O (S !9`  :H}{x~xN   6~гx`   :s  $S 59`  :}{x~xN   6~гx`   :sx~Xx3 9o S !9`  :}{x~xN   6~гx`   :s@  $S 59`  :}{x~xN   6~гx`   :sx; 3 =O S !9`  :8}{x~xN   6~гx`   :s~x:  3 AO $s E9R D S I9`  :}{x|#xN   6~гxH  ~Yx~Zx:sx
xO / O ;   Xx:H    6~гx`   :s@O O | A ,; 3 M}ZSxS !9`     N ; 3 Q}[SxS !9`     N S U|P @ H~Xx3 YO (S !9`  :h}{x~xN  6~гx`   :s KS ]|P @s# , @TS a
 | A   e/ S i9`  :}{x~xN      66~гx`   :s(/ 
x~x:  m~Zx|xD   D S q9`  :8}{x|#xN      N6~гx`   :s| A s   X ~Xx3 uS !9`  :}{x~xN  b6~гx`   :sxx~Xx3 yO (S !9`  :}{x~xN  r6~гx`   :s8 Ks }Ks# , @ (y, A , @, A , @S  
.N~x: $ 3 S s  S D S D S D S D  S 9` $ :}{x|#xN      6~гx`   :sx 
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,  ~YxA L8:1 V9 8c9 %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}dP  $ D d ; :X}{x|#x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
  $0#DPARSE-ACTION-ARG$,#  $d(  $	'($$$$4#  1
  (  1    ;  *                    ::   x    r , @`tpc , @P~x: ~x3 
|x~[x D S 9`  : }{x|#xN   46~гx`   :s0 | A ( o  O }{x|ox; }SSxN  ~x3 S 9`  :8}{x~xN   N6~гx`   :sȂ ,  @  !K, A t, @  %K )~xS -9`  :}{x~xN       h6~гx`   :s` ;  S 19`     N  Kr , @ tpc , A| Ar , @ t, >A|r , BApS 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#   (  $
]  $ (  ($$$$\#`  1
  #  #&&OPTIONAL processor #:G354  V  (   $
'($$$#   #|  1
  (  1    ;|  *                    ::  ,  @   ~xH , @    ~xH   
m   O O qC 
  
3 
Y9 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`   :s s   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 o S 59`  :}{x~xN       6~гx`   :so sc   jx|
 @|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  "Ə   "5   $ +     1f  1      ̿       ̯       ̕       ̋       x       i       H       >       0                      ̿        ̰        ̐        ̈        {        o        ]        J        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/loader.lisp"
  	        at Friday, November 5, 2004 07:36:19 AM [+0]
  	        on adare
  	        using SBCL version 0.8.16
   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 ?>/   #D  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$&'$$$#  #D  1
E#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)F$$#  (G$&'#N  #   #  #D  1
H(I1JK;D  *                    :: `     ~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 V8 8c ~12  3 8X 8 :1 V: 8cZ Jx
J ~12  S *, JA8 :1 V8 8c ~12  X8 3 Y9 N.9R 4
, JAhs   8  8 :1 V; 8c{ jx
* ~12  xxS 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 ,`   :s: 89` O @8`  j  O ,   @ }{x|3x; }SSxN  |3x}WSx|+xH    *                    :O: `5 U o     o  }{x~x: ` |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"5 i$ +     j1klm`      mK      m+      ?>n   @