#!/bin/sh --
exec sbcl --noinform --disable-debugger --userinit /dev/null --sysinit /dev/null --eval "(with-open-file (i \"$0\" :element-type '(unsigned-byte 8)) (loop while (< ret 2) when (= (read-byte i) 10) count 1 into ret) (load i) (funcall (quote RUN)) (quit))" --end-toplevel-options ${1+"$@"}
# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/package.lisp"
  	        at Friday, September 24, 2004 11:16:43 PM MDT
  	        on pal
  	        using SBCL version 0.8.14.28
   X863      (:SB-PACKAGE-LOCKS :SB-THREAD)?>    #   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$<ueBH+  uc;   tH3~G@/@;   u9
   A	td<    Jt
d    Q  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:;7<Q&SB-IMPLR=%DEFPACKAGE<#&@top level form (SB-IMPL::%DEFPACKAGE "VCS-TREE" (QUOTE NIL) ...)?%( @$'($'$$#   1
A(B1CD; *                      Ee܃0       C  C     CC  C     C܋   CC  C  !   0   kP  MEᐐQNABSOLUTERz   QNABSOLUTERc   QNABSOLUTERZ   QNABSOLUTERC   QNABSOLUTER%   =?J?5    K8 ?>L   #   B VCS-TREE<#$%( M$'($'$$#   1
N(O1PQ; *                      Ee܃         kP$<ueBH+  uc;   tH3~G@/@;   u9
   A	td<    Jt
d    Q  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?Y$5    Z8 QDEBUG-SOURCER

(\$$-]NFILE&A/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/package.lisp_"Ə `"} a$ +     %b1cdeQ      eD      e,      ?>f   @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/kmrcl-excerpt.lisp"
  	        at Friday, September 24, 2004 11:16:43 PM MDT
  	        on pal
  	        using SBCL version 0.8.14.28
   X863      (:SB-PACKAGE-LOCKS :SB-THREAD)?>    #   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$<ueBH+  uc;   tH3~G@/@;   u9
   A	td<    Jt
d    Q  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   #
  BN	DIRECTIONNINPUTLOPEN<LGENSYM<L	READ-LINE<LNREVERSE<NABORTLCLOSE<&DEFUN READ-FILE-TO-STRINGS?#&&XEP for VCS-TREE::READ-FILE-TO-STRINGS@NEXTERNAL$$$M$$#   (B$'($'$$#  1
C$*#Q&VCS-TREERDREAD-FILE-TO-STRINGS$$$C(F$'($'$$*#
  1
G#  #&FLET #:CLEANUP-FUN-9HNCLEANUP( J$'+   K$'$#  #
  1
L(M1NO;

*                      Ee  UE  ܃U=   5         kPډ]ȹ'  dH    dD        :  @dD    d=H    t	HẺ] d    E d    
 d
    EMĉeMЋ d    iA[  EЋ
 d
    ԃ   1ɉjP]Eeӿ  ]!      kP;EtadH    dD       IdD    d=H    t	AEAM܃Uȿ  u!      kP뚋܃U%      kPUE̹  H d     
 d
    ŋ̃`Ű]ȉAEI     UMEU]MMUċ d     d    u d    9t1B	tJXd    B    9u݋
 d
    ŋ̃`Ű]ȉAE  E]M      u  em reӋ=)   ]-      kPǐ
MQNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecxa  QNABSOLUTER6  QNABSOLUTER
  QNABSOLUTER   QNRELATIVERalloc_8_to_eaxu   QNABSOLUTERG   QNABSOLUTERA   QNABSOLUTER;   =?`EDFILEb5cLVALUESLLISTL	&OPTIONALgh    ?>j   $hBiE&?Opens a reads a file. Returns the contents as a list of stringsjQ&SB-IMPLRk%DEFUN<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::READ-FILE-TO-STRINGS) (SB-INT:NAMED-LAMBDA VCS-TREE::READ-FILE-TO-STRINGS # ...) ...)m%( n$'($'$$$h1
o(p1qr;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?wm5    x8 ?>y   #   BD*WHITESPACE-CHARS*E E	E
E
zk%DEFVAR<#&Wtop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*WHITESPACE-CHARS*) (UNLESS # #) ...)|%( }$'($'$$#   1
~(1; *
                      Ee
   AJu[Ad<    JuM=   ܃   '  C  C        kP  ME  벐QNABSOLUTER`   QNABSOLUTERG   QNABSOLUTER<   QNABSOLUTER    =?|5    8 ?>   $bByLSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACE#&(XEP for VCS-TREE::STRING-TRIM-WHITESPACEA$$$M$$#  ($'($'$$ $X1
