#!/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.1.1/package.lisp"
  	        at Sunday, October 19, 2003 05:20:48 PM MDT
  	        on tiger
  	        using SBCL version 0.8.4
   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&A/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/package.lisp]" ^"К= _$ +     #`1abcO      cC      c,      ?>d   @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/kmrcl-excerpt.lisp"
  	        at Sunday, October 19, 2003 05:20:48 PM MDT
  	        on tiger
  	        using SBCL version 0.8.4
   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 ?>   #   BLSTRING-TRIM<LSEQUENCE&DEFUN STRING-TRIM-WHITESPACE#&XEP for STRING-TRIM-WHITESPACEN$$$M$$#  ('($'$$ $x1
$'#$$#  ('($'$$'$}1
(1; 
                      EeuS   H   tE$<t$<u A<*r<wы      u`   
N
M
QNABSOLUTERj   QNABSOLUTERY   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 (#:WHOLE30 #:ENVIRONMENT31) (DECLARE #) ...)N$$$M$$#   $`('($'$$#  1
$*#&6#'(LAMBDA (#:WHOLE30 #:ENVIRONMENT31) (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   =?
WHOLE30

ENVIRONMENT31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
0  (1  12  3  ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?7  .  5    8  8 ?>9  $XB7MKLIST9<#&Jtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::MKLIST) (QUOTE NIL)):  %( ;  '($'$$$X1
<  (=  1>  ?  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?B  :  5    C  8 ?>D  $}B&DEFUN MKLISTD  #&XEP for MKLISTE  N$$$M$$#   (F  '($'$$$x1
G  $%#9  $$#  (H  '($'$$%$}1
I  (J  1K  L  ;}                       EeuU$<tGt  \     [ÉP@  \  =t  t	ӋME
MQNRELATIVERalloc_8_to_ebx>   =?N  9  7OBJP  s    ?>R  $`BQ  9  &Make into list if atomR  w<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)S  %( T  '($'$$$`1
U  (V  1W  X  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?]  S  5    ^  8 ?>_  $XB7DIRECTORY-TREE9<#&Rtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (QUOTE NIL))`  %( a  '($'$$$X1
b  (c  1d  e  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?h  `  5    i  8 ?>j  #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u  LERROR<_  <LCONS&~Ax  &DEFUN DIRECTORY-TREEy  #&XEP for DIRECTORY-TREEz  N$$$M$$#   ({  '($'$$#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j  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k  m  NVERSIONn  o  <l  LSTRING&.  LCONCATENATE<QvPATTERNR

(  $$-  N
UNSPECIFIC&!DEFUN CANONICALIZE-DIRECTORY-NAME  #&#XEP for CANONICALIZE-DIRECTORY-NAME  N$$$M$$#   (  '($'$$#  1
  $*#j  $$$C(  '($'$$*#
  1
  #  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#   (  '+   N  $'$#  #
  1
  (  1    ;
                      Ee  U܃U      kPU؋܃U؋      kPŋ̃@AE   o  u܃U؋      kPŋ̃@AE  5  u  U               uU؋ME]U؋      nPŋ̃@AE    ]ы!      nP%   5)   E  -   EE  1   EE  5   E܋9   (   u`t  \     [ÉP@  \  =t  t	t  \     [ÉP@  \  =t  t	  $<tz;5=   td܃A   5E   KI      kPt  \     [ÉP@  \  =t  t	HM   
FP+  u';Q   t܋P3d@/@;Q   tQQ   
/;U   tʍem   
MQNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebxs  QNABSOLUTERQ  QNABSOLUTERH  QNABSOLUTER@  QNABSOLUTER3  QNRELATIVERalloc_8_to_ebx  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERo  QNABSOLUTERb  QNABSOLUTER\  QNABSOLUTERE  QNABSOLUTER.  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERv   QNABSOLUTERT   QNABSOLUTER4   =?  j    5no  q        ?>  $`B  j  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q  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j  <L
NAMESTRING<Q&SB-UNIXR	  UNIX-FILE-KIND<  &DEFUN PROBE-DIRECTORY	  #&XEP for PROBE-DIRECTORY
  N$$$M$$#   (  '($'$$#   1
  $*#q  $$$C(
  '($'$$*#   1
  (  1    ; 
                      Eey   U܃U      kP܃      kP܃      kP9   u'  ME  ꐐ
MQNABSOLUTER}   QNABSOLUTERh   QNABSOLUTERN   QNABSOLUTER4   =?  q    5noLMEMBER  q        ?>  $`B  q  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%   =?0  (  5    1  8 ?>2  #  B	  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(5  $$-6  L*DEFAULT-PATHNAME-DEFAULTS*  QLLOGICAL-PATHNAMER

6  (9  $$-:  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWD<  #&XEP for CWD=  N$$$M$$#   (>  '($'$$#  1
?  $5#&%hairy arg processor for VCS-TREE::CWD@  $7DIR#   $C(B  
OPTIONAL-ARGS$ (D  ($'$$5#  1
E  #  #&&OPTIONAL processor 78F  NOPTIONAL( H  '($'$#  #  1
I  (J  1K  L  ;	                      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   =?Y  '  qA  Z  5q[  +  \      ?>^  $`B]  '  &)Change directory and set default pathname^  w<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)_  %( `  '($'$$$`1
a  (b  1c  d  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?i  _  5    j  8 ?>k  $XB7QUIT9<#&Htop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::QUIT) (QUOTE NIL))l  %( m  '($'$$$X1
n  (o  1p  q  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?t  l  5    u  8 ?>v  #   BNUNIX-STATUSQ&SB-EXTR	w  QUIT<&
DEFUN QUITy  #&XEP for QUITz  N$$$M$$#   ({  '($'$$#   1
|  $2#&&hairy arg processor for VCS-TREE::QUIT}  $7CODE#  (  C  $ (  ($'$$2#   1
  $u#&&OPTIONAL processor 40  G  (   '($'$$u#   1
  (  1    ;                       EeuQu
M   t$<u F<"w         u`  u1ݿ   1빐QNABSOLUTERS   QNABSOLUTERM   =?  k  q~  $     5[        ?>  $`B  k  &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	w  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  G  $$#  $,#   #   $$#   (  '($'$$r#  1
  #   #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $7CMD$C(  $   DELETED    (  ($'$#   #  1
  #  #&FLET #:CLEANUP-FUN-148  T(   '+     $'$#  #  1
  #  #&FLET #:CLEANUP-FUN-139  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p  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    0  8 QDEBUG-SOURCER

(2  $$-3  NFILE&G/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/kmrcl-excerpt.lisp5  " 6  "К= 7  $ +     ]GF	&8  19  :  ;  +     ;       ;       ;  ̸     ;  ̯     ;  ̢     ;  ̕     ;  ̇     ;  q     ;  d     ;  L     ;  -     ;  !     ;       ;       ;       ;       ;  ̴     ;  ̨     ;  ́     ;  e     ;  X     ;  L     ;  ?     ;  3     ;  !     ;       ;       ;        ;        ;  ̽      ;  ̮      ;  ̥      ;  ̙      ;  ̍      ;  }      ;  Z      ;  ?      ;  ,      ?><  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/getopt-excerpt.lisp"
  	        at Sunday, October 19, 2003 05:20:48 PM MDT
  	        on tiger
  	        using SBCL version 0.8.4
   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   #  BLARRAY-DIMENSION<L
SIMPLE-STRINGLSEQUENCE&DEFUN IS-SHORT-OPTIONG#&XEP for IS-SHORT-OPTIONHNEXTERNAL$$$M$$#   (J'($'$$#  1
K$)#8$,#  $C(L'($'$$)#  1
M(N1OP;
                      Eea  $<.  u֋U    u   $<   F<*   <.   u܃1      kPu19   $<   F<.   L-t  MEu܃1      kPu   9   $<uF<.uL-t'  뜺  
.
.   
  o$<uF<*r<   

M
 
 
QNABSOLUTER|  QNABSOLUTERM  QNABSOLUTER   QNABSOLUTER   =?U87ARGW5XLVALUESLMEMBER[L	&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 # ...) ...)b%( c'($'$$$`1
d(e1fg;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?kb5    l8 ?>m   $XB7IS-OPTION-TERMINATOR9<#&Xtop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::IS-OPTION-TERMINATOR) (QUOTE NIL))n%( o'($'$$$X1
p(q1rs;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?vn5    w8 ?>x   #  BD<EF&DEFUN IS-OPTION-TERMINATORx#&XEP for IS-OPTION-TERMINATORyI$$$M$$#   (z'($'$$#  1
{$)#m$,#  $C(|'($'$$)#  1
}(~1;
                      Eea  $<.  u֋U    u   $<   F<*   <.   u܃1      kPu19   $<   F<.   L-t  MEu܃1      kPu   9   $<uF<.uL-t  뜺'  
.
.   
  o$<uF<*r<   

M
 
 
QNABSOLUTER|  QNABSOLUTERM  QNABSOLUTER   QNABSOLUTER   =?mW^    ?>   $`Bma<#&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F&DEFUN IS-LONG-OPTION#&XEP for IS-LONG-OPTIONI$$$M$$#   ('($'$$#  1
$)#$,#  $C('($'$$)#  1
(1;
                      Ee  $<  u֋U    u  ME$<G  F<*<  <.4  u܃1      kPu19E  $<   F<.   L-t
  uu܃1      kPu   9   $<   F<.|   L-t
  u܃1      kPu   9   $<u$F<.uL-t
'    
.
.
.   
$<uF<*r<R   

M
 
 
 
QNABSOLUTER  QNABSOLUTER  QNABSOLUTERU  QNABSOLUTER   QNABSOLUTER   =?W^    ?>   $`Ba<#&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<FNSHORTCASE-FAILURENNAMELECASENDATUMN
EXPECTED-TYPEZN
POSSIBILITIESLERROR<&DEFUN DECOMPOSE-ARG#&XEP for DECOMPOSE-ARGI$$$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/   =?V7OPTION-TYPE5YLORLCONSLNULLLSIMPLE-ARRAYL*\    ?>   $`B&Returns base-name,argumenta<#&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  I$$$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   =?'  	  W5XYZ  (  \)  *      ?>,  $`B+  	  &<Analyzes an argument. Returns option-type,base-name,argument,  a<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::ANALYZE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::ANALYZE-ARG # ...) ...)-  %( .  '($'$$$`1
/  (0  11  2  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?7  -  5    8  8 ?>9  $XB7FIND-OPTION9<#&Otop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::FIND-OPTION) (QUOTE NIL)):  %( ;  '($'$$$X1
<  (=  1>  ?  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?B  :  5    C  8 ?>D  #  B7MATCH-UNIQUE-ABBREVIATION<LNTHCDR<L
UNSIGNED-BYTE&DEFUN FIND-OPTIONG  #&XEP for FIND-OPTIONH  I$$$M$$#   $$#  (I  '($'$$#  1
J  $-#9  $$$C$$$c(K  '($'$$-#  1
L  (M  1N  O  ;
                      Eey  U}  t  \     [ÉP@  \  =t  t	ˋ}aMO$<$  Qt  \     [ÉP@  \  =t  t	ˁ}     EX$<   =  u~܃U      kPځ  trt$<uYC<
uR]1    ]  u9Ӌ}      nP$<uNRME   
  ޸  
   
N
M
N

QNABSOLUTER  QNABSOLUTERw  QNABSOLUTERH  QNRELATIVERQ&SB-VM	T  	GENERIC-<R+  QNABSOLUTER   QNRELATIVERalloc_8_to_ebx   QNRELATIVERalloc_8_to_ebxA   =?Y  9  7NAME7OPTIONS\  5Y\]  ^      ?>`  $`B_  9  &AFind an option in option list. Handles using unique abbreviations`  a<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FIND-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::FIND-OPTION # ...) ...)a  %( b  '($'$$$`1
c  (d  1e  f  ;` 
                      Ee܃   =   5         kP  MEᐐQNABSOLUTER7   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?k  a  5    l  8 ?>m  $XB7MATCH-OPTION9<#&Ptop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::MATCH-OPTION) (QUOTE NIL))n  %( o  '($'$$$X1
p  (q  1r  s  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?v  n  5    w  8 ?>x  #   B	  <9  <&DEFUN MATCH-OPTIONx  #&XEP for MATCH-OPTIONy  I$$$M$$#   $$#  (z  '($'$$#   1
{  $-#m  $$$C$$#   (|  '($'$$-#   1
}  (~  1    ;                       Ee   U}܃U      kP	  ܋U׉u܃}      kP  t&$<u+p}EEݹ   mcc  
M
QNABSOLUTERg   QNABSOLUTER7   =?  m  V[    5Y(  \        ?>  $`B  m  &TMatches an argument to an option. Returns option-list,option-type,base-name,argument  a<#&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D  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 ?>  #  BE  <STRING=*<L	BASE-CHARLVECTOR  LBASE-STRINGLSYMBOL    <    F&DEFUN MATCH-UNIQUE-ABBREVIATION  #&!XEP for MATCH-UNIQUE-ABBREVIATION  I$$$M$$#   $$#  (  '($'$$#  1
  $-#D  $$$C$$#   (  '($'$$-#  1
  (  1    ;
                      Ee  U}M$<  UU    UE  M$<J  UU    UE    N  ܃Uԋ}      kP$<U  BEЋMЋ$<  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$<  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
)   
NMЋ$<uA<*r<-EЋ
-   
NM$<uA<*r<E
-   
NM$<uA<*r<BE
-   
N
M

NQNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER5  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eax  QNABSOLUTERm  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eax  QNABSOLUTERV  QNABSOLUTER   =?  D  7ABBR7STRINGS  ^      ?>  $`B  D  &fReturns position of ABBR in STRINGS. ABBR may be a unique abbreviation.
Returns NIL if no match found.  a<#&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m<m  <<LNREVERSE<NREQUIRED8<<NNONE&DEFUN GETOPT  #&XEP for GETOPT  I$$$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[    5YLLIST    \        ?>  $`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  a<#&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&H/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/getopt-excerpt.lisp  "   "К=   $ +
     b@i
  1                                  ̮       ̚       ̎       ̀       s       f       O       ?       2                                    ̾        ̲        ̥        ̘        ̌        ̀        s        g        P        ?        ,      ?>  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/main.lisp"
  	        at Sunday, October 19, 2003 05:20:48 PM MDT
  	        on tiger
  	        using SBCL version 0.8.4
   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  u  ME'  R   E@    $<uA<*t<t$<uA<.p<~h  \$<uA<I   
N
M

M
MQNABSOLUTER  QNRELATIVERQUNWINDRc  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 ?>  #,  B<<&svn  L*ERROR-OUTPUT*&8INTERAL ERROR: not a version control system directory ~A  LFORMAT<7QUIT<&cvs  NUPDATE&	~A update  NWHOLE7SHELL-COMMAND-OUTPUT<L
NAMESTRING<&~A ~A: ~A~%  &~A ~A: ~A ~A ~A~%  LNUMBERN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$$#   $$#  $$#  (  '($'$$#  1
  $0#  $$$C$$$c$$#   (  '($'$$0#  1
  #   #&FLET VCS-TREE::PROCESS  $$$C$$##  (  '($'$#   #"  1
  (  1    ;(,,                      Ee  U}u܃U      kP     ܃U      kP  t   E؋]E]   P   y  ܃=!   u%      kP   )      u`-   E؋]E;1   E  ܃  =5   u؋%      kPU܃U=9   u=   CC'  A      kP	  ܋U}uMt$<   A<"   U1      tA܃UE      kPº'  =I   uE%      u`܃UE      kPº'  =M   uEEEEE%      u`E
Q   
N;U   u0܃  =Y   u؋%      kPU;]   5  $<  ]
a   A=  ~  Ee   i      nP]em     MA    MA  M]KMA]q      kP  ti$<   r܃  =u   %      kP܃  =y   u؉C%      kPU}   ŋ$<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ABSOLUTERp  QNABSOLUTERd  QNABSOLUTERC  QNABSOLUTER=  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERw  QNABSOLUTERZ  QNABSOLUTERQ  QNABSOLUTER?  QNABSOLUTER3  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERQ&SB-VM	  	GENERIC-=R  QNABSOLUTERF  QNABSOLUTER6  QNABSOLUTER-  QNABSOLUTER
  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERc   QNABSOLUTER:   =?/    7ACTION7OPTIONS2        ?>4  $`B3    v<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)4  %( 5  '($'$$$`1
6  (7  18  9  ;` 
                      Ee܃   =           kP  MEᐐQNABSOLUTER6   QNABSOLUTER+   QNABSOLUTER%   =?=  4  5    >  8 ?>?  $XBLSPECIAL7
*PROGNAME*A  LPROCLAIM<#&#top level form (PROCLAIM (QUOTE #))C  %( D  '($'$$$X1
E  (F  1G  H  ;X                       Ee܃         kP  MEᐐQNABSOLUTER+   QNABSOLUTER%   =?K  C  5    L  8 ?>M  $hB@    LSET<#&-top level form (IF (NOT #) (PROGN NIL #) ...)N  %( O  '($'$$$h1
P  (Q  1R  S  ;h 
                      Ee   @=   u&܃   =         kP  MEQNABSOLUTERA   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER    =?X  N  5    Y  8 ?>Z  $8B#&+top level form (QUOTE VCS-TREE::*PROGNAME*)Z  %( [  '($'$$$81
\  (]  1^  _  ;8                       Ee  MEᐐ=?`  Z  5    a  8 ?>b  $XB7USAGE9<#&Itop level form (SB-C:%COMPILER-DEFUN (QUOTE VCS-TREE::USAGE) (QUOTE NIL))c  %( d  '($'$$$X1
e  (f  1g  h  ;X                       Ee܃           kP  MEQNABSOLUTER0   QNABSOLUTER%   =?k  c  5    l  8 ?>m  #  B  @  &usage: ~A action [OPTIONS]~%m    <&3Processes a source-control managed directory tree~%n  &#Action: update, commit, or status~%o  &	OPTIONS~%p  &"   -m <str>    Set commit string~%q  L
WRITE-CHAR<&DEFUN USAGEs  #&
XEP for USAGEt  U$$$M$$#   (u  '($'$$R#  1
v  $d#&SB-INT:&MORE processingw  NOPTIONAL$$#   $$#  $$$M(y  '($'$$d#  1
z  #   #&!varargs entry for VCS-TREE::USAGE{  $7MSG$C$7MSG-ARGS$c(~  
OPTIONAL-ARGS$ REST-ARG$(  ($'$#   #  1
  #  #&&OPTIONAL processor 5  x  $$$(  '($'$#  #  1
  #  #&&OPTIONAL processor 90  x  (   '($'$#  #  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   =?  b  q|  L&REST}    5q    nLOP    q        ?>  $`B  b  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  b  <  <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@    NREQUIRED    7GETOPT<b  <  <  <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 70  x  (   '($'$#  #  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]$<L  =  u܃1ҋ!      kP
R   
S{sً BJHB     EuV}ˋ݋m    Ex܃=         kP܃   !      kPM$<u&UU    *M$<uA<*r<vċE
A   
NԃE   1ɉjPU3
N
N
QNABSOLUTER  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%   =?0  '  5    1  8 QDEBUG-SOURCER

(3  $$-4  NFILE&>/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/main.lisp6  " 7  "К= 8  $ +     2g}9  1:  ;  <  ,     <       <       <       <       <  ̺     <  ̮     <  ̋     <  h     <  _     <  S     <  H     <  9     <       <       <       <  u     <  G     <  ;     <        <        <        <        <  ̸      <  ̬      <  ̛      <  ̈      <  |      <  \      <  ?      <  ,      ?>=  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.1.1/loader.lisp"
  	        at Sunday, October 19, 2003 05:20:48 PM MDT
  	        on tiger
  	        using SBCL version 0.8.4
   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$$$M$$#   (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=   *  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@u(PC11    
M
N

N

MQNRELATIVERQUNWINDR  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:   =?uXQ&SB-IMPLRvTEMPx4yzx  u{u74L*}    ?>   $`B~7v%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.1.1/loader.lisp" "К= $ +     1̅      ]      >      +      ?>   @