#!/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 "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/package.lisp"
  	        at Monday, December 15, 2003 07:20:59 AM MST
  	        on pal
  	        using SBCL version 0.8.6.34
   X86/      NIL?>    #   BQ&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+,;                       Ee܃         kP$<uIBH+  uG;   tH3~+@/@;   u   P  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   #   B&VCS-TREE7&CL89&MAIN:;Q&SB-IMPLR<%DEFPACKAGE<#&@top level form (SB-IMPL::%DEFPACKAGE "VCS-TREE" (QUOTE NIL) ...)>%( ?$'($'$$#   1
@(A1BC; 
                      Ee܃(       C  C     CC  C     CC     (   kP  MEᐐQNABSOLUTERj   QNABSOLUTERZ   QNABSOLUTERC   QNABSOLUTER%   =?H>5    I8 ?>J   #   B VCS-TREE<#$%( K$'($'$$#   1
L(M1NO;                       Ee܃         kP$<uIBH+  uG;   tH3~+@/@;   u   P  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?W$5    X8 QDEBUG-SOURCER

(Z$$-[NFILE&?/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/package.lisp]"
 ^"A _$ +     #`1abcO      cC      c,      ?>d   @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/kmrcl-excerpt.lisp"
  	        at Monday, December 15, 2003 07:20:59 AM MST
  	        on pal
  	        using SBCL version 0.8.6.34
   X86/      NIL?>    #   BQ&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+,;                       Ee܃         kP$<uIBH+  uG;   tH3~+@/@;   u   P  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   $XBQ&VCS-TREER7READ-FILE-TO-STRINGS%COMPILER-DEFUN<#&Xtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::READ-FILE-TO-STRINGS) (QUOTE NIL)):%( ;$'($'$$$X1
<(=1>?;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?B:5    C8 ?>D   #  BN	DIRECTIONNINPUTLOPEN<LGENSYM<L	READ-LINE<LNREVERSE<NABORTLCLOSE<&DEFUN READ-FILE-TO-STRINGSL#&XEP for READ-FILE-TO-STRINGSMNEXTERNAL$$$M$$#   (O$'($'$$#  1
P$*#8$$$C(Q$'($'$$*#  1
R#_  #&FLET #:CLEANUP-FUN-8SNCLEANUP( U$'+   V$'$#_  #  1
W(X1YZ;
                      Eey  UE  ܃U=   5         kPډ]]ȹ'  t  \        @\  =t  t	HE̋ E 
D EMĉeMЋ, iA  EЉ, ԃ   1ɉjP]Eeӿ  ]!      kP;Eui܃U%      kPUE̹  H,  , ŋ̃`Ű]ȉAE     UMEt  \     I\  =t  t	AEAM܃Uȿ  u!      kP2U]MEMĉ 
D ] 9t!B	t
JHB    9u ŋ̃`Ű]ȉAE  E]M      u  em reӋ=)   ]-      kP
MQNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDR[  QNABSOLUTERK  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNABSOLUTERr  QNABSOLUTER.  QNABSOLUTER
  QNABSOLUTER   QNABSOLUTER   QNRELATIVERalloc_8_to_eaxv   QNABSOLUTERG   QNABSOLUTERA   QNABSOLUTER;   =?k87FILEm5nLVALUESLLISTL	&OPTIONALrs    ?>u   $`Bt8&?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|};` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?x5    8 ?>   $XBLSPECIAL7*WHITESPACE-CHARS*LPROCLAIM<#&#top level form (PROCLAIM (QUOTE #))%( $'($'$$$X1
(1;X                       Ee܃         kP  MEᐐQNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   $hBE E	E
E
LSET<#&-top level form (IF (NOT #) (PROGN NIL #) ...)%( $'($'$$$h1
(1;h 
                      Ee   @=   u&܃   =         kP  MEQNABSOLUTERA   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER    =?5    8 ?>   $8B#&3top level form (QUOTE VCS-TREE::*WHITESPACE-CHARS*)%( $'($'$$$81
(1;8                       Ee  MEᐐ=?5    8 ?>   $XB7STRING-TRIM-WHITESPACE9<#&Ztop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (QUOTE NIL))%( $'($'$$$X1
(1;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?5    8 ?>   $ZBLSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACE#&XEP for STRING-TRIM-WHITESPACEN$$$M$$#  ($'($'$$ $P1
$'#$$#  ($'($'$$'$U1
(1;Z                       Eeu+   P   t      u`
M
QNABSOLUTER<   QNABSOLUTER)   =?7STR5noL
SIMPLE-STRINGqĎ    ?>   $`Bw<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (SB-INT:NAMED-LAMBDA VCS-TREE::STRING-TRIM-WHITESPACE # ...) ...)%( $'($'$$$`1
(1;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #"  BPROPER-LIST-OF-LENGTH-P<7ITv
BACKQ-LIST<LIFLLETLDEFMACRO7AIF7TEST7THENq7ELSEARG-COUNT-ERROR<&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE26 #:ENVIRONMENT27) (DECLARE #) ...)N$$$M$$#   $`($'($'$$#  1
$*#&6#'(LAMBDA (#:WHOLE26 #:ENVIRONMENT27) (DECLARE #) ...)$$$C$`($'($'$$*#  1
(1;"                      Ee  UM$<  P܃            kP  5  EH$<z  yEH$<j  I$<`  AEEH$<M  I$<C  A=     EH$<(  I$<  I$<  AE܃         kP܃      kPU܃   =   uEC      kP!   }      u`E  lEp܃%   =)   -   CC   C   1      kP
M
N
N
N
N
N
N
N
N
NQNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERh  QNABSOLUTERY  QNABSOLUTERS  QNABSOLUTER6  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERO   =?
WHOLE26

ENVIRONMENT275L*    ?>   $pB&DEFMACRO VCS-TREE::AIF	%DEFMACRO<#&Gtop level form (SB-C::%DEFMACRO (QUOTE VCS-TREE::AIF) (FUNCTION #) ...)%( $'($'$$$p1
   (  1    ;p                       Ee܃   =   5   C     C!      kP  MEᐐQNABSOLUTERG   QNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?	  5    
  8 ?>  $XB7FLATTEN9<#&Ktop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::FLATTEN) (QUOTE NIL))  %( 
  $'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #5  B  <LAPPEND<&
DEFUN FLATTEN  #&XEP for FLATTEN  N$$$M$$#   (  $'($'$$#0  1
  $*#  $$$C(  $'($'$$*#5  1
  (  1    ;5                      Ee	  UM  t$<tUMEEH$<uYEP܃      kPUEP܃      kPU      u`EPt  \     [ÉP@  \  =t  t	]EP܃      kPU      u`
MQNABSOLUTER  QNABSOLUTER   QNRELATIVERalloc_8_to_ebx   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERj   =?&    7LIS(  5noq)  *      ?>,  $`B+    w<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...),  %( -  $'($'$$$`1
.  (/  10  1  ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?5  ,  5    6  8 ?>7  $XB7MKLIST9<#&Jtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::MKLIST) (QUOTE NIL))8  %( 9  $'($'$$$X1
:  (;  1<  =  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?@  8  5    A  8 ?>B  $}B&DEFUN MKLISTB  #&XEP for MKLISTC  N$$$M$$#   (D  $'($'$$$x1
E  $%#7  $$#  (F  $'($'$$%$}1
G  (H  1I  J  ;}                       EeuU$<tGt  \     [ÉP@  \  =t  t	ӋME
MQNRELATIVERalloc_8_to_ebx>   =?L  7  7OBJN  s    ?>P  $`BO  7  &Make into list if atomP  w<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)Q  %( R  $'($'$$$`1
S  (T  1U  V  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?[  Q  5    \  8 ?>]  $XB7DIRECTORY-TREE9<#&Rtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (QUOTE NIL))^  %( _  $'($'$$$X1
`  (a  1b  c  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?f  ^  5    g  8 ?>h  #k  B7CANONICALIZE-DIRECTORY-NAME<NNAMENWILDNTYPENDEFAULTSL
MAKE-PATHNAME<L	DIRECTORY<7PROBE-DIRECTORY<LIDENTITY<LEQL<%FIND-POSITION<&root not directory ~As  LERROR<]  <LCONS&~Av  LSEQUENCE&DEFUN DIRECTORY-TREEx  #&XEP for DIRECTORY-TREEy  N$$$M$$#   (z  $'($'$$#P  1
{  $*#]  $$$C(|  $'($'$$*#U  1
}  (~  1    ;k                      Ee)  U܃U      kPE܃   =   5   
   K
!   KC%      kP܃)      kP  U  t  \     [ÉP@  \  =t  t	]   u܋EX]EH$<E  MӋ-      oPu܋]  ti}Ӌ      nP}t  \     [ÉP@  \  =t  t	    _}  ?E@E܋M܋$<J  
1   A=  {  5   J  k  ܃  }ܾ  C    C  CK9      kP    }     ܃U-      kP  tHUt  \     [ÉP@  \  =t  t	ӋME܃=   }A      kP  t  \     [ÉP@  \  =t  t	]ˋuou}V܃E      kPu}t  \     [ÉP@  \  =t  t	ˁ  t]_v$<   =  xE@t  \     I\  =t  t	UQA  
I   
N܃M   }܋A      kPM܋$<uA<*r<E܋
Q   
N  
I   
N
M
N
N

QNABSOLUTERE  QNABSOLUTER4  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_ebxU  QNABSOLUTER-  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTERR  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebxp  QNABSOLUTERK  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx   QNABSOLUTER   QNABSOLUTERz   QNABSOLUTERn   QNABSOLUTERe   QNABSOLUTER_   QNABSOLUTERY   QNABSOLUTERS   QNABSOLUTER4   =?  ]  7FILENAME  s    ?>  $`B  ]  &>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    ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XBh  9<#&_top level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (QUOTE NIL))  %(   $'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #  BLPATHNAME<L
PATHNAME-NAME<L
PATHNAME-TYPE<LPATHNAME-DIRECTORY<  <N	DIRECTORYi  k  NVERSIONl  m  <LSTRING&.  LCONCATENATE<N
UNSPECIFIC&!DEFUN CANONICALIZE-DIRECTORY-NAME  #&#XEP for CANONICALIZE-DIRECTORY-NAME  N$$$M$$#   (  $'($'$$#  1
  $*#h  $$$C(  $'($'$$*#  1
  #  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#   (  $'+     $'$#  #  1
  (  1    ;                      Ee  U܃U      kPU؋܃U؋      kPŋ̃@AE     E܃U؋      kPŋ̃@AE    }  V  }  
  =         uU؋ME]U؋      nPŋ̃@AE  W  ]Ћ!      nP%   5)   E  -   EE  1   EE  5   E܋9   (   u`t  \     [ÉP@  \  =t  t	Ut  \     [ÉP@  \  =t  t	=  ܃=   }5A   CE      kPt  \     [ÉP@  \  =t  t	W;I   tem   𐐐
MQNABSOLUTER  QNRELATIVERalloc_8_to_ebx`  QNABSOLUTER>  QNABSOLUTER5  QNABSOLUTER,  QNRELATIVERalloc_8_to_ebx  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER{  QNABSOLUTERk  QNABSOLUTER^  QNABSOLUTERX  QNABSOLUTERA  QNABSOLUTER*  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERv   QNABSOLUTERT   QNABSOLUTER4   =?  h    5no  q        ?>  $`B  h  w<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (SB-INT:NAMED-LAMBDA VCS-TREE::CANONICALIZE-DIRECTORY-NAME # ...) ...)  %(   $'($'$$$`1
  (  1    ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XBo  9<#&Stop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (QUOTE NIL))  %(   $	'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #   Bh  <L
NAMESTRING<Q&SB-UNIXR	  UNIX-FILE-KIND<  &DEFUN PROBE-DIRECTORY   #&XEP for PROBE-DIRECTORY  N$$$M$$#   (  $	'($'$$#   1
  $*#o  $$$C(  $	'($'$$*#   1
  (  1    ; 
                      Eey   U܃U      kP܃      kP܃      kP9   u'  ME  ꐐ
MQNABSOLUTER}   QNABSOLUTERh   QNABSOLUTERN   QNABSOLUTER4   =?
  o    5noLMEMBER  q        ?>  $`B  o  w<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROBE-DIRECTORY # ...) ...)  %(   $	'($'$$$`1
  (  1    ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7CWD9<#&Gtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::CWD) (QUOTE NIL))  %(    $
'($'$$$X1
!  ("  1#  $  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?'    5    (  8 ?>)  #  B	  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(,  $$--  L*DEFAULT-PATHNAME-DEFAULTS*  QLLOGICAL-PATHNAMER

-  (0  $$-1  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWD3  #&XEP for CWD4  N$$$M$$#   (5  $
'($'$$#  1
6  $5#&%hairy arg processor for VCS-TREE::CWD7  $7DIR#   $C(9  $

OPTIONAL-ARGS$ (;  ($'$$5#  1
<  #  #&&OPTIONAL processor 43=  NOPTIONAL( ?  $
'($'$#  #  1
@  (A  1B  C  ;	                      Eeu  u
M  uo]ԃ   1ɉjP]ʋ$<u7A<*r0<.v<~r(<w$]ы      nP]ʋыME$<   $<uC<*r<.va<~r<vY$<u9CH+  u7;   u
   X럋H3~@/@
;   t݋!   
   
/Ӌ      nP뇋CH+  uQ;%   R]Ӌ)      nP]Ӌ)      nP
%   
/  tQNABSOLUTER  QNABSOLUTER  QNABSOLUTERr  QNABSOLUTER\  QNABSOLUTER5  QNABSOLUTER"  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERG   =?P    q8  Q  5qR  )  S      ?>U  $`BT    &)Change directory and set default pathnameU  w<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)V  %( W  $
'($'$$$`1
X  (Y  1Z  [  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?`  V  5    a  8 ?>b  $XB7QUIT9<#&Htop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::QUIT) (QUOTE NIL))c  %( d  $'($'$$$X1
e  (f  1g  h  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?k  c  5    l  8 ?>m  #   BNUNIX-STATUSQ&SB-EXTR	n  QUIT<&
DEFUN QUITp  #&XEP for QUITq  N$$$M$$#   (r  $'($'$$#   1
s  $2#&&hairy arg processor for VCS-TREE::QUITt  $7CODE#  (v  $:  $ (w  ($'$$2#   1
x  $u#&&OPTIONAL processor 4y  >  ( z  $'($'$$u#   1
{  (|  1}  ~  ;                       EeuQu
M   t$<u F<"w         u`  u1ݿ   1빐QNABSOLUTERS   QNABSOLUTERM   =?  b  qu  $     5R        ?>  $`B  b  &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    ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7COMMAND-LINE-ARGUMENTS9<#&Ztop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::COMMAND-LINE-ARGUMENTS) (QUOTE NIL))  %(   $'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  $RB&DEFUN COMMAND-LINE-ARGUMENTS  #&XEP for COMMAND-LINE-ARGUMENTS  N$$$M(  $'($'$$$H1
  $"#  (   $'($'$$"$M1
  (  1    ;R                       Eeu&?  P   tMEᐐ
M
=?    5)        ?>  $`B    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    ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7SHELL-COMMAND-OUTPUT9<#&Xtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (QUOTE NIL))  %(   $
'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #  B  NWHOLENALLOW-OTHER-KEYS$   NELEMENT-TYPEL	BASE-CHARNFILL-POINTERN
ADJUSTABLEL
MAKE-ARRAY<  vMAKE-FILL-POINTER-OUTPUT-STREAM<&-c  &/bin/sh  ENOUTPUTNERROR	n  RUN-PROGRAM<QvPROCESSR

(  $$-  vPROCESSK<&DEFUN SHELL-COMMAND-OUTPUT  #&XEP for SHELL-COMMAND-OUTPUT  N$$$M$$#  (  $
'($'$$Z#  1
  $r#&SB-INT:&MORE processing  >  $$#  $,#   #   $$#   (  $
'($'$$r#  1
  #   #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $7CMD$C(  $
$   DELETED    (  ($'$#   #  1
  #  #&FLET #:CLEANUP-FUN-111  T(   $
'+     $'$#  #  1
  #  #&FLET #:CLEANUP-FUN-102  T(   $
'+     $'$#  #  1
  (	  1    ;                      Ev5])ˋكvWV|$)^_ˉ|txe|эDE
Mظ    E  E  u`:ËM؋4ËM؋;   t;   t;   tEu }}  u}}  uE

܃   =!   5%   )   CC    -   CC'  1      kPU܋܃5   =!   5%   )   CC    -   CC'  1      kPU؋܃U܋9      kPUEE E 
D EMM, iA  E, ܃U؋9      kPUEE E 
D EMeM, iA  E, =   }t  \     [ÉP@x@  \  =t  t	܃ A   5E   C  I   CECM   CECQ       kPU,  , ŋ́   ]AE  {  ,  , ŋ́   ]AE  y  U$<uEBH+  uC;U   urU܋}؋ݹ   mccH3~@/@
;U   tыY   
U   
/U]MEM 
D ] 9t!B	t
JHB    9u ŋ́   ]AE     E]M    U]MEM 
D ] 9t!B	t
JHB    9u ŋ́   ]AE  E]M    Ӌ]      nP  em Ӌ]      nP  em QNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNRELATIVERQUNWINDR*  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERl  QNABSOLUTERH  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_16_to_ebx{  QNABSOLUTERe  QNABSOLUTERV  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERv  QNABSOLUTERf  QNABSOLUTER`  QNABSOLUTERZ  QNABSOLUTERT  QNABSOLUTER7  QNABSOLUTER'  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   =?      L&KEYn  7WHOLE  5            oLBASE-STRING  q        ?>  $`B    w<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (SB-INT:NAMED-LAMBDA VCS-TREE::SHELL-COMMAND-OUTPUT # ...) ...)  %(   $
'($'$$$`1
  (   1!  "  ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?&    5    '  8 QDEBUG-SOURCER

()  $$-*  NFILE&E/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/kmrcl-excerpt.lisp,  "
 -  "A .  $ +     ]GF	&/  10  1  2  "     2       2  ̻     2  ̯     2  ̦     2  ̙     2  ̌     2  ~     2  h     2  [     2  C     2  $     2       2       2       2       2       2  ̳     2  ̧     2  ̀     2  c     2  V     2  J     2  =     2  1     2       2       2       2        2        2  ̼      2  ̮      2  ̥      2  ̙      2  ̍      2  }      2  Z      2  ?      2  ,      ?>3  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/getopt-excerpt.lisp"
  	        at Monday, December 15, 2003 07:20:59 AM MST
  	        on pal
  	        using SBCL version 0.8.6.34
   X86/      NIL?>    #   BQ&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+,;                       Ee܃         kP$<uIBH+  uG;   tH3~+@/@;   u   P  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   $XBQ&VCS-TREER7IS-SHORT-OPTION%COMPILER-DEFUN<#&Stop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-SHORT-OPTION) (QUOTE NIL)):%( ;$'($'$$$X1
<(=1>?;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?B:5    C8 ?>D   #o  BLARRAY-DIMENSION<L
SIMPLE-STRING&DEFUN IS-SHORT-OPTIONF#&XEP for IS-SHORT-OPTIONGNEXTERNAL$$$M$$#   (I$'($'$$#X  1
J$)#8$,#  $C(K$'($'$$)#]  1
L(M1NO;o                      Ee1  u֋U    u   $<   F<*   <.   u܃1      kPu19   $<   F<.|   L-t  MEu܃1      kPu   9vd$<uF<.uL-t'  렺  
.
.   
  s
M
 
 
QNABSOLUTER=  QNABSOLUTER   QNABSOLUTER|   =?S87ARGU5VLVALUESLMEMBERYL	&OPTIONAL[\    ?>^   $`B]8Q&SB-IMPLR^%DEFUN<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SHORT-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SHORT-OPTION # ...) ...)`%( a$'($'$$$`1
b(c1de;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?i`5    j8 ?>k   $XB7IS-OPTION-TERMINATOR9<#&Xtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-OPTION-TERMINATOR) (QUOTE NIL))l%( m$'($'$$$X1
n(o1pq;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?tl5    u8 ?>v   #o  BD<E&DEFUN IS-OPTION-TERMINATORv#&XEP for IS-OPTION-TERMINATORwH$$$M$$#   (x$'($'$$#X  1
y$)#k$,#  $C(z$'($'$$)#]  1
{(|1}~;o                      Ee1  u֋U    u   $<   F<*   <.   u܃1      kPu19   $<   F<.|   L-t  MEu܃1      kPu   9vd$<uF<.uL-t  렺'  
.
.   
  s
M
 
 
QNABSOLUTER=  QNABSOLUTER   QNABSOLUTER|   =?kU\    ?>   $`Bk_<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-OPTION-TERMINATOR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-OPTION-TERMINATOR # ...) ...)%( $'($'$$$`1
(1;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   $XB7IS-LONG-OPTION9<#&Rtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-LONG-OPTION) (QUOTE NIL))%( $'($'$$$X1
(1;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?5    8 ?>   #  BD<E&DEFUN IS-LONG-OPTION#&XEP for IS-LONG-OPTIONH$$$M$$#   ($'($'$$#  1
$)#$,#  $C($'($'$$)#  1
(1;                      Ee  u֋U    u  ME$<?  F<*4  <.,  u܃1      kPu19  $<   F<.   L-t
  uu܃1      kPu   9   $<   F<.uxL-t
  u܃1      kPu   9vk$<u$F<.uL-t
'    
.
.
.   

M
 
 
 
QNABSOLUTER  QNABSOLUTERE  QNABSOLUTER   QNABSOLUTER   =?U\    ?>   $`B_<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-LONG-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-LONG-OPTION # ...) ...)%( $'($'$$$`1
(1;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   $XB7
DECOMPOSE-ARG9<#&Qtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::DECOMPOSE-ARG) (QUOTE NIL))%( $'($'$$$X1
(1;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?5    8 ?>   #  BNLONGLIDENTITY<LEQL<%FIND-POSITION<LSUBSEQ<LSEQUENCENSHORTCASE-FAILURENNAMELECASENDATUMN
EXPECTED-TYPEXN
POSSIBILITIESLERROR<&DEFUN DECOMPOSE-ARG#&XEP for DECOMPOSE-ARGH$$$M$$#   $$#  ($'($'$$#  1
$-#$$$C$$##  ($'($'$$-#  1
(1;                      Ee  U}؋   9E9     M$<   ]܋
   A=       J  ~  e=  }  ]C    ]C  ]CEH]      kP  ܋]܉}eUu]!      kPU}  t=}܃U!      kPUݹ   mc  c  M$<uA<*r<E
