#!/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) (handler-bind ((style-warning #'muffle-warning) (compiler-note #'muffle-warning)) (load i)) (funcall (quote RUN)) (quit))" --end-toplevel-options ${1+"$@"}
# FASL
  	        compiled from "/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/package.lisp"
  	        at Friday, September 12, 2003 12:13:11 PM MDT
  	        on lynx
  	        using SBCL version 0.8.3.42
   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&;/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/package.lisp]" ^"7 _$ +     #`1abcO      cC      c,      ?>d   @# FASL
  	        compiled from "/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/kmrcl-excerpt.lisp"
  	        at Friday, September 12, 2003 12:13:12 PM MDT
  	        on lynx
  	        using SBCL version 0.8.3.42
   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;Et]t  \     I\  =t  t	AEAM܃Uȿ  u!      kP랋܃U%      kPUE̹  H,  , ŋ̃`Ű]ȉAE	     UMEU]MEMĉ 
D ] 9t!B	t
JHB    9u ŋ̃`Ű]ȉAE  E]M      u  em reӋ=)   ]-      kPǐ
MQNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDRX  QNABSOLUTERH  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERj  QNRELATIVERalloc_8_to_ecx3  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$<uы      u`$<uA<*r<v؋   
N
M
QNABSOLUTERj   QNABSOLUTERF   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<LDEFMACRO7AIF7TEST7THENq7ELSEARG-COUNT-ERROR<7ITv
BACKQ-LIST<LIFLLET&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE30 #:ENVIRONMENT31) (DECLARE #) ...)N$$$M$$#   $`('($'$$#  1
$*#&6#'(LAMBDA (#:WHOLE30 #:ENVIRONMENT31) (DECLARE #) ...)$$$C$`('($'$$*#  1
(1;                      Ee  UM$<  P܃            kP  uCEp܃   =      CC   C   !      kPEH$<3  yEH$<#  I$<  AEEH$<  I$<   A=     EH$<   I$<   I$<   AE܃%   )      kP܃)      kPU܃-   =%   uEC)      kP1   })      u`E  l
M
N
N
N
N
N
N
N
N
NQNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERu  QNABSOLUTER[  QNABSOLUTERU  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER}   QNABSOLUTERw   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$<tsEPt  \     [ÉP@  \  =t  t	]EP܃      kPU      u`EP܃      kPUEP܃      kPU      u`
MQNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNRELATIVERalloc_8_to_ebxr   =?(  
  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<_  <LCONS&root not directory ~Av  LERROR<&~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܋$<G  
1   A=  {  5   J  k  ܃  }ܾ  C    C  CK9      kP    }  $    t  \     [ÉP@  \  =t  t	]ˋuou}V܃=      kPu}t  \     [ÉP@  \  =t  t	ˁ  tg_v$<^  =  xE@t  \     I\  =t  t	UQAыME  
A   
N܃U-      kP  t;Ut  \     [ÉP@  \  =t  t	뀋܃E   }I      kP܃M   }܋I      kPM܋$<uA<*r<E܋
Q   
N  
A   
N
M
N
N