$'#DSTRING-TRIM-WHITESPACE$$#  ($'($'$$'$]1
(1;b *                      Eeu3   Pd    JuPJt      u`
M
QNABSOLUTERI   QNABSOLUTER)   =?DSTR5cdL
SIMPLE-STRINGf    ?>   $hBl<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (SB-INT:NAMED-LAMBDA VCS-TREE::STRING-TRIM-WHITESPACE # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #"  BPROPER-LIST-OF-LENGTH-P<DITk
BACKQ-LIST<LIFLLETLDEFMACRODAIFDTESTDTHENfDELSEARG-COUNT-ERROR<&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...)A$$$M$$#   $`($'($'$$#  1
$*#&6#'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (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   =?
WHOLE28

ENVIRONMENT29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 ?>   #5  BDFLATTEN<LAPPEND<&
DEFUN FLATTEN#&XEP for VCS-TREE::FLATTENA$$$M$$#   ($'($'$$#0  1
$*#$$$C($'($'$$*#5  1
(1;5*                      Ee	  UM  t$<tUMEEH$<uYEP܃      kPUEP܃      kPU      u`EPdH    dD       [ÉP@  dD    d=H    t	]EP܃      kPU      u`
MQNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERj   =?DLIS5cdf    ?>   $hBl<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?  5      8 ?>  #   B&DEFUN MKLIST  #&XEP for VCS-TREE::MKLIST  A$$$M$$#   (  $'($'$$#   1
  $%#DMKLIST$$#  (  $'($'$$%#   1
	  (
  1    ; *                      Eeu]$<tKdH    dD       [ÉP@  dD    d=H    t	ӋME퐐
MQNRELATIVERalloc_8_to_ebx@   =?    DOBJ  h    ?>  $hB    &Make into list if atom  l<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)  %(   $'($'$$$h1
  (  1    ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #  BDCANONICALIZE-DIRECTORY-NAME<NNAMENWILDNTYPENDEFAULTSL
MAKE-PATHNAME<L	DIRECTORY<DPROBE-DIRECTORY<LIDENTITY<LEQL<%FIND-POSITION<&root not directory ~A*  LERROR<DDIRECTORY-TREE<LCONS&~A.  LSEQUENCE&DEFUN DIRECTORY-TREE0  #& XEP for VCS-TREE::DIRECTORY-TREE1  A$$$M$$#   (2  $'($'$$#x  1
3  $*#,  $$$C(4  $'($'$$*#}  1
5  (6  17  8  ;*                      EeQ  U܃U      kPE܃   =   5   
   K
!   KC%      kP܃)      kP  U  dH    dD       [ÉP@  dD    d=H    t	]   u܋EX]EH$<i  MӋ-      oPu܋]  tm}Ӌ      nP}dH    dD       [ÉP@  dD    d=H    t	    _}  ;E@E܋M܋$<Z  
1   A=    5   J    ܃  }ܾ  C    C  CK9      kP    }     ܃U-      kP  tLUdH    dD       [ÉP@  dD    d=H    t	ӋME܃=   }A      kP  dH    dD       [ÉP@  dD    d=H    t	]ˋusu}V܃E      kPu}dH    dD       [ÉP@  dD    d=H    t	ˁ  ta_v$<   =  tE@dH    dD       IdD    d=H    t	UQA  
I   
N܃M   }܋A      kPM܋$<uA<r<<r<E܋
Q   
N  
I   
N
M
N
N