%   
N)   9Eu
   ܃$-   =1   55   9   CE؉C=   CA   CE   CI   C܋M   $   kP㐐
M
N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERw  QNABSOLUTERk  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERi   QNABSOLUTERU   QNABSOLUTER/   =?T7OPTION-TYPE5WLORLCONSLNULLLSIMPLE-ARRAYL*Z    ?>   $`B&Returns base-name,argument_<#&xtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DECOMPOSE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::DECOMPOSE-ARG # ...) ...)%( $'($'$$$`1
(1;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?  5      8 ?>  $XB7ANALYZE-ARG9<#&Otop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::ANALYZE-ARG) (QUOTE NIL))  %(   $'($'$$$X1
	  (
  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #   B8<<NARG<&DEFUN ANALYZE-ARG  #&XEP for ANALYZE-ARG  H$$$M$$#   (  $'($'$$#   1
  $*#  $$$C(  $'($'$$*#   1
  (  1    ;                       Ee   U܃U      kP     ܃U      kP  ul   ;   uF]U!      nP  ܋]Ӌݹ   mcc;%   t   }  ؋%   뒋   느
MQNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERz   QNABSOLUTER]   QNABSOLUTER4   =?$    U5VWX  %  Z&  '      ?>)  $`B(    &<Analyzes an argument. Returns option-type,base-name,argument)  _<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::ANALYZE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::ANALYZE-ARG # ...) ...)*  %( +  $'($'$$$`1
,  (-  1.  /  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?4  *  5    5  8 ?>6  $XB7FIND-OPTION9<#&Otop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::FIND-OPTION) (QUOTE NIL))7  %( 8  $'($'$$$X1
9  (:  1;  <  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =??  7  5    @  8 ?>A  #v  B7MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTIONC  #&XEP for FIND-OPTIOND  H$$$M$$#   $$#  (E  $'($'$$#`  1
F  $-#6  $$$C$$$c(G  $'($'$$-#e  1
H  (I  1J  K  ;v
                      Ee9  U}  t  \     [ÉP@  \  =t  t	ˋ}aMO$<   Qt  \     [ÉP@  \  =t  t	ˁ}     EX$<   =  u~܃U      kP  t7܃}      kP$<u?RME    
   
N
M
N

QNABSOLUTERR  QNABSOLUTER  QNABSOLUTER   QNRELATIVERalloc_8_to_ebx   QNRELATIVERalloc_8_to_ebxA   =?Q  6  7NAME7OPTIONST  5WZU  V      ?>X  $`BW  6  &AFind an option in option list. Handles using unique abbreviationsX  _<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FIND-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::FIND-OPTION # ...) ...)Y  %( Z  $'($'$$$`1
[  (\  1]  ^  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?c  Y  5    d  8 ?>e  $XB7MATCH-OPTION9<#&Ptop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::MATCH-OPTION) (QUOTE NIL))f  %( g  $'($'$$$X1
h  (i  1j  k  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?n  f  5    o  8 ?>p  #   B  <6  <&DEFUN MATCH-OPTIONp  #&XEP for MATCH-OPTIONq  H$$$M$$#   $$#  (r  $'($'$$#   1
s  $-#e  $$$C$$#   (t  $'($'$$-#   1
u  (v  1w  x  ;                       Ee   U}܃U      kP	  ܋U׉u܃}      kP  t&$<u+p}EEݹ   mcc  
M
QNABSOLUTERg   QNABSOLUTER7   =?{  e  TS  |  5W%  Z}  ~      ?>  $`B  e  &TMatches an argument to an option. Returns option-list,option-type,base-name,argument  _<#&vtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-OPTION # ...) ...)  %(   $'($'$$$`1
  (  1    ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XBA  9<#&]top level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::MATCH-UNIQUE-ABBREVIATION) (QUOTE NIL))  %(   $'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #w  BB  <STRING=*<L	BASE-CHARLVECTOR  LBASE-STRINGLSYMBOL    <    &DEFUN MATCH-UNIQUE-ABBREVIATION  #&!XEP for MATCH-UNIQUE-ABBREVIATION  H$$$M$$#   $$#  (  $'($'$$#h  1
  $-#A  $$$C$$#   (  $'($'$$-#m  1
  (  1    ;	w                      EeA  U}UU    UE  UU    UE    ?  ܃Uԋ}      kP$<  BEЋUЋU    9U  M$<  A<*t<  MЋ$<#  A<*t<  ܃U}1C  C    C        kP  tht  \     @\  =t  t	MЉHMԉHt  \     I\  =t  t	AE܉AM܋EԃEԋE;EM1ҁ  tI  t
$<t
Nu$E܋H$<r  QME  MЋ$<uA<.<~MЁ  $<uA<EЋ
   
NM$<uA<.i<~aM  R$<uA<?E
   
N9U܃U1u!      kPʋU$<  B<*t<  $<   A<*t<   ܃U1C  C    C        kP  Mt  \     @\  =t  t	MЉHMԉHt  \     I\  =t  t	AE܉AM$<uA<.><~6  *$<uA<%   
NU$<uB<.<~U  $<uB<E
)   
N
M

NQNABSOLUTERW  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eaxn  QNABSOLUTER@  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER^  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eaxS  QNABSOLUTER)  QNABSOLUTER   =?  A  7ABBR7STRINGS  V      ?>  $`B  A  &fReturns position of ABBR in STRINGS. ABBR may be a unique abbreviation.
Returns NIL if no match found.  _<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-UNIQUE-ABBREVIATION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-UNIQUE-ABBREVIATION # ...) ...)  %(   $'($'$$$`1
  (  1    ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7GETOPT9<#&Jtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::GETOPT) (QUOTE NIL))  %(   $	'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #  Bk<e  <<LNREVERSE<NREQUIRED8<<NNONE&DEFUN GETOPT  #&XEP for GETOPT  H$$$M$$#   $$#  (  $	'($'$$#  1
  $-#  $$$C$$#   (  $	'($'$$-#  1
  (  1    ;                      Ee  U}EEE  E  E  E  )  }    M$<U  P܃      kP    EX]̋EP}      nP  R    S  SUS]̉UԋM}    9=      Ӌ      nPt  \     @\  =t  t	PM؉HE؋M$<]  @E}  ܃U܋!      kPU܃U!      kPUu؋ݹ   mcc9=%   +t  \     @\  =t  t	XM܉HEB  e  Mԋ$<  H$<  A9)     uЋEH$<m  Q܃-      kPuЁ     EԋH$<4  A9)      EԋH$<  I$<  At  \     I\  =t  t	qAt  \     @\  =t  t	HM܉HEt  \     @\  =t  t	pM؉HEuЋEH$<[  Q܃1      kPuЁ  EH$<"  At  \     I\  =t  t	qAt  \     @\  =t  t	HMHEE@EE@=  t  \     @\  =t  t	pM؉HEUԋ$<[  P$<O  B;5   u9t  \     @\  =t  t	pM؉HEmt  \     @\  =t  t	pHt  \     I\  =t  t	AEAME'  M$<   @t  \     I\  =t  t	AE܉AM
M
NE
N
N
N
N
N
N
N
N
N


NQNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_ecx6  QNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNRELATIVERalloc_8_to_eaxk  QNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_8_to_ecx  QNABSOLUTER  QNRELATIVERalloc_8_to_eax[  QNRELATIVERalloc_8_to_eax"  QNRELATIVERalloc_8_to_ecx  QNABSOLUTER  QNABSOLUTER~  QNABSOLUTERU  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eaxA  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER|   =?    7ARGSS    5WLLIST    Z        ?>  $`B    %,  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  _<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::GETOPT) (SB-INT:NAMED-LAMBDA VCS-TREE::GETOPT # ...) ...)  %(   $	'($'$$$`1
  (  1     ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 QDEBUG-SOURCER

(	  $$-
  NFILE&F/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/getopt-excerpt.lisp  "
 
  "A   $ +
     b@i
  1                           ̾       ̦       ̒       ̆       x       k       ^       K       <       /                                     ̺        ̮        ̢        ̕        ̉        ~        q        e        O        ?        ,      ?>  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/main.lisp"
  	        at Monday, December 15, 2003 07:21:00 AM MST
  	        on pal
  	        using SBCL version 0.8.6.34
   X86/      NIL?>    #   BQ&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+,;                       Ee܃         kP$<uIBH+  uG;   tH3~+@/@;   u   P  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   $XBQ&VCS-TREER7IS-VCS-DIRECTORY%COMPILER-DEFUN<#&Ttop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-VCS-DIRECTORY) (QUOTE NIL)):%( ;$'($'$$$X1
<(=1>?;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?B:5    C8 ?>D   #o  BQLPATHNAMER

(E$$-FLPATHNAME-DIRECTORY<LLAST<&CVSISTRING=*<&.svnKLORL	BASE-CHARLVECTOROLBASE-STRINGLSYMBOLRR&DEFUN IS-VCS-DIRECTORYS#&XEP for IS-VCS-DIRECTORYTNEXTERNAL$$$M$$#   (V$'($'$$#`  1
W$*#8$$$C(X$'($'$$*#e  1
Y(Z1[\;
o                      Ee9  UM$<t  MEE@H+    ;     ܃U      kP܃      kP$<  J  ܃   1C  C    C  !      kP  t
'  6܃U      kP܃      kP$<#  Jt=$<uA<*t.<t*$<uA<.t<~t  t$<u7A<u0%   1E  E    E  !      u`)   
N$<uA<*<$<uA<.<~  $<uA<-   
NH3 @/@
;   #E
   
/N
M

QNABSOLUTERQ  QNABSOLUTER=  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER(  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTER`   =?j87Xl5mLVALUESLMEMBERpL	&OPTIONALrs    ?>u   $`Bt8Q&SB-IMPLRu%DEFUN<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-VCS-DIRECTORY # ...) ...)w%( x$'($'$$$`1
y(z1{|;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?w5    8 ?>   $XB7IS-CVS-MANAGED9<#&Rtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-CVS-MANAGED) (QUOTE NIL))%( $'($'$$$X1
(1;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?5    8 ?>   #   BN	DIRECTORYNRELATIVEIL
MAKE-PATHNAME<LMERGE-PATHNAMES<7PROBE-DIRECTORY<&DEFUN IS-CVS-MANAGED#&XEP for IS-CVS-MANAGEDU$$$M$$#  ($'($'$$ #   1
$(#$$$C($'($'$$(#   1
(1;                       Eeu[}܃   =         kP܃}      kP!      u`
MQNABSOLUTERm   QNABSOLUTERX   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER/   =?7DIR5mL*    ?>   $`Bv<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-CVS-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-CVS-MANAGED # ...) ...)%( $'($'$$$`1
(1;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   $XB7IS-SVN-MANAGED9<#&Rtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-SVN-MANAGED) (QUOTE NIL))%( $'($'$$$X1
(1;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?5    8 ?>   #   BK<<<&DEFUN IS-SVN-MANAGED#&XEP for IS-SVN-MANAGEDU$$$M$$#  ($'($'$$ #   1
$(#$$$C($'($'$$(#   1
(1;                       Eeu[}܃   =         kP܃}      kP!      u`
MQNABSOLUTERm   QNABSOLUTERX   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER/   =?    ?>   $`Bv<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SVN-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SVN-MANAGED # ...) ...)%( $'($'$$$`1
(1;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   $XB7FILTER-TREE9<#&Otop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::FILTER-TREE) (QUOTE NIL))%( $'($'$$$X1
(1;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?5    8 ?>   #  B8<BLEQUAL%COERCE-CALLABLE-TO-FUN<K%FIND-POSITION<BILNREVERSE<7FLATTEN<LCONS7IS-MANAGED-DIR<NCVSLSEQUENCENSVNFG<H<&DEFUN FILTER-TREE#&XEP for FILTER-TREEU$$$M$$#   ($'($'$$#  1
$*#$$$C($'($'$$*#  1
#  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))U$$$M$$#   ($'($'$#  #  1
#  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$C($'($'$#  #  1
#  #U$$$M$$#   ($'($'$#  #  1
#  #$$$C($'($'$#  #  1
(1   ;                      Eeq  UM$<t  ЋMEEP܃      kP  uEX$<&  ]         nP]e!     MA    MA  
   ]KMA]%      kP  `  EX$<+  ]         nP]e-     MA    MA  
)   ]KMA]%      kP  e    HM@EE@؋$<  Ë@EE  W]܋M$<  P      nP]܁  l  [$<  Ë@E  u܃U1      kP    }  g    t  \     [ÉP@  \  =t  t	]ˉu   ME@E܃5         kP܃U   kPt  \     [ÉP@  \  =t  t	ˁ}     EXE@EU$<R  =  ME@ȋѻ  B=  t-ڋR$<  =  u܋ы9      u`  tBCŋJ  
=   
N  t  \     [ÉP@  \  =t  t	]ˉu   ME@E܃5         kP܃U   kPt  \     [ÉP@  \  =t  t	ˁ}     EXE@EU$<  =  ME@ȋѻ  B=  tlڋR$<  =  u܋܃ы9      kPt  \     @\  =t  t	MHP  tBC놋J끸  
=   
NE}  u<t  \     @\  =t  t	MHMHEO]܋EPe}u]A      kP]܁  놋E@t  \     I\  =t  t	AE   A_$<uC<*r<I   
E@t  \     I\  =t  t	AM   A$<uC<*r<I   
                       Ee  UM$<  H$<t  MEAP+  un;Q   uKEP܃U      kP܃Y      kP$<D  R됋H3~@/@
;Q   tpQ   
/N                           Ee   UM$<   H$<t  MEAP+  uj;Q   uGEP܃U      kP܃Y      kP$<uoR딋H3~@/@
;Q   ttQ   
/N
M

N





M
N

M
N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTERO  QNABSOLUTER5  QNABSOLUTER"  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERg  QNABSOLUTERM  QNABSOLUTER:  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNABSOLUTER`  QNABSOLUTER9  QNRELATIVERalloc_8_to_ecx  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTERq  QNRELATIVERalloc_8_to_eax.  QNABSOLUTER  QNRELATIVERalloc_8_to_ebxo  QNABSOLUTER4  QNABSOLUTER.  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER@  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERm  QNABSOLUTERL  QNABSOLUTER,  QNABSOLUTER&  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERX   =?-  l5mnq.  /    -  0  -  l/    -  1  -  7TREE3      ?>5  $`B4  &yCalled for a directory tree. First argument is name of current tree.
Returns a list of directories managed by CVS or SVN.5  v<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FILTER-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::FILTER-TREE # ...) ...)6  %( 7  $'($'$$$`1
8  (9  1:  ;  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?@  6  5    A  8 ?>B  $XB9<#&Rtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-MANAGED-DIR) (QUOTE NIL))B  %( C  $'($'$$$X1
D  (E  1F  G  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?J  B  5    K  8 ?>L  #  BNNAME&entriesM  NTYPE<<7READ-FILE-TO-STRINGS<G<H<LSTRING&name="Q  &"R  LCONCATENATE<B%MAP<B<&D/U  &////V  &EntriesW  CASE-FAILURELECASENDATUMN
EXPECTED-TYPEo\  N
POSSIBILITIES^  LERROR<7STRING-TRIM-WHITESPACE<J<RR&DEFUN IS-MANAGED-DIRa  #&XEP for IS-MANAGED-DIRb  U$$$M$$#   $$#  $$#  (c  $'($'$$!#  1
d  $3#$$$C$$##  $$#C  (e  $'($'$$3#  1
f  #  #&%XEP for #'(LAMBDA (#:G188) (LET # #))g  U$$$M$$#   (h  $'($'$#  #  1
i  #  #&#'(LAMBDA (#:G188) (LET # #))j  $$$C(k  $'($'$#  #  1
l  #  #&%XEP for #'(LAMBDA (#:G184) (LET # #))m  U$$$M$$#   (n  $'($'$#  #  1
o  #  #&#'(LAMBDA (#:G184) (LET # #))p  $$$C(q  $'($'$#  #  1
r  (s  1t  u  ;',                      E`  U}؉uԋ   9E  ܃   =   5   C  !   C%   C)      kP܃}؋-      kP܃1      kPU܃U5      kP܃9      kP$<  B
   9M  ܃=   =A   E   CI      kPʋ   9E   E D EUeU, jB  t  \        @\  =t  t	PEU$<~   M   t  \     [C  BC\  =t  t	ECKe  u]Q      kP  E1ɉH  U$<uB<*r<hE
U   
NY   9E3   E D EUU, jBk  t  \        @\  =t  t	P|U$<   ]   t  \     [C  BC\  =t  t	|CKe  u]Q      kP㋅|1ɉHUa      u`U$<uB<*r<XE
U   
N  W  
Y   9Mu8܃=   =e   i   CI      kPE  ;Y   9EuJ܃   =m   5   C  !   Cq   C)      kP$܃$u   =   5y   }   CEԉC   C   C   C   C܋   $   kP㋥EM 
D ] 9t!B	t
JHB    9u |1ɉH'  ӋME  SeڋEM 
D u 9t!B	t
JHB    9u E1ɉH                           E`X@  U]E܃U      kPʀua܃U1C  C    C        kP  u  MEE@11    $<uA<*t<t$<uA<.y<~q  e$<uA<R   
N                      E`X@   U]E܃U      kPʀuj܃U1C  C    C        kP  t'  R   E@      ME$<uA<*t<t$<uA<.p<~h  \$<uA<I   
N
M

M
MQNABSOLUTER  QNRELATIVERQUNWINDRO  QNABSOLUTER   QNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDRB  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER|  QNABSOLUTERv  QNABSOLUTERp  QNABSOLUTERj  QNABSOLUTERK  QNABSOLUTERB  QNABSOLUTER9  QNABSOLUTER,  QNABSOLUTER&  QNABSOLUTER   QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER\  QNRELATIVERalloc_16_to_ebx  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTERw  QNABSOLUTERk  QNABSOLUTER'  QNRELATIVERalloc_16_to_ebx  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTERK  QNABSOLUTER4  QNABSOLUTER+  QNABSOLUTER#  QNABSOLUTER  QNABSOLUTER	  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERk   QNABSOLUTERb   QNABSOLUTERU   QNABSOLUTERO   QNABSOLUTERI   QNABSOLUTER5   =?  p  
G184  5mnLNULLq            j  
G188            7SUBDIRLTYPE  5        ?>  $`B  v<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-MANAGED-DIR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-MANAGED-DIR # ...) ...)  %(   $'($'$$$`1
  (  1    ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7PROCESS-VCS-DIRECTORY9<#&Ytop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (QUOTE NIL))  %(   $'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #L  B<<&svn  L*ERROR-OUTPUT*&8INTERAL ERROR: not a version control system directory ~A  LFORMAT<7QUIT<&cvs  NUPDATE&	~A update  L
NAMESTRING<&(cd ~A; ~A)  &~A ~A:~%  NWHOLE7SHELL-COMMAND-OUTPUT<&~A~%  &Exit status ~D: ~A ~A~%  NSTATUS&	~A status  NCOMMITLCAR<LSTRING=<&m  <& -m "~A"  &~A commit~A  &   X  L  Y  Z  [  o        ]          _  <&DEFUN PROCESS-VCS-DIRECTORY  #&XEP for PROCESS-VCS-DIRECTORY  U$$$M$$#   $$#  $$#  (  $'($'$$#8  1
  $0#  $$$C$$$c$$#   (  $'($'$$0#=  1
  #   #&FLET VCS-TREE::PROCESS  $$$C$$##  (  $'($'$#   #B  1
  (  1    ;)L.                      Ee  U}u܃U      kP     ܃U      kP  t   E؋]E]   P     ܃=!   u%      kP   )      u`-   E؋]E;1   d  ܃  =5   u؋%      kPU܃U9      kP܃  ==   EC%      kPU܃U9      kP܃'  =A   uC%      kP܃U=E   uI   CC'  M      kP	  ܋ډ]}u1    u]  t'  =Q   %      u`'  =U   ]%      u`;Y   u0܃  =]   u؋%      kPU;a   5  $<  ]
e   A=    Ei   m      nP]eq     MA    MA  M]KMA]u      kP  ti$<   r܃  =y   %      kP܃  =}   u؉C%      kPUy   ŋ$<uC<*r<   
܃$   =   5   
   KC   C   C   C   C܋   $   kP㐐
M

N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERb  QNABSOLUTER\  QNABSOLUTER&  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERy  QNABSOLUTERp  QNABSOLUTER^  QNABSOLUTERM  QNABSOLUTERD  QNABSOLUTER.  QNABSOLUTER&  QNRELATIVERQ&SB-VM	  	GENERIC-=R  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERz  QNABSOLUTERZ  QNABSOLUTERN  QNABSOLUTER-  QNABSOLUTER
  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERc   QNABSOLUTER:   =?3    7ACTION7OPTIONS6        ?>8  $`B7    v<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)8  %( 9  $'($'$$$`1
:  (;  1<  =  ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?A  8  5    B  8 ?>C  $XBLSPECIAL7
*PROGNAME*E  LPROCLAIM<#&#top level form (PROCLAIM (QUOTE #))G  %( H  $'($'$$$X1
I  (J  1K  L  ;X                       Ee܃         kP  MEᐐQNABSOLUTER+   QNABSOLUTER%   =?O  G  5    P  8 ?>Q  $hBD    LSET<#&-top level form (IF (NOT #) (PROGN NIL #) ...)R  %( S  $'($'$$$h1
T  (U  1V  W  ;h 
                      Ee   @=   u&܃   =         kP  MEQNABSOLUTERA   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER    =?\  R  5    ]  8 ?>^  $8B#&+top level form (QUOTE VCS-TREE::*PROGNAME*)^  %( _  $'($'$$$81
`  (a  1b  c  ;8                       Ee  MEᐐ=?d  ^  5    e  8 ?>f  $XB7USAGE9<#&Itop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::USAGE) (QUOTE NIL))g  %( h  $'($'$$$X1
i  (j  1k  l  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?o  g  5    p  8 ?>q  #  B  D  &usage: ~A action [OPTIONS]~%q    <&3Processes a source-control managed directory tree~%r  &#Action: update, commit, or status~%s  &	OPTIONS~%t  &"   -m <str>    Set commit string~%u  L
WRITE-CHAR<&DEFUN USAGEw  #&
XEP for USAGEx  U$$$M$$#   (y  $'($'$$R#  1
z  $d#&SB-INT:&MORE processing{  NOPTIONAL$$#   $$#  $$$M(}  $'($'$$d#  1
~  #   #&!varargs entry for VCS-TREE::USAGE  $7MSG$C$7MSG-ARGS$c(  $
OPTIONAL-ARGS$ REST-ARG$(  ($'$#   #  1
  #  #&&OPTIONAL processor 67  |  $$$(  $'($'$#  #  1
  #  #&&OPTIONAL processor 57  |  (   $'($'$#  #  1
  (	  1    ;                      Ev/])ˋكvWV|$)^_ˉ}܃tueuV  tڿ  JM    t  \     RRBB  \  =t  t	]}   P        p     ܃=         kP}        P     ܃=!         kP   P   k  ܃=%         kP   P   ;  ܃=)         kP   P     =-         u`   p        P      RE   UR   M$<   ܺ  9tqI$<t
N)]Ƌ)S{skP   x   tg܃
  1      kPEE  
  








N
QNABSOLUTER  QNABSOLUTERo  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER~  QNABSOLUTERi  QNABSOLUTERc  QNABSOLUTERI  QNABSOLUTER4  QNABSOLUTER.  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNRELATIVERalloc_to_edx   =?  f  q  L&REST    5q    nLOP    q        ?>  $`B  f  v<#&htop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::USAGE) (SB-INT:NAMED-LAMBDA VCS-TREE::USAGE # ...) ...)  %(   $'($'$$$`1
  (  1    ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7PARSE-ACTION-ARG9<#&Ttop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::PARSE-ACTION-ARG) (QUOTE NIL))  %(   $	'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #  B&ci  J<  &update  &commit  &status    7MATCH-UNIQUE-ABBREVIATION<    &Unknown action: ~A  f  <  <R&DEFUN PARSE-ACTION-ARG  #&XEP for PARSE-ACTION-ARG  U$$$M$$#   (  $	'($'$$#  1
  $*#  $$$C(  $	'($'$$*#  1
  (  1    ;
                      EeY  UM   ܃U=   1C  C    C        kP  t   ME܃U=   !      kP u%   tFu)   믋܃-   }1      kP   5      u`   kM$<uA<*
<M$<uA<.<~M  $<uA<E
9   
N
MQNABSOLUTERv  QNABSOLUTER
  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERz   QNABSOLUTER]   QNABSOLUTER@   =?    7ARG      ?>  $`B    v<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PARSE-ACTION-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::PARSE-ACTION-ARG # ...) ...)  %(   $	'($'$$$`1
  (  1    ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  $XB7MAIN9<#&Gtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE:MAIN) (QUOTE NIL))  %(   $
'($'$$$X1
  (  1    ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?    5      8 ?>  #  BD    NREQUIRED    7GETOPT<f  <  <  <7CWD<7DIRECTORY-TREE<<7MKLIST<  <&Invalid action ~A   7COMMAND-LINE-ARGUMENTS<&
DEFUN MAIN  #&XEP for MAIN  U$$$M$$#   (  $
'($'$$#  1
  $6#&%hairy arg processor for VCS-TREE:MAIN  $7ARGV$C(  $
  $ (	  ($'$$6#  1

  #  #&&OPTIONAL processor 89  |  (   $
'($'$#  #  1

  (  1    ;                      Eeu  uU
MM$<  P   
 C
 AYSEP܃=         kP	  ܋U}    ԃ   1ɉjP܃   !      kPM$<  P܃%      kPU  #  ԃ)   1ɉjP܃-      kP܃1      kP܃5      kP0S[]e}u]9      kP]$<  =  u܃1ҋ!      kP
R   
S{sً BJHB     EuV}ˋ݋m    Ex܃=         kP܃   !      kPUU    5ԃA   1ɉjPUc
N
N
QNABSOLUTER  QNABSOLUTERv  QNABSOLUTERW  QNABSOLUTERQ  QNRELATIVERQRETURN-MULTIPLER@  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERs  QNABSOLUTERY  QNABSOLUTER?  QNABSOLUTER(  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER~   QNABSOLUTERx   QNABSOLUTERL   =?#    q    $  %  &  5q'  (      ?>*  $`B)    v<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE:MAIN) (SB-INT:NAMED-LAMBDA VCS-TREE:MAIN # ...) ...)*  %( +  $
'($'$$$`1
,  (-  1.  /  ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?3  *  5    4  8 QDEBUG-SOURCER

(6  $$-7  NFILE&</opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/main.lisp9  "H@ :  "A ;  $ +     2g<  1=  >  ?  /     ?       ?       ?       ?       ?  ̾     ?  ̲     ?  ̏     ?  l     ?  c     ?  W     ?  L     ?  =     ?       ?       ?       ?  u     ?  G     ?  ;     ?        ?        ?        ?        ?  ̸      ?  ̬      ?  ̛      ?  ̈      ?  |      ?  \      ?  ?      ?  ,      ?>@  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/loader.lisp"
  	        at Monday, December 15, 2003 07:21:00 AM MST
  	        on pal
  	        using SBCL version 0.8.6.34
   X86/      NIL?>    #   BN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*+;                       Ee܃         kP$<uIBH+  uG;   tH3~+@/@;   u   P  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?3#LFUNCTION    58 ?>6   $XBQ&COMMON-LISP-USERR6RUN%COMPILER-DEFUN<"&Otop level form (SB-C:%COMPILER-DEFUN (QUOTE COMMON-LISP-USER::RUN) (QUOTE NIL))9$( :$&'$'$$$X1
;(<1=>;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?A94    B8 ?>C   #  BBLERROR*HANDLER-CLUSTERS*&vcs-treeEQ&VCS-TREERFMAIN<L*ERROR-OUTPUT*&%vcs-tree failed due to error:~%  ~A~%ILFORMAT<NUNIX-STATUSQ&SB-EXTRLQUIT<&	DEFUN RUNN"&XEP for RUNONEXTERNAL$$$M(Q$&'$'$$#  1
R$&"7( S$&'$'$$&#  1
T#x  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G8 SB-IMPL::TEMP) ...)UP$$$C$$$c(V$&'$'$#  #  1
W#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G8 SB-IMPL::TEMP) ...)X$$#  (Y$&'$'$#  #  1
Z([1\];                      Ee    t  \        @\  =t  t	HE܋ EЋ 
D EԉM؉e̍M, iA  t  \        @\  =t  t	HEȋ   t  \     IA  BA\  =t  t	EȉAE܉At  \     @\  =t  t	   PHt  \     [ÉP@  \  =t  t	
   A=   R  t  \     R\  =t  t	ZB   
 C
 AYS?  H     $<  y   t  \     [ÉPx\  =t  t	Ӌ܃!      kP
R   
S{sٛ BJHB     E1ɉH   e̋EԋM؉ 
D ]Ћ 9t!B	t
JHB    9u E܋p%   P      ܃=)   -      kP܃1      5      kP
R   
S{sًE1ɉHEuV}ˋ݋m                          EeX@MUMuG͋ԃ@uJE  pC11    
M
N

N

MQNRELATIVERQUNWINDR  QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLERt  QNABSOLUTER#  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER<  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_edx  QNABSOLUTERy  QNRELATIVERalloc_8_to_ebxR  QNABSOLUTER7  QNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_16_to_ecx   QNABSOLUTER   QNRELATIVERalloc_8_to_eax   QNABSOLUTER   QNRELATIVERalloc_8_to_eax:   =?vXQ&SB-IMPLRwTEMPy4z{x  v|v74L*~    ?>   $`B7w%DEFUN<"&vtop level form (SB-IMPL::%DEFUN (QUOTE COMMON-LISP-USER::RUN) (SB-INT:NAMED-LAMBDA COMMON-LISP-USER::RUN NIL ...) ...)$( $&'$'$$$`1
(1;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?4    8 QDEBUG-SOURCER	($$-NFILE&>/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2/loader.lisp"
 "A $ +     1̆      ]      >      +      ?>   @