QNABSOLUTERB  QNABSOLUTER1  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTERv  QNABSOLUTERb  QNRELATIVERalloc_8_to_ecx(  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx\  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  #  BQLPATHNAMER

(3  $$-4  L*DEFAULT-PATHNAME-DEFAULTS*  LPARSE-NAMESTRING<QLLOGICAL-PATHNAMER

4  (8  $$-9  LTRANSLATE-LOGICAL-PATHNAME<	  
POSIX-GETCWD/<&	DEFUN CWD<  #&XEP for CWD=  N$$$M$$#   (>  '($'$$#  1
?  $0#&&OPTIONAL processor 29@  NOPTIONAL( B  '($'$$0#  1
C  $5#&%hairy arg processor for VCS-TREE::CWDD  $7DIR#   $C(F  
OPTIONAL-ARGS$ (H  ($'$$5#  1
I  (J  1K  L  ;	                      Eetu

M      $<   $<uC<*r<.vn<~r<vf$<uFCH+  uD;   u   XӋMEH3~@/@
;   tЋ   
   
/Ӌ      nPwCH+  uQ;!   B]Ӌ%      nP]Ӌ%      nP!   
/]ԃ)   1ɉjP]ʋ$<uA<*r<.v<~r<v]ы      nP]ӐQNABSOLUTER  QNABSOLUTERf  QNABSOLUTERR  QNABSOLUTER6  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   =?Y  '  qE  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  $xBNUNIX-STATUSQ&SB-EXTR	w  QUIT<&
DEFUN QUITy  #&XEP for QUITz  N$$$M$$#   ({  '($'$$$x1
|  $0#&&OPTIONAL processor 38}  A  ( ~  '($'$$0$x1
  $2#&&hairy arg processor for VCS-TREE::QUIT  $7CODE#  (  G  $ (  ($'$$2$x1
  (  1    ;x                       Eetu
M1   t$<u F<"w         u`  u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  A  $$#  $,#   #   $$#   (  '($'$$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&A/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/kmrcl-excerpt.lisp5  " 6  "8 7  $ +     ]GF	&8  19  :  ;  +     ;       ;       ;  ̸     ;  ̯     ;  ̢     ;  ̕     ;  ̇     ;  q     ;  d     ;  L     ;  -     ;  !     ;       ;       ;       ;       ;  ̴     ;  ̨     ;  ́     ;  e     ;  X     ;  L     ;  ?     ;  3     ;  !     ;       ;       ;        ;        ;  ̽      ;  ̮      ;  ̥      ;  ̙      ;  ̍      ;  }      ;  Z      ;  ?      ;  ,      ?><  @# FASL
  	        compiled from "/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/getopt-excerpt.lisp"
  	        at Friday, September 12, 2003 12:13:11 PM MDT
  	        on lynx
  	        using SBCL version 0.8.3.42
   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i  $<0  u֋U    u}  ME$<   F<*   <.   u܃1      kPu19   $<   F<.|   L-uiu܃1      kPu   9   $<u$F<.uL-u
  ''  
.  
.   
$<uF<*r<   

M
 
 
QNABSOLUTER~  QNABSOLUTERY  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-upu܃1      kPu   9   $<u+F<.u$L-u'  ME  
.  
.   
  $<uF<*r<   

M
 
 
QNABSOLUTERy  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f  $<L  F<*A  <.9  u܃1      kPu19M  $<   F<.   L-   u܃1      kPu   9   $<   F<.   L-upu܃1      kPu   9   $<u+F<.u$L-u  ME'  
.  
.  
.   
  벋$<uF<*r<V   

M
 
 
 
QNABSOLUTER  QNABSOLUTER  QNABSOLUTER5  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LONGNSHORTLIDENTITY<LEQL<%FIND-POSITION<LSUBSEQ<F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     9E9     M$<   ]܋
   A=       J  o  e=  }  ]C    ]C  ]CEH]!      kP  ܋]܉}eUu]%      kPU}  u  Uݹ   mc  c}܃U%      kPM$<uA<*r<E
)   
N܃$-   =1   55   9   CE؉C=   CA   CE   CI   C܋M   $   kP   c
M
N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERz  QNABSOLUTERD  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERx   QNABSOLUTERd   QNABSOLUTER>   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$<t"M$<B  A<*7  </  UU    UE      ܃Uԋ}      kP$<  BEЋMЋ$<  UЋU    9U  M$<  A<*t<v  MЋ$<uA<*t<<t8MЋ$<uA<.t&<~t"MЁ  t$<$  A<  ܃U}1C  C    C        kP  umEԃEԋE;EM1ҁ  tI  t
$<t
Nt  MEE܋H$<  Qt  \     @\  =t  t	MЉHMԉHt  \     I\  =t  t	AE܉AM&EЋ
   
NM$<uA<.t<~lM  ]$<uA<JE
   