QNABSOLUTERi  QNABSOLUTERX  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_ebxg  QNABSOLUTER=  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTERZ  QNABSOLUTER$  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ebxv  QNABSOLUTERO  QNABSOLUTER   QNRELATIVERalloc_8_to_ebx   QNABSOLUTER   QNABSOLUTERz   QNABSOLUTERn   QNABSOLUTERe   QNABSOLUTER_   QNABSOLUTERY   QNABSOLUTERS   QNABSOLUTER4   =?U  ,  DFILENAMEW  h    ?>Y  $hBX  ,  &>Returns a tree of pathnames for sub-directories of a directoryY  l<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::DIRECTORY-TREE # ...) ...)Z  %( [  $'($'$$$h1
\  (]  1^  _  ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?d  Z  5    e  8 ?>f  #  BLPATHNAME<L
PATHNAME-NAME<L
PATHNAME-TYPE<LPATHNAME-DIRECTORY<<N	DIRECTORY   "  NVERSION#  $  <LSTRING&.m  LCONCATENATE<N
UNSPECIFIC&!DEFUN CANONICALIZE-DIRECTORY-NAMEp  #&-XEP for VCS-TREE::CANONICALIZE-DIRECTORY-NAMEq  A$$$M$$#   (r  $'($'$$#  1
s  $*#  $$$C(t  $'($'$$*#  1
u  #  #&FLET VCS-TREE::UN-UNSPECIFICv  $$#   (w  $'+   x  $'$#  #  1
y  (z  1{  |  ;*                      Ee  U܃U      kPU؋܃U؋      kPŋ̃@AE     E܃U؋      kPŋ̃@AE    }  ^  }    =         uU؋ME]U؋      nPŋ̃@AE  c  ]Ћ!      nP%   5)   E  -   EE  1   EE  5   E܋9   (   u`dH    dD       [ÉP@  dD    d=H    t	UdH    dD       [ÉP@  dD    d=H    t	=  ܃=   }5A   CE      kPdH    dD       [ÉP@  dD    d=H    t	K;I   tem   
MQNABSOLUTER  QNRELATIVERalloc_8_to_ebxj  QNABSOLUTERF  QNABSOLUTER=  QNABSOLUTER4  QNRELATIVERalloc_8_to_ebx  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER{  QNABSOLUTERk  QNABSOLUTER^  QNABSOLUTERX  QNABSOLUTERA  QNABSOLUTER*  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERv   QNABSOLUTERT   QNABSOLUTER4   =?    W  5cdf  f        ?>  $hB    l<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (SB-INT:NAMED-LAMBDA VCS-TREE::CANONICALIZE-DIRECTORY-NAME # ...) ...)  %(   $'($'$$$h1
  (  1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #   B  <L
NAMESTRING<Q&SB-UNIXR	  UNIX-FILE-KIND<j  &DEFUN PROBE-DIRECTORY  #&!XEP for VCS-TREE::PROBE-DIRECTORY  A$$$M$$#   (  $	'($'$$#   1
  $*#&  $$$C(  $	'($'$$*#   1
  (  1    ; *
                      Eey   U܃U      kP܃      kP܃      kP9   u'  ME  ꐐ
MQNABSOLUTER}   QNABSOLUTERh   QNABSOLUTERN   QNABSOLUTER4   =?  &  W  5cdLMEMBER  f        ?>  $hB  &  l<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROBE-DIRECTORY # ...) ...)  %(   $	'($'$$$h1
  (  1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #  B	  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(  $$-  L*DEFAULT-PATHNAME-DEFAULTS*f  QLLOGICAL-PATHNAMER

  (  $$-  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWD  #&XEP for VCS-TREE::CWD  A$$$M$$#   (  $
'($'$$#  1
  $5#&%hairy arg processor for VCS-TREE::CWD  $DDIR#   $C(  $

OPTIONAL-ARGS$ (  ($'$$5#  1
  #  #&&OPTIONAL processor #:G94  NOPTIONAL(   $
'($'$#  #  1
  (  1    ;	*                      Eeu  u
M  ue]ԃ   1ɉjP]ʋ$<u-A$<u$]ы      nP]ʋыME$<   $<u	C$<tu$<uUCH+  uS;   u)
   A	td<    Jt
d    Y덋H3~@/@
;   t!   
   
/Ӌ      nPhCH+  uQ;%   =]Ӌ)      nP]Ӌ)      nP%   
/  iQNABSOLUTER  QNABSOLUTER  QNABSOLUTER}  QNABSOLUTERg  QNABSOLUTER=  QNABSOLUTER*  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERy   QNABSOLUTERG   =?  DCWDf    5f        ?>  $hB    &)Change directory and set default pathname  l<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)  %(   $
'($'$$$h1
  (  1    ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #   BNUNIX-STATUSQ&SB-EXTR	  QUIT<&
DEFUN QUIT  #&XEP for VCS-TREE::QUIT   A$$$M$$#   (  $'($'$$#   1
  $2#&&hairy arg processor for VCS-TREE::QUIT  $DCODE#  (  $  $ (  ($'$$2#   1
  $u#&&OPTIONAL processor #:G106    ( 	  $'($'$$u#   1

  (  1  
  ; *                      EeuQu
M   t$<u F<"w         u`  u1ݿ   1빐QNABSOLUTERS   QNABSOLUTERM   =?  DQUITf  $     5        ?>  $hB    &LFunction to exit the Lisp implementation. Copied from CLOCC's QUIT function.  l<#&ftop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::QUIT) (SB-INT:NAMED-LAMBDA VCS-TREE::QUIT # ...) ...)  %(   $'($'$$$h1
  (  1    ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?!    5    "  8 ?>#  $ZB&DEFUN COMMAND-LINE-ARGUMENTS#  #&(XEP for VCS-TREE::COMMAND-LINE-ARGUMENTS$  A$$$M(%  $'($'$$$P1
&  $"#DCOMMAND-LINE-ARGUMENTS( (  $'($'$$"$U1
)  (*  1+  ,  ;Z *                      Eeu.G  Pd    JuPJtMEᐐ
M
=?-  '  5.      ?>0  $hB/  '  l<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::COMMAND-LINE-ARGUMENTS) (SB-INT:NAMED-LAMBDA VCS-TREE::COMMAND-LINE-ARGUMENTS NIL ...) ...)0  %( 1  $'($'$$$h1
2  (3  14  5  ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?9  0  5    :  8 ?>;  #  Bj  NWHOLENALLOW-OTHER-KEYS$ =  NELEMENT-TYPEL	BASE-CHARNFILL-POINTERN
ADJUSTABLEL
MAKE-ARRAY<=  kMAKE-FILL-POINTER-OUTPUT-STREAM<&-cD  &/bin/shE  8NOUTPUTNERROR	  RUN-PROGRAM<QkPROCESSR

(J  $$-K  kPROCESS><&DEFUN SHELL-COMMAND-OUTPUTM  #&&XEP for VCS-TREE::SHELL-COMMAND-OUTPUTN  A$$$M$$#  (O  $
'($'$$Z#  1
P  $r#&&MORE processingQ    $$#  $$#  $$$C(R  $
'($'$$r#  1
S  #H  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUTT  $DCMD#  (V  $
$ j  DELETED;  W  (X  ($'$#H  #  1
Y  #  #&FLET #:CLEANUP-FUN-118Z  I( [  $
'+   \  $'$#  #  1
]  #  #&FLET #:CLEANUP-FUN-108^  I( _  $
'+   `  $'$#  #  1
a  (	b  1c  d  ;*                      Ev5])ˋكvWV|$)^_ˉ|txe|DM
MEE    E    E   {E؋EEE؋]];   tQ;   tI;   t>dH    dD       [ÉP@  dD    d=H    t	M} {  u}}  uB

܃   =!   5%   )   CC    -   CC'  1      kPU؋܃5   =!   5%   )   CC    -   CC'  1      kPU܃U؋9      kPUEE d    E d    
 d
    EMM d    iA  E
 d
    ܃U9      kPUEE d    E d    
 d
    EMeM d    iAu  E
 d
    =   }dH    dD       [ÉP@x@  dD    d=H    t	܃ A   5E   C  I   CECM   CECQ       kPU d     
 d
    ŋ́   ]AE4     d     
 d
    ŋ́   ]AEp    U$<uEBH+  uC;U   urU؋}ݹ   mccH3~@/@
