#!/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:35:00 AM [+0]
  	        on escher
  	        using SBCL version 0.8.14.28
   ALPHA3      (: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+,; *
                      !  *!  j J
 .  ! p N#G
G @k6  	GG! D8 F   A+ bo@   W@  3 bb@  / B B W@
   7G  
 	G
G  Gk    
   0      
   /0  =?-$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<=; *
                      !@ *!  j JG0 )!
 .GGGG Π      $ ( ,  0 !  N#G
G @k    6,  	GGP!G  
 	G
G  Gk=?>8.    ?8 ?>@   #    VCS-TREE<#$%( A$'($&$$(#   1
B(C1DE; *
                      !  *!  j J
 .  ! p N#G
G @k6  	GG! D8 F   A+ bo@   W@  3 bb@  / B B W@
   7G  
 	G
G  Gk    
   0      
   /0  =?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:35:01 AM [+0]
  	        on escher
  	        using SBCL version 0.8.14.28
   ALPHA3      (: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+,; *
                      !  *!  j J
 .  ! p N#G
G @k6  	GG! D8 F   A+ bo@   W@  3 bb@  / B B W@
   7G  
 	G
G  Gk    
   0      
   /0  =?-$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$$#  $$$P(;$'(#P  #o  $$#  1
<$4#Q&VCS-TREER=READ-FILE-TO-STRINGS$$$f(?$'($&$$8#  1
@#  #&FLET #:CLEANUP-FUN-9ANCLEANUP( C$'+   pD$&#   #  #  1
E(F1GH;	*                      !` *!G! A   J  j J  *
 N n  !  N#G
G @k    6(  	GG`!G< j !4BF:" "  8  jGL 
	HKH D @ 
GP 
 J !/  " B ±.  " * !/   ! HN#G
G @k    6R  	GG! jG GGG  ! N#G
G @k    6d  	GGp! ꢰ7@  4BtF "  "   J< *G j  ! N#G
G @k    6~  	GG! *!  ! 0N#G
G @k    6  	GG! *8 !/  !!/GG` )!8 < G
GN 3     6   *  
 	G
G  Gk    6   * j 
H D @ 
	AKEL *,@  Ll @b,A,@GG` )!8 < 
G N      6   * j 
  "  &4J  "  & @h J@  GG J	G u@@
Gk  ʰdG% N)  ! N#G
G @k    6  	GG`!  ʠÁ   
      QNLDAHRQUNWINDR  QNLDARQUNWINDR  QN
BITS-63-48RQUNWINDR  QN
BITS-47-32RQUNWINDR  =?Q>=FILES.TLVALUESLLISTL	&OPTIONALXY    ?>[   #   Z>&?Opens a reads a file. Returns the contents as a list of strings[Q&SB-IMPLR\%DEFUN<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::READ-FILE-TO-STRINGS) (SB-INT:NAMED-LAMBDA VCS-TREE::READ-FILE-TO-STRINGS # ...) ...)^%( _$'($&$$(#   1
`(a1bc; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?d^.    e8 ?>f   #   =*WHITESPACE-CHARS*E E	E
E
g\%DEFVAR<#&Wtop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*WHITESPACE-CHARS*) (UNLESS # #) ...)i%( j$'($&$$(#   1
k(l1mn; *                      !  *!  j J
 7X)D   N
 . o GG  !  N#G
G @k6"  	GGx!G  
 	G
G  GkG=?oi.    p8 ?>q   #   fLSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACEr#&(XEP for VCS-TREE::STRING-TRIM-WHITESPACEs:$$#  $$$P(t$'(#P  #o  $$$h1
u$4#=STRING-TRIM-WHITESPACE$$$p(w$'(#   #   $8$x1
x(y1z{; *                      !  *!G! A  GGG
 .AXID  GG  ! GG @k   
         
   0 =?|v=STR~.TUL
SIMPLE-STRINGW    ?>   #   v]<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (SB-INT:NAMED-LAMBDA VCS-TREE::STRING-TRIM-WHITESPACE # ...) ...)%( $'($&$$(#   1
(1; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?.    8 ?>   #  PROPER-LIST-OF-LENGTH-P<=IT\
BACKQ-LIST<LIFLLETLDEFMACRO=AIF=TEST=THENW=ELSEARG-COUNT-ERROR<&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...):$$#  $$$P$`($'(#P  #o  $$#X  1
$4#&6#'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...)$$$f$`($'($&$$8#h  1
(1;
*                      !  *!G!A   J  j J * Dx F   ! _   
  !  N#G
G @k6*  	GGX!/@_    7 Dx Fv  A  7 Dx Fs   ! Dx Fr     7 Dx Fn   ! Dx Fm   !/@@    7 Dx Fh   ! Dx Fg   ! Dx Ff    .  ! N#G
G @k6d  	GGp!  ! N#G
G @k    6p  	GG@! * . N j   !  N#G
G @k6  	GG !G . J  !   j J @k   w! .% N)     -  ! xN#G
G @k    6  	GG!       
         
   0    
   0    
   0    
   0    
   0    
   0    
   0    
   0    
   0 =?
WHOLE28

ENVIRONMENT29.L*    ?>   #   &DEFMACRO VCS-TREE::AIF	%DEFMACRO<#&Gtop level form (SB-C::%DEFMACRO (QUOTE VCS-TREE::AIF) (FUNCTION #) ...)%( $'($&$$(#   1
(1; *
                      !  *!  j J .
 N nG   !  N#G
G @k6   	GG!G  
 	G
G  Gk=?.    8 ?>   #  =FLATTEN<LAPPEND<&
DEFUN FLATTEN#&XEP for VCS-TREE::FLATTEN:$$#  $$$P($'(#P  #o  $$#  1
$4#$$$f($'($&$$8#  1
(1;*                      !  *!G! AY   J  j J ꢰB  Fx F   *  
 	G
G  Gk 7 Dx F#   7
  !  N#G
G @k62  	GG8! *  7
  !  N#G
G @k6@  	GG !G *  !   j J @k 74BtFG"  "     7
  ! N#G
G @k    6`  	GG!G *  !   j J @k   
      =?=LIS.TUW    ?>   #   ]<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...)%( $'($&$$(#   1
(1; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?.    8 ?>   #   &DEFUN MKLIST#&XEP for VCS-TREE::MKLIST:$$#  $$$P($'(#P  #o  $$#   1
$0#=MKLIST$$#   ($'(#P  #o  $0#   1
(1; *                      !  *!G! A  GDx F  G4BtFG" G "  	G
G  GkG       
      =?=OBJY    ?>   #   &Make into list if atom]<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)%( $'($&$$(#   1
(1; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?.    8 ?>   #  =CANONICALIZE-DIRECTORY-NAME<NNAMENWILDNTYPENDEFAULTSL
MAKE-PATHNAME<L	DIRECTORY<=PROBE-DIRECTORY<LIDENTITY<LEQL<%FIND-POSITION<&root not directory ~ALERROR<=DIRECTORY-TREE<LCONS&~ALSEQUENCE&DEFUN DIRECTORY-TREE#& XEP for VCS-TREE::DIRECTORY-TREE:$$#  $$$P($'(#P  #o  $$#  1
$4#$$$f($'($&$$8#  1
(1;*                      !@ *!G! A+  J  j J *
  !  N#G
G @k6,  	GGP!G ʰ . N n  !  !  N#G
G @k6>  	GG!%  ! (N#G
G @k    6J  	GG!G *G4BtFG"  "   5 $  w  j  7 Dx F   *G)  ! N#G
G @k6l  	GGP!$   j/@  G G
  ! N#G
G @k6~  	GG! 4BtFG" G "  G@   % ꢰB  Dx F   - . @  1 . A  
G )!GGGGG 
5  ! N#G
G @k    6  	GG@! ꠰/@p  @-   *)  ! N#G
G @k    6  	GG!/@   *4BtFG" G "    
 	G
G  Gk9 . J=  ! N#G
G @k    6  	GGx!G4BtFG"  "   GG  G ʰ%A  ! N#G
G @k    6  	GG!  ʠ4BtFG"  "  G@    Dx FF  GO@  74BtF "    "GGE    
   I .G=  ! N#G
G @k60 	GG@!D F
  F0UB  0
BZ0B  0BVM    
     GE    
      
         
   0    
   0    
   0    
    =?=FILENAMEY    ?>  #      &>Returns a tree of pathnames for sub-directories of a directory  ]<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::DIRECTORY-TREE # ...) ...)  %(   $'($&$$(#   1
  (  1    ; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?    .    	  8 ?>
  #@  LPATHNAME<L
PATHNAME-NAME<L
PATHNAME-TYPE<LPATHNAME-DIRECTORY<<N	DIRECTORYNVERSION<LSTRING&.  LCONCATENATE<N
UNSPECIFIC&!DEFUN CANONICALIZE-DIRECTORY-NAME  #&-XEP for VCS-TREE::CANONICALIZE-DIRECTORY-NAME  :$$#  $$$P(  $'(#P  #o  $$#0  1
  $4#$$$f(  $'($&$$8#@  1
  #  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#   (  $'+     $P$/#  #@  1
  (  1     ;@*                      !@ *!G! A   J  j J *
  !  N#G
G @k6*  	GGX! * *  !  N#G
G @k    68  	GG !GG@ )!GG
GN  6D    *  ! 8N#G
G @k6N  	GG!GG@ )!GG
GhN { 6Z   ꢰB]   ꢰBP  @D  G@   *  
 	G
G  Gk ʰ *  ! N#G
G @k    6x  	GG !GGG@ )!
GN R     6   ʠGG  ! @N#G
G @k    6  	GG!G! .% nG) G-   1    $ 5 ( !   j J @kG4BtFG" G "   *4BtFG" G "  ð@9 . J= nA  !  N#G
G @k    6  	GG!4BtFG" G "  E @  G	G u@@
GkG       
      =?!  .TU
  W"  #      ?>%  #   $  ]<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (SB-INT:NAMED-LAMBDA VCS-TREE::CANONICALIZE-DIRECTORY-NAME # ...) ...)%  %( &  $'($&$$(#   1
'  ((  1)  *  ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?+  %  .    ,  8 ?>-  #  <L
NAMESTRING<Q&SB-UNIXR	.  UNIX-FILE-KIND<  &DEFUN PROBE-DIRECTORY0  #&!XEP for VCS-TREE::PROBE-DIRECTORY1  :$$#  $$$P(2  $	'(#P  #o  $$#   1
3  $4#$$$f(4  $	'($&$$8#  1
5  (6  17  8  ;*
                      !  *!G! A5   J  j J *
  !  N#G
G @k6   	GG!  !  N#G
G @k    6,  	GGP!  !  N#G
G @k    68  	GG ! B   /   
 	G
G  GkG       
      =?9  .TULMEMBER;  W<  =      ?>?  #   >  ]<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROBE-DIRECTORY # ...) ...)?  %( @  $	'($&$$(#   1
A  (B  1C  D  ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?E  ?  .    F  8 ?>G  #  	.  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(J  $$-K  L*DEFAULT-PATHNAME-DEFAULTS*
  QLLOGICAL-PATHNAMER

K  (N  $$-O  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWDQ  #&XEP for VCS-TREE::CWDR  :$$#  $$$0(S  $
'(#P  #o  $ #  1
T  $X#&%hairy arg processor for VCS-TREE::CWDU  $=DIR$p$f(W  $

OPTIONAL-ARGS$ (Y  ($&$$\#  1
Z  #  #&&OPTIONAL processor #:G94[  NOPTIONAL( ]  $
'($0#o  #  #  1
^  (_  1`  a  ;*                      !  *!A    "A  G  jG Á   
       *o@/   j
   !  N#G
G @k    6.  	GGH! j D F  F0UB  0 B  0B  0 B
   j  !  N#G
G @k6H  	GG! j  
 	G
G  Gk`D8 F;  `D F
  F0UB  0 B$  0B  0 B   `D8 F   #+ AO@   7@   wG3 AB@  / !
 ! 7@    
   p      
   /p  G  ! 0N#G
G @k6  	GG!G #+ AO@   ! 7@ jG%  ! N#G
G @k6  	GGx! jG%  ! N#G
G @k    6  	GG@!G!    
   /p  GG  jc    =?b  =CWDWV  d  .We  f      ?>h  #   g  c  &)Change directory and set default pathnameh  ]<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)i  %( j  $
'($&$$(#   1
k  (l  1m  n  ; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?o  i  .    p  8 ?>q  #   NUNIX-STATUSQ&SB-EXTR	r  QUIT<&
DEFUN QUITt  #&XEP for VCS-TREE::QUITu  :$$#  $$$0(v  $'(#P  #o  $ #   1
w  $T#&&hairy arg processor for VCS-TREE::QUITx  $=CODE$p(z  $X  $ ({  (#   #   $X#   1
|  #   #&&OPTIONAL processor #:G106}  \  ( ~  $'(#P  #o  #   #   1
  (  1    ; *                      !  *!A  "  "A  GG Á   
      Gp`D  `D F  F0UB  G
 .  ! GG @ko@  G _ GG=?  =QUITWy  $     .e        ?>  #       &LFunction to exit the Lisp implementation. Copied from CLOCC's QUIT function.  ]<#&ftop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::QUIT) (SB-INT:NAMED-LAMBDA VCS-TREE::QUIT # ...) ...)  %(   $'($&$$(#   1
  (  1    ; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?    .      8 ?>  $l&DEFUN COMMAND-LINE-ARGUMENTS  #&(XEP for VCS-TREE::COMMAND-LINE-ARGUMENTS  :$$#  (  $'(#P  #o  $ $P1
  $$#=COMMAND-LINE-ARGUMENTS(   $'(#P  #o  $$$`1
  (  1    ;l *                      !  *!  4 / AXID  G	G
G  Gk       
         
   0 =?    .      ?>  #       ]<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::COMMAND-LINE-ARGUMENTS) (SB-INT:NAMED-LAMBDA VCS-TREE::COMMAND-LINE-ARGUMENTS NIL ...) ...)  %(   $'($&$$(#   1
  (  1    ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?    .      8 ?>  #    NWHOLENALLOW-OTHER-KEYS$   NELEMENT-TYPEL	BASE-CHARNFILL-POINTERN
ADJUSTABLEL
MAKE-ARRAY<  \MAKE-FILL-POINTER-OUTPUT-STREAM<&-c  &/bin/sh  1NOUTPUTNERROR	r  RUN-PROGRAM<Q\PROCESSR

(  $$-  \PROCESS7<&DEFUN SHELL-COMMAND-OUTPUT  #&&XEP for VCS-TREE::SHELL-COMMAND-OUTPUT  :$$#  $$$P(  $
'(#P  #o  #   #  1
  #   #&&MORE processing  \  $$#   $$#   $$#   (  $
'(#P  #o  #   #  1
  #  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $=CMD$f(  $
$   DELETED    (  ($&$#  #  1
  #8  #&FLET #:CLEANUP-FUN-118  B(   $
'+   p  $&#   #<  #  1
  #  #&FLET #:CLEANUP-FUN-108  B(   $
'+   p  $&#   #  #  1
  (	  1    ;*                      ! *!G1 A  	1A1AG  HA2@B1 B  4B  ?1A  P
  1 B p
  1 B   1 B   1 B а  1 BG A  # A!#AGGG Á   
      !@GGG
GGD?@(   G @  @( AG @   ( A
 7@   7@
   7@	  4BtFG"  "  G 
Go@     j	 ðA#   
   0    
      JG )! . N! n% G) Π " -  ! PN#G
G @k    6  	GG! *G )!1 . N! n% G) Π " -  ! N#G
G @k6  	GGX! * *5  ! N#G
G @k    6  	GG !GX ʰ ʰG 
	HK| x t 
G 
< J !/  " B ±p.  "< * !/ *5  ! hN#G
G @k    6  	GG! ʠG\ Gl 
	HKh d ` 
Gp 
  J !/  " B ±.  "  * !/9 . J4BtFG# c cC G "  
G  )!= .A nGE I   M   ! @N#G
G @k6 	GG!G J!/  !!/GG )!\ G
GN      6" !/  !!/GG )!X G
GN  6.  J@D8 F   "+ ao@  Q 7@   b * J  
 G !
G	hAGGG Gk3 ab@  / !
 !Q 7@U    
   P  Q    
   /P      6\  * j 
| x t 
	AKE *,@  Ll @b,A,@GG )!X 
GN F 6x  * j 
  "  &4J  "  & @h6  * j 
h d ` 
	AKEl *,@  Ll @b,A,@GG )!\ 
GxN 
 6  * j 
  "  &4J  "  & @h J  ʰGY  ! N#G
G @k6 	GG8!  ʠGG J	G u@@
Gk J  ʰGY  !  N#G
G @k6 	GG!  ʠGG J	G u@@
GkQNLDAHRQUNWINDR0  QNLDARQUNWINDR,  QN
BITS-63-48RQUNWINDR$  QN
BITS-47-32RQUNWINDR   QNLDAHRQUNWINDR  QNLDARQUNWINDR  QN
BITS-63-48RQUNWINDR  QN
BITS-47-32RQUNWINDR  =?  =SHELL-COMMAND-OUTPUT  L&KEY=WHOLE  .            ULBASE-STRING  W        ?>  #       ]<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (SB-INT:NAMED-LAMBDA VCS-TREE::SHELL-COMMAND-OUTPUT # ...) ...)  %(   $
'($&$$(#   1
  (  1    ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&//build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp  "Ə   "   $ +     eON
.  1                    ̤       ̛       ̏       ̂       n       a       D       8       *                                                      ̽        ̰        ̠        ̈        {        n        c        H        ,      ?>   @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp"
  	        at Saturday, September 25, 2004 06:35:00 AM [+0]
  	        on escher
  	        using SBCL version 0.8.14.28
   ALPHA3      (: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+,; *
                      !  *!  j J
 .  ! p N#G
G @k6  	GG! D8 F   A+ bo@   W@  3 bb@  / B B W@
   7G  
 	G
G  Gk    
   0      
   /0  =?-$LFUNCTION    /8 ?>0   #  L
SIMPLE-STRING&DEFUN IS-SHORT-OPTION1#&!XEP for VCS-TREE::IS-SHORT-OPTION2NEXTERNAL$$#  $$$P(4$'(#P  #o  $$#  1
5$4#Q&VCS-TREER6IS-SHORT-OPTION$,$p$f(8$'($&$$8#  1
9(:1;<;*                      !  *!G! A]  G  j J jG !Gp N#
G @k6  	GG! j!@H  `D F@  F0UB<  0 B:  #  ?"!BB  GW H`D F.  F0B*  G r@  .  " JEB!  # ?"!B2  GW H`D F  F0B  G r@  .  " JEB  G  
 	G
G  Gk / Á   
   .p GÁ   
   .p 
    
   p  G       
         
    p//    
    p// =?=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; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?PJ.    Q8 ?>R   #  0&DEFUN IS-OPTION-TERMINATORR#&&XEP for VCS-TREE::IS-OPTION-TERMINATORS3$$#  $$$P(T$'(#P  #o  $$#  1
U$4#6IS-OPTION-TERMINATOR$,$p$f(W$'($&$$8#  1
X(Y1Z[;*                      !  *!G! A]  G  j J jG !Gp N#
G @k6  	GG! j "0@H  `D F@  F0UB<  0 B:  #  ?"!BA  GW H`D F.  F0B*  G r@  .  " JEB!  # ?"!B1  GW H`D F  F0B  G r@  .  " JEB   /   
 	G
G  GkGÁ   
   .p GÁ   
   .p 
    
   p  GÁ   
         
    p//    
    p// =?\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; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?d^.    e8 ?>f   #@  0&DEFUN IS-LONG-OPTIONf#& XEP for VCS-TREE::IS-LONG-OPTIONg3$$#  $$$P(h$'(#P  #o  $$#   1
i$4#6IS-LONG-OPTION$,$p$f(k$'($&$$8#  1
l(m1no;@*                      !  *!G! Au  G  j J jG !Gp N#
G @k6  	GG! j!@  G  
 	G
G  Gk`D FS  F0UBO  0 BM  #  ?"!BR  GW H`D FA  F0B=  G r@  .  " JEB4  # ?"!BB  GW H`D F(  F0B$  G r@  .  " JEB  # ?"!B2  GW H`D F  F0B  G r@  .  " JEB  G / Á   
   .p GÁ   
   .p GÁ   
   .p 
    
   p     
         
    p//    
    p//    
    p// =?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; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?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$$#  $$$p$$$P($'(#P  #o  $$#p  1
$8#6
DECOMPOSE-ARG$$$f$$#   ($'($&$$<#  1
(1;*                      !@ *!G!A   j J  j J 
 Bj     Fx FQ    . @   . A  
G )!B=?  JGGG 
  ! N#G
G @k6F  	G G! G  *GG  ! `N#G
G @k6X  	GG!  *@  G@@ *  ! N#G
G @k6j  	GGX!G *  
 G !
G	hAGGGG GkG F F
  F0UB  0
B0B  0B !    
    % B    G$ )!) .- N1 n5  9 Π=  A  E   I $ ! N#G
G @k6  	GGH!   
         
   0    
   0 =?>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; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?.    8 ?>   #x  7<j<NARG<z&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG3$$#  $$$P($'(#P  #o  $$#h  1
$4#6ANALYZE-ARG$$$f($'($&$$8#x  1
(1;x*                      !  *!G! AO   J  j J *
  !  N#G
G @k6"  	GGx!/@<   *  !  N#G
G @k60  	GG@!/@,    @!    *G  ! N#G
G @k6D  	G G! GGGGG  
 G !
G	hAGGG Gk! @ . JG!  Á   
      =??.@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; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?.    8 ?>   #  6MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTION#&XEP for VCS-TREE::FIND-OPTION3$$#  $$$p$$$P($'(#P  #o  $$#  1
$8#6FIND-OPTION$$$f$$#   ($'($&$$<#  1
(1;*                      !  *!G!AW   j J  j JG4BtFG"  "  GG ʠ G& Dx FF  !4BtFG"  "  G@0    ƠDx F9  GO@ E *
  ! N#G
G @k6D  	GG!/@   J  ! HN#G
G @k6R  	GG! Dx F  !  
 	G
G  GkGG    
          
         
   0    
       
   0 =?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; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?.    8 ?>   #,  <<&DEFUN MATCH-OPTION#&XEP for VCS-TREE::MATCH-OPTION3$$#  $$$p$$$P($'(#P  #o  $$#  1
$8#6MATCH-OPTION$$$f$$#   ($'($&$$<#   1
(1;,*                      !  *!G!A9   j J  j J *
  !  N#G
G @k    6   	G GG! *G j J  !  N#G
G @k    62  	GG8!/@   Dx F  Gb J   
 G !
G	hAGG GkGÁ   
         
   0 =?>.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; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?.    8 ?>   #  <STRING=*<LVECTORLBASE-STRINGLSYMBOLL	BASE-CHAR      ~<      &DEFUN MATCH-UNIQUE-ABBREVIATION  #&+XEP for VCS-TREE::MATCH-UNIQUE-ABBREVIATION  3$$#  $$$p$$$P(  $'(#P  #o  $$#X  1
  $8#$$$f$$#   (  $'($&$$<#h  1
  (  1  	  ;*                      !@ *!G!AK  j J  j J * !G N#
G @k6"  	GGx! *  * !G N#
G @k    60  	GG@! *  Z   * J
  !  N#G
G @k6@  	GG ! Dx F $ $ * !G@N#
G @k6P  	GG! *!B   F Ft  F0UB  0Bn  $ F FP  F0UB  0BJ   *$ JGGGG  ! N#G
G @k6x  	GG !/@  4BtF "  $   
 4BtF "  "   J  * @  *  * J	2B *G/@
   Dx F   !@@ Á      0  "P@
   7 Dx F   !  
 	G
G  GkG$ F F  F0B0B$ ꢰBF F  F0B$     
    F F  F0B0B ꢰBF F  F0B~     
    *	!B$ *G j  ! N#G
G @k6  	GG(!G F FI  F0UB  0BC  @D F)  F0UB  0B#   *GGGG  ! hN#G
G @k6 	GG!/@n4BtF "  $   
 4BtF "  "   J]@D F  F0B0BO@@D F  F0B!    
   P   F F  F0B0B ꢰBF F  F0B %    
      
         
   0    
   0 =?
  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    ; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?    .      8 ?>  #  V<<z<LNREVERSE<NREQUIRED7<j<NNONE&DEFUN GETOPT  #&XEP for VCS-TREE::GETOPT  3$$#  $$$p$$$P(  $	'(#P  #o  $$#h  1
  $8#6GETOPT$$$f$$#   (   $	'($&$$<#x  1
!  ("  1#  $  ;*                      !@ *!G!AO  j J  j J      $ L  ꢰB2  * Dx FA !
  !  N#G
G @k    66  	GG(!/@  נ0 ʰ 7 J  ! (N#G
G @k    6J  	G GGG!0 ʠG@V   BG  G  ! N#G
G @k6`  	GG!4BtF "  "$  $ J * Dx F  ! * ꢰB  *  ! N#G
G @k    6~  	GG! * *  ! 0N#G
G @k    6  	GG!G *$ j  
 G !
G	hAGGG Gk! B4BtF "       *ð@  Dx F  G ! Dx F  !% Bo  ( j,   7 Dx F  !)  !  N#G
G @k6  	GG!, ( j/@)   % Dx F  !% B   % Dx F   ! Dx F  !4BtF "  b "4BtF "  A     *|4BtF "  a$  $ *s( j,   7 Dx F  !-  !  N#G
G @k6 	GG!, ( j/@  7 Dx Ft  !4BtF "  b "4BtF "  A   *  7 *D  7/@4BtF "  a$  $ *7Dx FT   % Dx FS  !1 7@	  4BtF "  a$  $ *#4BtF "  a 4BtF "  "   J "  * Dx F3  !4BtF "  "     J       
         
   0    
   0    
       
   0    
   0    
   0    
   0    
   0    
   0    
   0    
       
   0    
   0 =?%    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  ; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?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:35:02 AM [+0]
  	        on escher
  	        using SBCL version 0.8.14.28
   ALPHA3      (: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+,; *
                      !  *!  j J
 .  ! p N#G
G @k6  	GG! D8 F   A+ bo@   W@  3 bb@  / B B W@
   7G  
 	G
G  Gk    
   0      
   /0  =?-$LFUNCTION    /8 ?>0   #h  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$$#  $$$P(B$'(#P  #o  $$#@  1
C$4#Q&VCS-TREERDIS-VCS-DIRECTORY$$$f(F$'($&$$8#P  1
G(H1IJ;	h*                      !  *!G! A   J  j J F8 F  G  
 	G
G  Gk  7+ AO@  
 7@   *  !  N#G
G @k68  	GG !  ! N#G
G @k    6D  	GG! Dx F  A@D Fe  F0UB  0B_   .GGGG  ! N#G
G @k    6b  	GGx!/@   /  *  ! N#G
G @k6r  	GG8!  ! N#G
G @k    6~  	GG! Dx F`  A@D F  F0UB  0B  @D F  F0B  0B  O@
  @D F  F0B  _DXF  ! .GGGG  !   j J @k%    
   P  @D F  F0B0BO@@D F  F0B_DXF)    
   P  3 AB@O/ !
 !
 7@ZI 
    
   /       
         
   0    
   0 =?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\]; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?^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$$#  $$$P(h$'(#P  #o  $$#   1
i$4#DIS-CVS-MANAGED$$$f(k$'($&$$8#   1
l(m1no; *
                      !  *!G! A#   J  j J
 . N  !  N#G
G @k    6"  	GGx! J  !  N#G
G @k6.  	GGH!  !   j J @k   
      =?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{; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?|v.    }8 ?>~   #   `a7~c<d<e<&DEFUN IS-SVN-MANAGED#& XEP for VCS-TREE::IS-SVN-MANAGEDA$$#  $$$P($'(#P  #o  $$#   1
$4#DIS-SVN-MANAGED$$$f($'($&$$8#   1
(1; *
                      !  *!G! A#   J  j J
 . N  !  N#G
G @k    6"  	GGx! J  !  N#G
G @k6.  	GGH!  !   j J @k   
      =?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; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?.    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$$#  $$$P($'(#P  #o  $$#X
  1
$4#$$$f($'($&$$8#h
  1
#  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))A$$#  $$$P($'(#P  #o  #  #
  1
#  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$f($'($&$#   #
  1
#	  #A$$#  $$$P($'(#P  #o  #4	  #
  1
#D	  #$$$f($'($&$#H	  #
  1
(1;*                      !@ *!G! A  J  j J Fx F  G  
 	G
G  Gk 7
  !  N#G
G @k    6<  	GG!/@  w`Dx F  j .  ! @N#G
G @k6P  	GG! jG
G )! .GGGG Π !  ! N#G
G @k6f  	GGh!/@   w`Dx Fj  j .  ! N#G
G @k6z  	GG! jG
G )!) .GGGG% Π !  ! @N#G
G @k6  	GG!/@: GA J    7GDx F G! *     * Dx F
 !
  ! N#G
G @k    6  	GG0!  /@   Dx F G! *@ *-  ! 0N#G
G @k6  	GG!G@   ꢰBc  G4BtFG"  "   G .  *  1 .  ! N#G
G @k6  	GGH!
G *M ! tB@N#G
G @k    6  	GG!4BtFG"  "  G ꢰB(      W J J@Dx F O@  7GG @  G B@Dx F G@5  !   j J @ko@     "G9    
   G4BtFG"  "   G /   *  1 .  ! HN#G
G @k    6R 	GG!
G *M ! tB@N#G
G @k    6` 	GG!4BtFG"  "  G  ꢰB7       W J J@Dx FI O@  7GG @  G B@Dx F= G@5  ! HN#G
G @k    6 	GG!G4BtF "    Aðo@     "G9    
    *} ꢰB
  4BtF "      *    7 J j=  !  N#G
G @k    6 	GG!  /@ 74BtF "  "A  G`D F
  F0UB  0
B0B  0BE    
   p   74BtF "  "I  G`D F
  F0UB  0
BF0B  0BBE    
   p  *
                     !@ *!G! A   J  j J * Dx F  ! D8 F  G  
 	G
G  Gk A+ bo@*  M W@   7Q  ! N#G
G @k68 	GG !U  ! 	N#G
G @k    6D 	GG! Dx F  !3 ""@/ "
 !M 7@M    
   /0      *\                     !@ *!G! Aj   J  j J * Dx Fg  ! D8 F  G  
 	G
G  Gk A+ bo@*  M W@   7Q  ! (
N#G
G @k6 	GG!U  ! X
N#G
G @k    6 	GG! Dx F;  !3 ""@/ "
 !M 7@M    
   /0         
         
       
   0    
       
   P    
   P    
   P    
   P    
         
   0    
   0    
         
   0    
   0 =?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; *
                      !  *!  j J .
 N nG  !  N#G
G @k    6   	GG!G  
 	G
G  Gk=?.    8 ?>   #T
  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$$#  $$#   $$$P$$$p($'(#P  #o  $$#
  1
$<#$$$f$$#   $$#   ($'($&$$@#(
  1
#  #&%XEP for #'(LAMBDA (#:G196) (LET # #))A$$#  $$$P($'(#P  #o  #  #4
  1
#  #&#'(LAMBDA (#:G196) (LET # #))$$$f($'($&$#   #D
  1
#p  #&%XEP for #'(LAMBDA (#:G192) (LET # #))A$$#  $$$P($'(#P  #o  #  #D
  1
#  #&#'(LAMBDA (#:G192) (LET # #))$$$f($'($&$#  #T
  1
(1;&T
**                      G! *!G!A{   J j  j J 
 B$  . N nG ! Π%  ! 0N#G
G @k    6L  	GG! J)  ! `N#G
G @k6X  	GG!-  ! N#G
G @k    6d  	GGp! * *1  ! N#G
G @k    6r  	GG8!5  ! N#G
G @k    6~  	GG! Dx F/ a 
 B  9 .= NA E  ! PN#G
G @k6  	GG!G 
 BR  Gh 
	HKd ` \ 
Gl 
@ j !/  # C ñ .  #4BF:" "  wp  Fx F"  I ."4BF "  p   CGG jM  ! 8N#G
G @k6  	GG!GG )!  #G  p   F F
  F0UB  0
B0B  0B Q    
    U BR  G 
	HK| x t 
G 
$ j !/  # C ñH.  #4BF:" "  w  Fx F"  Y ."4BF "  㲈   CGG jM  ! N#G
G @k6$ 	GGp!  *]  !   j J @k F F
  F0UB  0
B0B  0B Q    
   GG )!  #G  a  U B  9 .a Ne E  ! hN#G
G @k6Z 	GG!G9G7 U B   .i N nG m Π%  ! N#G
G @k    6t 	GG0!G$ )!q . Nu ny  } Π  粅  粉   粍 $ ! 8N#G
G @k6 	GG!6  *| x t 
	AKE *,@  Ll @b,A,@  / G )!  #G    * J ? @  $ @	G
G  GkGG  _"  R&2DJ  R"  R&  k6 l *GG    K k!  A! ! 	Gd ` \ 
	AKEh *,@  Ll @b,A,@p *                     o! *! m G! A   J j   j J *  ! N#G
G @k6 	GG!G@D F*  F0UB  0B$   *GGGG  ! PN#G
G @k6 	GG!/@  G  
 	G
G  Gk 7  !  !  "  &4J  "  & @h@D F  F0B0B_DXFO@@D F  F0B    
   P  *F                     ! *! m G! Ah   J j   j J *  ! 	N#G
G @k6` 	GG!G@D F-  F0UB  0B'   *GGGG  ! 	N#G
G @k6z 	GG!/@
   / G )!  + ! 7  "  &4J  "  & @hG  
 	G
G  Gk@D F  F0B0B_DXFO@@D F  F0B    
   P         
         
   0    
         
      QNLDAHRQUNWINDR	  QNLDARQUNWINDR	  QN
BITS-63-48RQUNWINDRx	  QN
BITS-47-32RQUNWINDRt	  QNLDAHRQUNWINDR   QNLDARQUNWINDR  QN
BITS-63-48RQUNWINDR  QN
BITS-47-32RQUNWINDR  QNLDAHRQRETURN-MULTIPLERP  QNLDARQRETURN-MULTIPLERL  QN
BITS-63-48RQRETURN-MULTIPLERD  QN
BITS-47-32RQRETURN-MULTIPLER@  =?  
G192  .NOLNULLR  	  p    
    
G196  	      
    DSUBDIRqLTYPE  .  s      ?>  #     W<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-MANAGED-DIR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-MANAGED-DIR # ...) ...)  %(   $'($&$$(#   1
  (  1    ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?    .      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0  <& -m "~A"1  &~A commit~A2  & 3  P-  +  "  4  -  +  "  5  <&DEFUN PROCESS-VCS-DIRECTORY6  #&'XEP for VCS-TREE::PROCESS-VCS-DIRECTORY7  A$$#  $$#   $$$P$$$p(8  $'(#P  #o  $$#  1
9  $<#DPROCESS-VCS-DIRECTORY$$$f$$#   $$#   (;  $'($&$$@#  1
<  #@  #&FLET VCS-TREE::PROCESS=  $$$f$$#&  (>  $'($&$#D  #  1
?  (@  1A  B  ;(*,                      ?!@ *!G!Aa   J j  j J *
  ! N#G
G @k6D  	GG!/@-   *  ! HN#G
G @k6R  	GG!/@   $  j  *  .AXID: G N j!  ! N#G
G @k6l  	GGP! ? %  !   j J @k) $  j  * *- @  G1 N$ j!  ! (N#G
G @k6  	GG! * *5  ! `N#G
G @k    6  	GG!GG9 N !  ! N#G
G @k    6  	GG`! * *5  ! N#G
G @k    6  	GG(!G / = N j!  ! N#G
G @k    6  	GG! *A N jE   I  ! XN#G
G @k6  	G GG!G  J j  _ GN#  ?"  1&1$J  1"  1& @h    6  	GGX! j /@	   / M NG!  !   j J @k / Q N !  !   j J @kU @  GY N$ j!  ! HN#G
G @k    6 	GG! *w] @e  `Dx FP   ja . ᢰB|   e .i  ! N#G
G @k6, 	GGP! jG
G )!m .GGGG ʠ q  ! N#G
G @k6B 	GG!/@$   Dx FW   aGu N!  ! XN#G
G @k    6V 	GG!GGy N$ j!  ! N#G
G @k    6f 	GGh! *#} `D F
  F0UB  0
B0B  0B    
   p  G$ )! . N n  Π  粝  粡   粥 $ ! PN#G
G @k6 	GG!   
         
   0    
   0    
   0 QNJMP-HINTRQ&SB-VM	D  	GENERIC-=R  QNLDAHRQ	D  	GENERIC-=R  QNLDARQ	D  	GENERIC-=R  QN
BITS-63-48RQ	D  	GENERIC-=R  QN
BITS-47-32RQ	D  	GENERIC-=R  =?N  :  qDACTIONDOPTIONSQ        ?>S  #   R  :  W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)S  %( T  $'($&$$(#   1
U  (V  1W  X  ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?Y  S  .    Z  8 ?>[  #   D
*PROGNAME*3  V%DEFVAR<#&Ptop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*PROGNAME*) (UNLESS # "") ...)]  %( ^  $'($&$$(#   1
_  (`  1a  b  ; *                      !  *!  j J
 7X)D   N
 . o GG  !  N#G
G @k6"  	GGx!G  
 	G
G  GkG=?c  ]  .    d  8 ?>e  #(    [  &usage: ~A action [OPTIONS]~%e    <&3Processes a source-control managed directory tree~%f  &#Action: update, commit, or status~%g  &	OPTIONS~%h  &"   -m <str>    Set commit string~%i  L
WRITE-CHAR<&DEFUN USAGEk  #&XEP for VCS-TREE::USAGEl  A$$#  $$$0(m  $'(#P  #o  #   #  1
n  #   #&&MORE processingo  NOPTIONAL$$#   $$$0$$$O(q  $'(#P  #o  #   #  1
r  #  #&!varargs entry for VCS-TREE::USAGEs  $DMSG$f$DMSG-ARGS#   (v  $
OPTIONAL-ARGS$ REST-ARG$(y  ($&$#  #  1
z  #  #&&OPTIONAL processor #:G311{  p  $$$0(|  $'(#P  #o  #  #(  1
}  #  #&&OPTIONAL processor #:G316~  p  (   $'(#P  #o  #  #(  1
  (	  1    ;
(*                      !  *!G1 A  	1A1AG  HA2@B1 B  4B  ?1A  P
  1 B p
  1 B   1 B   1 B а  1 BA   # A"#AGGGG @4BtFG#7@HB @  a @d"@@_ "    ʰ  j J
 .AXID   .aXiD  G N  ! N#G
G @k    6d  	GGp! ꢰBA  
 .AXID  G N  ! N#G
G @k6x  	GG !
 .AXID  G! N  ! (N#G
G @k    6  	GG!
 .AXIDt  G% N  ! pN#G
G @k    6  	GG!
 .AXIDe  G) N  !   j J @k . A\  
 .AXID[  GG )!  #G ?  *G )!  # ?  * Dx FO  G/@
   ! )!	 Dx F?   
   0 #"A(2A  2 R r   Ҡ t@xN#G
G @k6  	GG!
 .AXID/  B
? -  ! N#G
G @k6  	GGH! *   jZG       
   0    
   0    
   0    
   0    
   0    
   0    
   0    
   0    
   0    
   0 =?  DUSAGERt  L&RESTu    .R    O8:;    R        ?>  #       W<#&htop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::USAGE) (SB-INT:NAMED-LAMBDA VCS-TREE::USAGE # ...) ...)  %(   $'($&$$(#   1
  (  1    ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?    .      8 ?>  #   &ci  6<-  &update  &commit  &status    DMATCH-UNIQUE-ABBREVIATION<"  +  &Unknown action: ~A    <   <>&DEFUN PARSE-ACTION-ARG  #&"XEP for VCS-TREE::PARSE-ACTION-ARG  A$$#  $$$P(  $	'(#P  #o  $$#  1
  $4#DPARSE-ACTION-ARG$,#   $f(  $	'($&$$8#   1
  (  1    ; *                      !  *!G! Ay  G  j JD FY  F0UB  0BS   G
 NGGGG  !  N#G
G @k    66  	GG(! ꠰/@   .  
 	G
G  Gk G N  ! @N#G
G @k    6P  	GG! ꠰?@  ! . "0@   "0@  % . ) .G-  ! N#G
G @k    6l  	GGP!  ? 1  !   j J @k .D F  F0B0B@D F  F0BDXF5    
        
      =?    DARG  t    ?>  #       W<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PARSE-ACTION-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::PARSE-ACTION-ARG # ...) ...)  %(   $	'($&$$(#   1
  (  1    ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?    .      8 ?>  #x  [  0  NREQUIRED    DGETOPT<  <   <  <DCWD<DDIRECTORY-TREE<<DMKLIST<:  <&Invalid action ~A  DCOMMAND-LINE-ARGUMENTS<&
DEFUN MAIN  #&XEP for VCS-TREE:MAIN  A$$#  $$$0(  $
'(#P  #o  $ #0  1
  $X#&%hairy arg processor for VCS-TREE:MAIN  $DARGV$f(  $
w  $ (  ($&$$\#0  1
  #  #&&OPTIONAL processor #:G354  p  (   $
'($&$#  #x  1
  (  1    ;x*                      !  *!A    j  "A   *  j Á   
       J * Dx F  A
 7A,W  7 N  !  N#G
G @k6>  	G GG! * Jo@     ! @N#G
G @k    6P  	GG! ?   ! pN#G
G @k6\  	GG! * Dx F  !!  ! N#G
G @k6l  	GGP! */@p  %   ! N#G
G @k6z  	GG!)  ! N#G
G @k    6  	GG!-  ! HN#G
G @k    6  	GG!1  ! xN#G
G @k    6  	GG!G $   J j5  ! N#G
G @k6  	GG@! Dx Fl  G/@G  ! N#G
G @k    6  a G!	 A)# A !,LA,A  * J ? A  # @	G
G  GkG  _"  R&2DJ  R"  R&  k W9 .  ! N#G
G @k    6  	GGH! ?   ! N#G
G @k6  	GG!t * !GN#
G @k6 	GG! "0@S: J=   ! XN#G
G @k6 	GG! * J       
   0    
   0    
    !  + K k   ˰GQNLDAHRQRETURN-MULTIPLER<  QNLDARQRETURN-MULTIPLER8  QN
BITS-63-48RQRETURN-MULTIPLER0  QN
BITS-47-32RQ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    ; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&&/build/buildd/vcs-tree-0.2.1/main.lisp  "Ə   "   $ +     1f  1                    ̯       ̥       ̒       ̃       b       X       B                      ̿        ̰        ̐        ̈        {        o        ]        J        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/loader.lisp"
  	        at Saturday, September 25, 2004 06:35:04 AM [+0]
  	        on escher
  	        using SBCL version 0.8.14.28
   ALPHA3      (: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*+; *
                      !  *!  j J
 .  ! p N#G
G @k6  	GG! D8 F   A+ bo@   W@  3 bb@  / B B W@
   7G  
 	G
G  Gk    
   0      
   /0  =?,#LFUNCTION    .8 ?>/   #p  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$$#  (=$&'#P  #/  $$#  1
>$,"Q&COMMON-LISP-USERR?RUN( A$&'$&$$0#  1
B#0  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)C<$$$f$$#   (D$&'$&$#h  #`  1
E#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)F$$#   (G$&'#   #   #  #p  1
H(I1JK;p*                      !` *!G    * J4BF:" "  ( G8 
	HK4 0 , 
G< 
 J !/  " B ±@.  "4BF:" "  W@ 
 ."4BF "  @  (  4BtF "    "G4BtFG"  "   .AXID  4BtF "   C 7A,w4 / AXID  @Dx F   B .4BtFG# CG "    !  N#G
G @k    6   G !	 A)# A !,LA,A@ : 6  < *4 0 , 
	AKE8 *,@  Ll @b,A,@( w! .AXIDs  G% N)  ! N#G
G @k6  	GG8!- . _ 1  !  N#G
G @k    6  ] G !	 A)# A !@   * J ? A  # @	G
G  GkG  _"  R&2DJ  R"  R&  k*                      !` *! M m 
 *  j J 
! B;  GG` )! ʠG
G.      6  	GG(!Gð"  !  !  "  &4J  "  & @h       
         
   0    
   0    
   P  !  + K k   ˰GlÁ   
   0  !  + K k   ˰GÁ   
      QNLDAHRQUNWINDR  QNLDARQUNWINDR  QN
BITS-63-48RQUNWINDR  QN
BITS-47-32RQUNWINDR  QNLDAHRQRETURN-MULTIPLER(  QNLDARQRETURN-MULTIPLER$  QN
BITS-63-48RQRETURN-MULTIPLER  QN
BITS-47-32RQRETURN-MULTIPLER  =?\FQ&SB-IMPLR]TEMP_-`a0  \b\@-L*d    ?>f   #   e@]%DEFUN<"&vtop level form (SB-IMPL::%DEFUN (QUOTE COMMON-LISP-USER::RUN) (SB-INT:NAMED-LAMBDA COMMON-LISP-USER::RUN NIL ...) ...)g$( h$&'$&$$(#   1
i(j1kl; *                      !  *!  j J .
 NGG  ! x N#G
G @k    6  	GG!G  
 	G
G  Gk=?mg-    n8 QDEBUG-SOURCER	(p$$-qNFILE&(/build/buildd/vcs-tree-0.2.1/loader.lisps"Ə t" u$ +     v1wxyl      yK      y+      ?>z   @