N9U܃U1u!      kPʋU$<  B<*t<   $<uA<*t6<t2$<uA<.t#<~t  t$<   A<   ܃U1C  C    C        kP  t  \     @\  =t  t	MЉHMԉHt  \     I\  =t  t	AE܉AM%   
NU$<uB<.<~U  $<uB<E
)   
NMЋ$<uA<*r<HEЋ
-   
NE
-   
NM$<uA<*r<YE
-   
N
M

NQNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER8  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecxo  QNRELATIVERalloc_8_to_eax;  QNABSOLUTER  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 ?>  #  BLNREVERSE<m<m  <<NREQUIRED8<<NNONE&DEFUN GETOPT  #&XEP for GETOPT  I$$$M$$#   $$#  (  '($'$$#  1
  $-#  $$$C$$#   (  '($'$$-#  1
  (  1    ;                      Ee  U}EEE  E  E  E  l}     M$<H  @t  \     I\  =t  t	AE܉AM܋M$<  @E}  u܃U܋      kPU܃U      kPUu؋ݹ   mccM$<  P܃      kP  I  EX]̋EP}      nP  R2    S!  SUS]̉UԋM}     9=   tA9=!   t9t  \     @\  =t  t	XM܉HEӋ%      nPt  \     @\  =t  t	PM؉HED  e  Mԋ$<O  H$<C  A9)     uЋEH$<$  Q܃-      kPuЁ     EԋH$<  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$<  B;5   tgt  \     @\  =t  t	pHt  \     I\  =t  t	AEAMAt  \     @\  =t  t	pM؉HEE'  
M
N
N
NE
N
N
N
N
N
N
N
N

QNRELATIVERalloc_8_to_eaxt  QNRELATIVERalloc_8_to_ecx;  QNRELATIVERalloc_8_to_eax
  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_8_to_eaxV  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_ecx2  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eax8  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERn  QNABSOLUTER6  QNABSOLUTER   QNABSOLUTER   QNRELATIVERalloc_8_to_ecx   =?    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&B/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/getopt-excerpt.lisp  "   "7   $ +
     b@i
  1                                  ̮       ̚       ̎       ̀       s       f       O       ?       2                                    ̾        ̲        ̥        ̘        ̌        ̀        s        g        P        ?        ,      ?>  @# FASL
  	        compiled from "/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/main.lisp"
  	        at Friday, September 12, 2003 12:13:12 PM MDT
  	        on lynx
  	        using SBCL version 0.8.3.42
   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=*<LORL	BASE-CHARLVECTORNLBASE-STRINGLSYMBOLQ&.svnRQ&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     ܃U      kP܃      kP$<)  JtI$<uA<*t:<t6$<uA<.t'<~t#  t$<uA<t%   
N)   1E  E    E  !      u`'  n$<uA<*<$<uA<.<~  $<uA<-   
NH3@/@
;   E
   
/N
M

QNABSOLUTERU  QNABSOLUTERA  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R<<<&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<R%FIND-POSITION<NSVNLNREVERSE<7FLATTEN<LCONS7IS-MANAGED-DIR<BINCVSLSEQUENCE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    E@t  \     I\  =t  t	A)   AHM@EE@؋$<7  Ë@EE  W]܋M$<  P      nP]܁  p  [$<  Ë@E  u܃U-      kP    }  g    t  \     [ÉP@  \  =t  t	]ˉu   ME@E܃1         kP܃U   kPt  \     [ÉP@  \  =t  t	ˁ}     EXE@EU$<  =  ME@ȋѻ  B=  u>  u.JR$<u  =  uӋы5      u`BC͋ɸ  
9   
N  t  \     [ÉP@  \  =t  t	]ˉu   ME@E܃1         kP܃U   kPt  \     [ÉP@  \  =t  t	ˁ}     EXE@EU$<U  =  ME@ȋѻ  B=  }     umJR$<  =  uϋ܃ы5      kPt  \     @\  =t  t	MHP8BC뎋늸  
9   
NE}  u<t  \     @\  =t  t	MHMHEK]܋EPe}u]=      kP]܁  놋EX$<   ]         nP]eE     MA    MA  
A   ]KMA]%      kP  tAE@t  \     I\  =t  t	AI   A  $<uC<*r<M   
$<uC<*r<M   
                       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ABSOLUTERp  QNRELATIVERalloc_8_to_ecxR  QNABSOLUTER"  QNABSOLUTER
  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eax?  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTERk  QNABSOLUTERI  QNRELATIVERalloc_8_to_ebx  QNABSOLUTERm  QNABSOLUTERg  QNRELATIVERalloc_8_to_ebx"  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER=  QNRELATIVERalloc_8_to_ecx  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<B%MAP<<BLSTRING&D/R  &////S  LCONCATENATE<&name="U  &"V  CASE-FAILURELECASENDATUMN