;U   tыY   
U   
/U]MMU d     d    u d    9t1B	tJXd    B    9u݋
 d
    ŋ́   ]AEg     E]M    U]MMU d     d    u d    9t1B	tJXd    B    9u݋
 d
    ŋ́   ]AE  E]M    Ӌ]      nP  em Ӌ]      nP  em QNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNABSOLUTERm  QNABSOLUTERa  QNABSOLUTERY  QNABSOLUTER*  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERr  QNABSOLUTERc  QNABSOLUTERV  QNABSOLUTERP  QNRELATIVERalloc_16_to_ebx  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ABSOLUTERq  QNABSOLUTERa  QNABSOLUTER[  QNABSOLUTERU  QNABSOLUTERO  QNRELATIVERalloc_8_to_ebx   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   =?  DSHELL-COMMAND-OUTPUTU  L&KEY%  DWHOLE  5  j    ;      dLBASE-STRING  f        ?>  $hB    l<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (SB-INT:NAMED-LAMBDA VCS-TREE::SHELL-COMMAND-OUTPUT # ...) ...)  %(   $
'($'$$$h1
  (  1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 QDEBUG-SOURCER

(  $$-  NFILE&G/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/kmrcl-excerpt.lisp  "Ə   "}   $ +     eON
.  1      ̟       d       5       ,              
                     ̼       ̬       ̛       |       _       8                                             ̼        ̡        ̒        ́        r        O        ,      ?>  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/getopt-excerpt.lisp"
  	        at Friday, September 24, 2004 11:16:43 PM MDT
  	        on pal
  	        using SBCL version 0.8.14.28
   X863      (:SB-PACKAGE-LOCKS :SB-THREAD)?>    #   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$<ueBH+  uc;   tH3~G@/@;   u9
   A	td<    Jt
d    Q  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   #  BL
SIMPLE-STRING&DEFUN IS-SHORT-OPTION8#&!XEP for VCS-TREE::IS-SHORT-OPTION9NEXTERNAL$$$M$$#   (;$'($'$$#  1
<$)#Q&VCS-TREER=IS-SHORT-OPTION$,#  $C(?$'($'$$)#
  1
@(A1BC;*                      Ee   u֋U    u   $<   F$<   F19   $<udF<u]L-uMF   9vv$<u+F<u$L-u  ME'  
.  
.   
  
M
 
M
 
MQNABSOLUTER   =?E>=ARGG5HLVALUESLMEMBERKL	&OPTIONALMN    ?>P   $hBO>Q&SB-IMPLRP%DEFUN<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SHORT-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SHORT-OPTION # ...) ...)R%( S$'($'$$$h1
T(U1VW;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?[R5    \8 ?>]   #  B7&DEFUN IS-OPTION-TERMINATOR]#&&XEP for VCS-TREE::IS-OPTION-TERMINATOR^:$$$M$$#   (_$'($'$$#  1
`$)#=IS-OPTION-TERMINATOR$,#  $C(b$'($'$$)#
  1
c(d1ef;*                      Ee   u֋U    u   $<   F$<   F19   $<udF<u]L-uMF   9vv$<u+F<u$L-u'  ME  
.  
.   
  
M
 
M
 
MQNABSOLUTER   =?haGN    ?>j   $hBiaQ<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-OPTION-TERMINATOR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-OPTION-TERMINATOR # ...) ...)j%( k$'($'$$$h1
l(m1no;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?sj5    t8 ?>u   #  B7&DEFUN IS-LONG-OPTIONu#& XEP for VCS-TREE::IS-LONG-OPTIONv:$$$M$$#   (w$'($'$$#`  1
x$)#=IS-LONG-OPTION$,#  $C(z$'($'$$)#e  1
{(|1}~;*                      Ee9  u֋U    u  ME$<   F$<   F19   $<   F<   L-   F   9   $<udF<u]L-uJF   9   $<u$F<uL-u
  8'  .
.  
.  
.   

M
 
M
 
M
 
MQNABSOLUTERM  =?yGN    ?>   $hByQ<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-LONG-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-LONG-OPTION # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #  BNLONGLIDENTITY<LEQL<%FIND-POSITION<LSUBSEQ<LSEQUENCENSHORTCASE-FAILURENNAMELECASENDATUMN
EXPECTED-TYPEJN
POSSIBILITIESLERROR<&DEFUN DECOMPOSE-ARG#&XEP for VCS-TREE::DECOMPOSE-ARG:$$$M$$#   $$#  ($'($'$$#  1
$-#=
DECOMPOSE-ARG$$$C$$##  ($'($'$$-#  1
(1;*                      Ee  U}؋   9EE     M$<   ]܋
   A=       J    eB=  }  ]C    ]C  ]CEH]      kP  ܋]܉}eUu]!      kPU}  t=}܃U!      kPUݹ   mc  c  M$<uA<r<<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ABSOLUTER  QNABSOLUTERw  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERi   QNABSOLUTERU   QNABSOLUTER/   =?F=OPTION-TYPE5ILORLCONSLNULLLSIMPLE-ARRAYL*LƎ    ?>   $hB&Returns base-name,argumentQ<#&xtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DECOMPOSE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::DECOMPOSE-ARG # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #   B><y<NARG<&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG:$$$M$$#   ($'($'$$#   1
$*#=ANALYZE-ARG$$$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   =?G5HIJL    ?>   $hB&<Analyzes an argument. Returns option-type,base-name,argumentQ<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::ANALYZE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::ANALYZE-ARG # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #~  B=MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTION#&XEP for VCS-TREE::FIND-OPTION:$$$M$$#   $$#  ($'($'$$#h  1
   $-#=FIND-OPTION$$$C$$$c(  $'($'$$-#m  1
  (  1    ;~*
                      EeA  U}  dH    dD       [ÉP@  dD    d=H    t	ˋ}eMO$<   QdH    dD       [ÉP@  dD    d=H    t	ˁ}     EX$<   =  u~܃U      kP  t7܃}      kP$<u?RME    
   
N
M
N

QNABSOLUTERZ  QNABSOLUTER  QNABSOLUTER   QNRELATIVERalloc_8_to_ebx   QNRELATIVERalloc_8_to_ebxC   =?    =NAME=OPTIONS  5IL        ?>  $hB    &AFind an option in option list. Handles using unique abbreviations  Q<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FIND-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::FIND-OPTION # ...) ...)  %(   $'($'$$$h1
  (  1    ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>   #   B<  <&DEFUN MATCH-OPTION   #&XEP for VCS-TREE::MATCH-OPTION!  :$$$M$$#   $$#  ("  $'($'$$#   1
#  $-#=MATCH-OPTION$$$C$$#   (%  $'($'$$-#   1
&  ('  1(  )  ; *                      Ee   U}܃U      kP	  ܋U׉u܃}      kP  t&$<u+p}EEݹ   mcc  
M
QNABSOLUTERg   QNABSOLUTER7   =?,  $  F  -  5IL.  /      ?>1  $hB0  $  &TMatches an argument to an option. Returns option-list,option-type,base-name,argument1  Q<#&vtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-OPTION # ...) ...)2  %( 3  $'($'$$$h1
4  (5  16  7  ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?<  2  5    =  8 ?>>  #g  B<STRING=*<LVECTOR@  LBASE-STRINGLSYMBOLL	BASE-CHARD  D  <D  D  &DEFUN MATCH-UNIQUE-ABBREVIATIONE  #&+XEP for VCS-TREE::MATCH-UNIQUE-ABBREVIATIONF  :$$$M$$#   $$#  (G  $'($'$$#X  1
H  $-#$$$C$$#   (I  $'($'$$-#]  1
J  (K  1L  M  ;	g*                      Ee1  U}UU    UE  UU    UE    C  ܃Uԋ}      kP$<  BEЋUЋU    9U  M$<  A$<  MЋ$<)  A$<  ܃U}1C  C    C        kP  tpdH    dD       @dD    d=H    t	MЉHMԉHdH    dD       IdD    d=H    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$<gM  X$<uA<>EE
   