EXPECTED-TYPEo[  N
POSSIBILITIES]  LERROR<&entries_  7STRING-TRIM-WHITESPACE<J<QQ&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:     9E  ܃   =   5!   C  %   C)   C-      kP܃}؋1      kP܃5      kPU܃U9      kP܃=      kP$<  B
   9M  
   9My       9EH     9Et
     E D EUU, jBo  t  \        @\  =t  t	P|U$<   A   t  \     [C  BC\  =t  t	|CKe  u]E      kP㋅|1ɉHUI      u`U$<uB<*r<XE
M   
N E D EUeU, jB  t  \        @\  =t  t	PEU$<~   Q   t  \     [C  BC\  =t  t	ECKe  u]E      kP  E1ɉH  U$<uB<*r<hE
M   
N܃U   =Y   ]   Ca      kPT܃U   =e   i   Ca      kP܃$m   =   5q   u   CEԉCy   C}   C   C   C܋   $   kP܃   =   5!   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  tE@11      ME$<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UNWINDR.  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERi  QNABSOLUTER`  QNABSOLUTERW  QNABSOLUTERN  QNABSOLUTERE  QNABSOLUTER6  QNABSOLUTER0  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ABSOLUTER  QNABSOLUTERX  QNABSOLUTER5  QNRELATIVERalloc_16_to_ebx  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTERJ  QNABSOLUTER;  QNABSOLUTER'  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERz   QNABSOLUTERq   QNABSOLUTERd   QNABSOLUTER^   QNABSOLUTERX   QNABSOLUTERD   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 ?>  #4  B<<&svn  L*ERROR-OUTPUT*&8INTERAL ERROR: not a version control system directory ~A  LFORMAT<7QUIT<&cvs  NUPDATENSTATUSNCOMMITLCAR<LSTRING=<&m  <&   &~A commit~A  NWHOLE7SHELL-COMMAND-OUTPUT<L
NAMESTRING<&~A ~A: ~A ~A ~A~%  &~A ~A: ~A~%  LNUMBER& -m "~A"  W  L  X  Y  Z  o        \          ^  <&	~A status  &	~A update  &DEFUN PROCESS-VCS-DIRECTORY  #&XEP for PROCESS-VCS-DIRECTORY  U$$$M$$#   $$#  $$#  (  '($'$$#   1
  $0#  $$$C$$$c$$#   (  '($'$$0#%  1
  #   #&FLET VCS-TREE::PROCESS  $$$C$$##  (  '($'$#   #*  1
  (  1    ;(4,                      Ee  U}u܃U      kP     ܃U      kP  t   E؋]E]   P     ܃=!   u%      kP   )      u`-   E؋]E;1     ;5     ;9   Q  $<"  ]
=   A=    EA   E      nP]eI     MA    MA  M]KMA]M      kP  N  Q   ܃  =U   u؉C%      kPU܃U=Y   u]   CC'  a      kP	  ܋U}uMt$<   A<"   U1      uM܃Ue      kPº'  =i   uEEEEE%      u`܃Ue      kPº'  =m   uE%      u`E
q   
N$<   r܃  =u   %      kP}$<uC<*r<y   
܃$}   =   5   
   KC   C   C   C   C܋   $   kP܃  =   u؋%      kPU܃  =   u؋%      kPU
M