N9U܃U1u!      kPʋU$<  B$<  $<   A$<   ܃U1C  C    C        kP  ]dH    dD       @dD    d=H    t	MЉHMԉHdH    dD       IdD    d=H    t	AE܉AM$<u
A$<4  ($<uA<>%   
NU$<u
B$<U  $<uB<>E
)   
N
M

NQNABSOLUTERG  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eaxd  QNABSOLUTER4  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER\  QNRELATIVERalloc_8_to_ecx  QNRELATIVERalloc_8_to_eaxQ  QNABSOLUTER%  QNABSOLUTER   =?Z  =ABBR=STRINGS]        ?>_  $hB^  &fReturns position of ABBR in STRINGS. ABBR may be a unique abbreviation.
Returns NIL if no match found._  Q<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-UNIQUE-ABBREVIATION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-UNIQUE-ABBREVIATION # ...) ...)`  %( a  $'($'$$$h1
b  (c  1d  e  ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?j  `  5    k  8 ?>l  #>  Ba<$  <<LNREVERSE<NREQUIRED><y<NNONE&DEFUN GETOPTo  #&XEP for VCS-TREE::GETOPTp  :$$$M$$#   $$#  (q  $	'($'$$#  1
r  $-#=GETOPT$$$C$$#   (t  $	'($'$$-#  1
u  (v  1w  x  ;>*                      Ee  U}EEE  E  E  E  -  }  7  M$<  P܃      kP    EX]̋EP}      nP  R"    S  SUS]̉UԋM}  "  9=      Ӌ      nPdH    dD       @dD    d=H    t	PM؉HE؋M$<  @E}  ܃U܋!      kPU܃U!      kPUu؋ݹ   mcc9=%   'dH    dD       @dD    d=H    t	XM܉HE>  }  Mԋ$<  H$<  A9)      uЋEH$<  Q܃-      kPuЁ     EԋH$<\  A9)      EԋH$<@  I$<6  AdH    dD       IdD    d=H    t	qAdH    dD       @dD    d=H    t	HM܉HEdH    dD       @dD    d=H    t	pM؉HEuЋEH$<w  Q܃1      kPuЁ  EH$<>  AdH    dD       IdD    d=H    t	qAdH    dD       @dD    d=H    t	HMHEE@EE@=  dH    dD       @dD    d=H    t	pM؉HEUԋ$<k  P$<_  B;5   u=dH    dD       @dD    d=H    t	pM؉HEMdH    dD       @dD    d=H    t	pHdH    dD       IdD    d=H    t	AEAME'  M$<   @dH    dD       IdD    d=H    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_ecx`  QNRELATIVERalloc_8_to_eax.  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_8_to_eax2  QNRELATIVERalloc_8_to_ecx   QNABSOLUTER  QNRELATIVERalloc_8_to_eaxm  QNRELATIVERalloc_8_to_eax0  QNRELATIVERalloc_8_to_ecx  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER]  QNRELATIVERalloc_8_to_eax   QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eaxC  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER|   =?  s  =ARGS    5ILLIST    L        ?>  $hB  s  %,  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  Q<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::GETOPT) (SB-INT:NAMED-LAMBDA VCS-TREE::GETOPT # ...) ...)  %(   $	'($'$$$h1
  (  1    ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 QDEBUG-SOURCER

(  $$-  NFILE&H/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/getopt-excerpt.lisp  "Ə   "}   $ +
     iGp
  1      ̞       x       e       M       7       )                                             ̦        ̇        ~        o        f        W        C        ,      ?>  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/main.lisp"
  	        at Friday, September 24, 2004 11:16:43 PM MDT
  	        on pal
  	        using SBCL version 0.8.14.28
   X863      (:SB-PACKAGE-LOCKS :SB-THREAD)?>    #   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$<ueBH+  uc;   tH3~G@/@;   u9
   A	td<    Jt
d    Q  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?4$LFUNCTION    68 ?>7   #_  BQLPATHNAMER

(8$$-9LPATHNAME-DIRECTORY<LLAST<&CVS<STRING=*<&.svn>LORLVECTORALBASE-STRINGLSYMBOLL	BASE-CHAREE&DEFUN IS-VCS-DIRECTORYF#&"XEP for VCS-TREE::IS-VCS-DIRECTORYGNEXTERNAL$$$M$$#   (I$'($'$$#P  1
J$*#Q&VCS-TREERKIS-VCS-DIRECTORY$$$C(M$'($'$$*#U  1
N(O1PQ;
_*                      Ee)  UM$<t  MEE@H+    ;     ܃U      kP܃      kP$<  J$<  A$<  ܃   1C  C    C  !      kP  t
'  &܃U      kP܃      kP$<  J$<u	A$<t-$<u	A$<t  t$<uA<>tBu0%   1E  E    E  !      u`)   
N$<u
A$<  $<uA<>B-   
NH3@/@
;   /E
   
/N
M

QNABSOLUTERE  QNABSOLUTER1  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER8  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTER`   =?_LKXa5bLVALUESLMEMBEReL	&OPTIONALgh    ?>j   $hBiLQ&SB-IMPLRj%DEFUN<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-VCS-DIRECTORY # ...) ...)l%( m$'($'$$$h1
n(o1pq;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?ul5    v8 ?>w   #   BN	DIRECTORYNRELATIVE<yL
MAKE-PATHNAME<LMERGE-PATHNAMES<KPROBE-DIRECTORY<&DEFUN IS-CVS-MANAGED}#& XEP for VCS-TREE::IS-CVS-MANAGED~H$$$M$$#  ($'($'$$ #   1
$(#KIS-CVS-MANAGED$$$C($'($'$$(#   1
(1; *                      Eeu[}܃   =         kP܃}      kP!      u`
MQNABSOLUTERm   QNABSOLUTERX   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER/   =?KDIR5bL*    ?>   $hBk<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-CVS-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-CVS-MANAGED # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #   Bwx>z<{<|<&DEFUN IS-SVN-MANAGED#& XEP for VCS-TREE::IS-SVN-MANAGEDH$$$M$$#  ($'($'$$ #   1
$(#KIS-SVN-MANAGED$$$C($'($'$$(#   1
(1; *                      Eeu[}܃   =         kP܃}      kP!      u`
MQNABSOLUTERm   QNABSOLUTERX   QNABSOLUTER;   QNABSOLUTER5   QNABSOLUTER/   =?    ?>   $hBk<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SVN-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SVN-MANAGED # ...) ...)%( $'($'$$$h1
(1;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?5    8 ?>   #	  BL<BLEQUAL%COERCE-CALLABLE-TO-FUN<>%FIND-POSITION<B<LNREVERSE<KFILTER-TREEKFLATTEN<LCONSKIS-MANAGED-DIR<NCVSLSEQUENCENSVN9:<;<&DEFUN FILTER-TREE#&XEP for VCS-TREE::FILTER-TREEH$$$M$$#   ($'($'$$#  1
$*#$$$C($'($'$$*#  1
#	  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))H$$$M$$#   ($'($'$#.  # 	  1
#:  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$C($'($'$#:  #	  1
#  #H$$$M$$#   ($'($'$#  #	  1
#"  #$$$C($'($'$#"  #	  1
(1;	*                      Ee  UM$<t  ЋMEEP܃      kP  uEX$<U  ]         nP]e!     MA    MA  
   ]KMA]%      kP    EX$<J  ]         nP]e-     MA    MA  
)   ]KMA]%      kP      HM@EE@؋$<  Ë@EE  W]܋M$<  P      nP]܁    [$<  Ë@E  u܃U1      kP  1  }  o    dH    dD       [ÉP@  dD    d=H    t	]ˉu   ME@E܃5         kP܃U   kPdH    dD       [ÉP@  dD    d=H    t	ˁ}     EXE@EU$<  =  IE@ȋѻ  B=  t-ڋR$<V  =  u܋ы9      u`  tBCŋJ  
=   
N  dH    dD       [ÉP@  dD    d=H    t	]ˉu   ME@E܃5         kP܃U   kPdH    dD       [ÉP@  dD    d=H    t	ˁ}     EXE@EU$<%  =  IE@ȋѻ  B=  tpڋR$<  =  u܋܃ы9      kPdH    dD       @dD    d=H    t	MHP  tBC낋Jz  
=   
NE}  u@dH    dD       @dD    d=H    t	MHMHE4]܋EPe}u]A      kP]܁  낋E@dH    dD       IdD    d=H    t	AE   A@$<uC<r<<r<I   
E@dH    dD       IdD    d=H    t	AM   A$<uC<r<<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ABSOLUTER  QNABSOLUTERu  QNABSOLUTERb  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERz  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx  QNABSOLUTER  QNABSOLUTERX  QNRELATIVERalloc_8_to_ecx8  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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   =?  a5bcf            a          KTREE
      ?>  $hB  &yCalled for a directory tree. First argument is name of current tree.
Returns a list of directories managed by CVS or SVN.  k<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FILTER-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::FILTER-TREE # ...) ...)
  %(   $'($'$$$h1
  (  1    ;h *
                      Ee܃   =   5   C        kP  MEᐐQNABSOLUTER>   QNABSOLUTER1   QNABSOLUTER+   QNABSOLUTER%   =?  
  5      8 ?>  #  BNNAME&entries  NTYPEwz<{<KREAD-FILE-TO-STRINGS<:<;<LSTRING&name="  &"  LCONCATENATE<B%MAP<B<&D/"  &////#  &Entries$  yCASE-FAILURELECASENDATUMN
EXPECTED-TYPEd)  N
POSSIBILITIES+  LERROR<KSTRING-TRIM-WHITESPACE<=<EE&DEFUN IS-MANAGED-DIR.  #& XEP for VCS-TREE::IS-MANAGED-DIR/  H$$$M$$#   $$#  $$#  (0  $'($'$$!#  1
1  $3#$$$C$$##  $$#C  (2  $'($'$$3#  1
3  #  #&%XEP for #'(LAMBDA (#:G196) (LET # #))4  H$$$M$$#   (5  $'($'$#  #  1
6  #  #&#'(LAMBDA (#:G196) (LET # #))7  $$$C(8  $'($'$#  #  1
9  #  #&%XEP for #'(LAMBDA (#:G192) (LET # #)):  H$$$M$$#   (;  $'($'$#  #  1
<  #  #&#'(LAMBDA (#:G192) (LET # #))=  $$$C(>  $'($'$#  #  1
?  (@  1A  B  ;'*,                      E`~  U}؉uԋ   9EN  ܃   =   5   C  !   C%   C)      kP܃}؋-      kP܃1      kPU܃U5      kP܃9      kP$<  B
   9M-  ܃=   =A   E   CI      kPʋ   9E^   d    E d     d    EUeU d    jB  dH    dD        :  @dD    d=H    t	PEU$<   M   dH    dD       [C.  BCdD    d=H    t	ECKe  u]Q      kP  RuE   E1ɉHN  U$<uB<r<W<r<KE
U   
NY   9Eg   d    E d     d    EUU d    jB  dH    dD        :  @dD    d=H    t	P|U$<   ]   dH    dD       [C.  BCdD    d=H    t	|CKe  u]Q      kP㋅|1ɉHUa      u`U$<uB<r<T<r<HE
U   
N  RuE     
Y   9Mu8܃=   =e   i   CI      kP  Y   9EuJ܃   =m   5   C  !   Cq   C)      kP܃$u   =   5y   }   CEԉC   C   C   C   C܋   $   kP㋥MU d     d    u d    9t1B	tJXd    B    9u݋
 d
    |1ɉH'  RuE   uMEuV}݋m    s}ǃMgEMU d     d    u d    9t1B	tJXd    B    9u݋
 d
    E1ɉHH *                     E`X@  U]E܃U      kPʋ$<ujA$<ua܃U1C  C    C        kP  u  MEE@11    $<u	A$<tBt  t$<uA<>n   