N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERz  QNABSOLUTERt  QNABSOLUTERn  QNABSOLUTERh  QNABSOLUTERW  QNABSOLUTER$  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERp  QNRELATIVERQ&SB-VM	  	GENERIC-=RX  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERc  QNABSOLUTERC  QNABSOLUTER=  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#&&OPTIONAL processor 54w  NOPTIONAL( y  '($'$$d#  1
z  $i#&&OPTIONAL processor 62{  x  $$$(|  '($'$$i#  1
}  $s#&!varargs entry for VCS-TREE::USAGE~  $7MSG$C$7MSG-ARGS$c(  
OPTIONAL-ARGS$ REST-ARG$(  ($'$$s#  1
  #^  #&SB-INT:&MORE processing  x  $$#   $$#  $$$M(  '($'$#^  #  1
  (	  1    ;                      Ev/])ˋكvWV|$)^_ˉ}܃tuett    EE     P   8     p   (  ܃=         kP}        P     ܃=!         kP   P     ܃=%         kP   P     ܃=)         kP   P   [  =-         u`   p  4     P   $  RE   UR   M$<  ܺ  9tqI$<t
N)]Ƌ)S{skP   x      ܃
  1      kP  JM    t  \     RRBB  \  =t  t	]}








N
QNRELATIVERalloc_to_edx{  QNABSOLUTERF  QNABSOLUTER'  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERk  QNABSOLUTERV  QNABSOLUTERP  QNABSOLUTER6  QNABSOLUTER!  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERu   =?  b  q  L&REST    5q    nKNO    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  <  <  Q&DEFUN PARSE-ACTION-ARG  #&XEP for PARSE-ACTION-ARG  U$$$M$$#   (  '($'$$#  1
  $*#  $$$C(  '($'$$*#  1
  (  1    ;
                      Eea  UM   ܃U=   1C  C    C        kP     ܃U=         kP u!   MEtFu%   ߋ܃)   }-      kP   1      u`5   랋5   떋M$<uA<*<M$<uA<.<~M  $<uA<E
9   
N
MQNABSOLUTERw  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   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7COMMAND-LINE-ARGUMENTS<@    NREQUIRED    7GETOPT<b  <  <  <&Invalid action ~A  7CWD<7DIRECTORY-TREE<<7MKLIST<  <&
DEFUN MAIN  #&XEP for MAIN  U$$$M$$#   (   '($'$$#  1
  $1#&&OPTIONAL processor 78  x  (   '($'$$1#  1
  $K#&%hairy arg processor for VCS-TREE:MAIN  $7ARGV$C(    $ (  ($'$$K#  1
	  (
  1    ;                      EetuU
Mԃ   1ɉjPUM$<  P   
 C
 AYSEP܃=         kP	  ܋U}    ԃ!   1ɉjP܃   %      kPM$<  P܃)      kPU  uEEx܃-   !      kP܃   %      kPԃ1   1ɉjP܃5      kP܃9      kP܃=      kP0]Se}u]A      kP][$<   =  u܃1ҋ%      kP
R   
S{sً BJHB     EuV}ˋ݋m    M$<u&UU    3M$<uA<*r<vċE
E   
N
N
N
QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLER  QNABSOLUTER.  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER~  QNABSOLUTERd  QNABSOLUTERE  QNABSOLUTER?  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERa   QNABSOLUTER8   =?     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&8/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/main.lisp6  " 7  "8 8  $ +     2g}9  1:  ;  <  ,     <       <       <       <       <  ̺     <  ̮     <  ̋     <  h     <  _     <  S     <  H     <  9     <       <       <       <  u     <  G     <  ;     <        <        <        <        <  ̸      <  ̬      <  ̛      <  ̈      <  |      <  \      <  ?      <  ,      ?>=  @# FASL
  	        compiled from "/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/loader.lisp"
  	        at Friday, September 12, 2003 12:13:13 PM MDT
  	        on lynx
  	        using SBCL version 0.8.3.42
   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&:/home/kevin/debian/build/vcs-tree/vcs-tree-0.1/loader.lisp" "9 $ +     1̅      ]      >      +      ?>   @