N *                     E`X@   U]E܃U      kPʋ$<usA$<uj܃U1C  C    C        kP  t'  R   E@      ME$<u	A$<tBt  t$<uA<>a   
N
M

M
MQNABSOLUTER  QNRELATIVERQUNWINDRK  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDRN  QNABSOLUTER  QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLER  QNABSOLUTER1  QNABSOLUTER(  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER
  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERl  QNABSOLUTERc  QNABSOLUTER[  QNABSOLUTERU  QNABSOLUTERE  QNABSOLUTER"  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_16_to_ebx|  QNABSOLUTERg  QNRELATIVERalloc_8_to_eax,  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERO  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   =?  =  
G192  5bcLNULLf            7  
G196            KSUBDIRLTYPE  5        ?>  $hB  k<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-MANAGED-DIR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-MANAGED-DIR # ...) ...)  %(   $'($'$$$h1
  (  1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #d  B<<&svn  L*ERROR-OUTPUT*&8INTERAL ERROR: not a version control system directory ~A  LFORMAT<KQUIT<&cvs  NUPDATE&	~A update  L
NAMESTRING<&(cd ~A; ~A)  &~A ~A:~%  wNWHOLEKSHELL-COMMAND-OUTPUT<&~A~%  &Exit status ~D: ~A ~A~%  NSTATUS&	~A status  NCOMMITLCAR<LSTRING=<&m  <& -m "~A"  &~A commit~A  &   %    &  '  (  d        *          ,  <&DEFUN PROCESS-VCS-DIRECTORY  #&'XEP for VCS-TREE::PROCESS-VCS-DIRECTORY  H$$$M$$#   $$#  $$#  (  $'($'$$#P  1
  $0#KPROCESS-VCS-DIRECTORY$$$C$$$c$$#   (  $'($'$$0#U  1
  #   #&FLET VCS-TREE::PROCESS  $$$C$$##  (  $'($'$#   #Z  1
  (  1    ;)d*.                      Ee)  U}u܃U      kP     ܃U      kP  t   E؋]Ej   Pd    JuPJ  ܃=!   u%      kP   )      u`-   E؋]E;1   d  ܃  =5   u؋%      kPU܃U9      kP܃  ==   EC%      kPU܃U9      kP܃'  =A   uC%      kP܃U=E   uI   CC'  M      kP	  ܋ډ]}u1    u]  t'  =Q   %      u`'  =U   ]%      u`;Y   u0܃  =]   u؋%      kPU;a   A  $<  ]
e   A=    Ei   m      nP]eq     MA    MA  M]KMA]u      kP  ti$<  r܃  =y   %      kP܃  =}   u؉C%      kPUy   ŋ$<uC<r<<r<   
܃$   =   5   
   KC   C   C   C   C܋   $   kP㐐
M

N
QNABSOLUTER7  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ABSOLUTERo  QNABSOLUTERi  QNABSOLUTER3  QNABSOLUTER   QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER}  QNABSOLUTERk  QNABSOLUTERZ  QNABSOLUTERQ  QNABSOLUTER;  QNABSOLUTER3  QNRELATIVERQ&SB-VM	  	GENERIC-=R  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERg  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:   =?    KACTIONKOPTIONS        ?>  $hB    k<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)  %(   $'($'$$$h1
  (   1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #   BK
*PROGNAME*  j%DEFVAR<#&Ptop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*PROGNAME*) (UNLESS # "") ...)
  %(   $'($'$$#   1
  (
  1    ; *
                      Ee
   AJu[Ad<    JuM=   ܃   '  C  C        kP  ME  벐QNABSOLUTER`   QNABSOLUTERG   QNABSOLUTER<   QNABSOLUTER    =?  
  5      8 ?>  #Z  B    &usage: ~A action [OPTIONS]~%    <&3Processes a source-control managed directory tree~%  &#Action: update, commit, or status~%  &	OPTIONS~%  &"   -m <str>    Set commit string~%  L
WRITE-CHAR<&DEFUN USAGE  #&XEP for VCS-TREE::USAGE  H$$$M$$#   (  $'($'$$R#(  1
  $d#&&MORE processing   NOPTIONAL$$#   $$#  $$$M("  $'($'$$d#(  1
#  #   #&!varargs entry for VCS-TREE::USAGE$  $KMSG$C$KMSG-ARGS$c('  $
OPTIONAL-ARGS$ REST-ARG$(*  ($'$#   #(  1
+  #  #&&OPTIONAL processor #:G311,  !  $$$(-  $'($'$#  #Z  1
.  #  #&&OPTIONAL processor #:G316/  !  ( 0  $'($'$#  #Z  1
1  (	2  13  4  ;Z*                      Ev/])ˋكvWV|$)^_ˉ}܃tueu  tڿ  NM    dH    dD       RRBB  dD    d=H    t	]}   Pd    JuPJG     pd45    JupJ*  ܃=         kP}        Pd    JuPJ  ܃=!         kP   Pd    JuPJ  ܃=%         kP   Pd    JuPJf  ܃=)         kP   Pd    JuPJ)  =-         u`   p       Pd    JuPJ   RE   UR   M$<   ܺ  9tqI$<t
N)]Ƌ)S{skP   xd<=    JuxJtk܃B
  1      kPdEE    ꐐ








N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTERF  QNABSOLUTER1  QNABSOLUTER   QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERt  QNABSOLUTER_  QNABSOLUTERY  QNABSOLUTER2  QNABSOLUTER  QNABSOLUTER
  QNABSOLUTER   QNABSOLUTER   QNRELATIVERalloc_to_edx   =?J  KUSAGEf%  L&REST&  M  5fL  N  c?AB  O  fP  Q      ?>S  $hBR  K  k<#&htop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::USAGE) (SB-INT:NAMED-LAMBDA VCS-TREE::USAGE # ...) ...)S  %( T  $'($'$$$h1
U  (V  1W  X  ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?\  S  5    ]  8 ?>^  #}  B&ci^  =<  &update_  &commit`  &statusa  b  KMATCH-UNIQUE-ABBREVIATION<    &Unknown action: ~Ad  K  <  <E&DEFUN PARSE-ACTION-ARGe  #&"XEP for VCS-TREE::PARSE-ACTION-ARGf  H$$$M$$#   (g  $	'($'$$#x  1
h  $*#KPARSE-ACTION-ARG$$$C(j  $	'($'$$*#}  1
k  (l  1m  n  ;
}*                      EeQ  UM$<   A$<   ܃U=   1C  C    C        kP  t   ME܃U=   !      kP u%   tFu)   믋܃-   }1      kP   5      u`   kM$<u
A$<M  $<uA<>MBE
9   
N
MQNABSOLUTERn  QNABSOLUTER  QNABSOLUTER	  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERm   QNABSOLUTERP   =?{  i  KARG}      ?>  $hB~  i  k<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PARSE-ACTION-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::PARSE-ACTION-ARG # ...) ...)  %(   $	'($'$$$h1
  (  1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 ?>  #7  B    NREQUIRED    KGETOPT<K  <  <i  <KCWD<KDIRECTORY-TREE<<KMKLIST<  <&Invalid action ~A  KCOMMAND-LINE-ARGUMENTS<&
DEFUN MAIN  #&XEP for VCS-TREE:MAIN  H$$$M$$#   (  $
'($'$$#(  1
  $6#&%hairy arg processor for VCS-TREE:MAIN  $KARGV$C(  $
(  $ (  ($'$$6#(  1
  #  #&&OPTIONAL processor #:G354  !  (   $
'($'$#  #7  1
  (  1    ;7*                      Eeu  uU
MM$<  X5    d    F
 d
    	u  Fd    Jrd    EP܃=         kP	  ܋U}    ԃ   1ɉjP܃   !      kPM$<  P܃%      kPU  ;  ԃ)   1ɉjP܃-      kP܃1      kP܃5      kP0S[]e}u]9      kP]$<6  =  u܃1ҋ!      kP
R   
S{s d    BJXd    B    
 d
    EuV}ϋ݋m    Ex܃=         kP܃   !      kP{UU    ԃA   1ɉjPU
N
N
QNABSOLUTER	  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERu  QNABSOLUTER^  QNABSOLUTER5  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTER   QNABSOLUTERL   =?  KMAINf          5f        ?>  $hB    k<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE:MAIN) (SB-INT:NAMED-LAMBDA VCS-TREE:MAIN # ...) ...)  %(   $
'($'$$$h1
  (  1    ;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?    5      8 QDEBUG-SOURCER

(  $$-  NFILE&>/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/main.lisp  "Ə   "}   $ +     1f  1             ̡       ̄       n       X       4                            ̘       B                      ̴        ̧        ̗        ̆        q        Q        ,      ?>  @# FASL
  	        compiled from "/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/loader.lisp"
  	        at Friday, September 24, 2004 11:16:43 PM MDT
  	        on pal
  	        using SBCL version 0.8.14.28
   X863      (:SB-PACKAGE-LOCKS :SB-THREAD)?>    #   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$<ueBH+  uc;   tH3~G@/@;   u9
   A	td<    Jt
d    Q  ME!   
   
/QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?3#LFUNCTION    58 ?>6   #  BBLERROR*HANDLER-CLUSTERS*&vcs-tree8Q&VCS-TREER9MAIN<L*ERROR-OUTPUT*&%vcs-tree failed due to error:~%  ~A~%<LFORMAT<NUNIX-STATUSQ&SB-EXTR?QUIT<&	DEFUN RUNA"&XEP for COMMON-LISP-USER::RUNBNEXTERNAL$$$M(D$&'$'$$#  1
E$&"Q&COMMON-LISP-USERRFRUN( H$&'$'$$&#  1
I#R  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)JC$$$C$$$c(K$&'$'$#  #  1
L#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)M$$#  (N$&'$'$#  #  1
O(P1QR;*                      Ee    dH    dD        :  @dD    d=H    t	HE܋ d    EЋ d    
 d
    EԉM؉e̍M d    iAq  dH    dD        :  @dD    d=H    t	HEȋ   dH    dD       IA.  BAdD    d=H    t	EȉAE܉AdH    dD       @dD    d=H    t	   PHdH    dD       [ÉP@  dD    d=H    t	
   Ad    JuAJ  dH    dD       vdD    d=H    t	^F    d    C
 d
    	u  Cd    JZd4    G  Hd
    JuHJK  $<D  y   dH    dD       [ÉPxdD    d=H    t	Ӌ܃!      kP
R   
S{s d    BJXd    B    
 d
    E1ɉH   e̋MԋU؋ d     d    uЋ d    9t1B	tJXd    B    9u݋
 d
    E܋p%   Pd    JuPJ  ܃=)   -      kP܃1      5      kP
R   
S{sE1ɉHEuV}ϋ݋m          *&                     EeX@MUMuG͋ԃ@uJE  pC11    
M
N

N

MQNRELATIVERQUNWINDR  QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLERN  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_esi  QNABSOLUTER  QNRELATIVERalloc_8_to_ebx  QNABSOLUTERg  QNRELATIVERalloc_8_to_eaxJ  QNRELATIVERalloc_16_to_ecx  QNABSOLUTER   QNRELATIVERalloc_8_to_eax   QNABSOLUTER   QNRELATIVERalloc_8_to_eax<   =?kMQ&SB-IMPLRlTEMPn4opX  kqkG4L*s    ?>u   $hBtGl%DEFUN<"&vtop level form (SB-IMPL::%DEFUN (QUOTE COMMON-LISP-USER::RUN) (SB-INT:NAMED-LAMBDA COMMON-LISP-USER::RUN NIL ...) ...)v$( w$&'$'$$$h1
x(y1z{;h *
                      Ee܃   =     C        kP  MEᐐQNABSOLUTER=   QNABSOLUTER+   QNABSOLUTER%   =?v4    8 QDEBUG-SOURCER	($$-NFILE&@/opt/home/kevin/debian/build/vcs-tree/vcs-tree-0.2.1/loader.lisp"Ə "} $ +     1{      R      +      ?>   @