#!/bin/sh --
exec sbcl --noinform --disable-debugger --userinit /dev/null --sysinit /dev/null --eval "(with-open-file (i \"$0\" :element-type '(unsigned-byte 8)) (loop while (< ret 2) when (= (read-byte i) 10) count 1 into ret) (load i) (funcall (quote RUN)) (quit))" --end-toplevel-options ${1+"$@"}
# FASL
  compiled from "/build/buildd/vcs-tree-0.2.2/package.lisp"
  at Tuesday, May 10, 2005 09:50:39 AM [+0]
  on vernadsky
  using SBCL version 0.8.17.4
   X864      (: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!   
   
0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!   
   
0QNABSOLUTER   QNABSOLUTER   QNABSOLUTERt   QNABSOLUTERl   QNABSOLUTERV   QNABSOLUTER+   QNABSOLUTER%   =?Y$5    Z8 QDEBUG-SOURCER

(\$$-]NFILE&)/build/buildd/vcs-tree-0.2.2/package.lisp_" `"o+ a$ +     %b1cdeQ      eD      e,      ?>f   @# FASL
  compiled from "/build/buildd/vcs-tree-0.2.2/kmrcl-excerpt.lisp"
  at Tuesday, May 10, 2005 09:50:39 AM [+0]
  on vernadsky
  using SBCL version 0.8.17.4
   X864      (: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!   
   
0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$$#   (F$'($'$$*#  1
G#  #&FLET #:CLEANUP-FUN-9HNCLEANUP( J$'+   K$'$#  #  1
L(M1NO;
*                      Ee  UE  ܃U=   5         kPuuȹ'  dH    dD        :  @dD    d=H    t	HE̋ d    E d    
 d
    EMĉeMЋ d    iAW  EЋ
 d
    ԃ   1ɉjPuE܃ֿ  !      kP;EtadH    dD       IdD    d=H    t	AEAM܃Uȿ  u!      kP뚋܃U%      kPUE̹  H d     
 d
    ݋̃`ŰEȉYEE     UMEU]MMUċ d     d    u d    9t1B	tJXd    B    9u݋
 d
    ݋̃`ŰEȉYE  E]M    =  u  em r܃Ћ=)   -      kPː
MQNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_ecx]  QNABSOLUTER2  QNABSOLUTER
  QNABSOLUTER   QNRELATIVERalloc_8_to_eaxx   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 #) ...)$$#   $`($'($'$$*#  1
(1;"*                      Ee  UU$<  R܃            kP  5  EH$<|  yEH$<l  I$<b  AEEH$<O  I$<E  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
NQNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER}  QNABSOLUTERf  QNABSOLUTERW  QNABSOLUTERQ  QNABSOLUTER4  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERM   =?
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  $*#,  $$##  (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	]   E@EH$<m  M܃։}u-      kPu}  tl}܃֋      kPdH    dD       [ÉP@  dD    d=H    t	}    EX}  :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	]ˋus}V܃uE      kP}udH    dD       [ÉP@  dD    d=H    t	ˁ  ta_v$<   =  tEHdH    dD       @dD    d=H    t	UPH  
I   
N܃M   }܋A      kPM܋$<uA<r<<r<E܋
Q   
N  
I   
N
M
N
N

QNABSOLUTERj  QNABSOLUTERY  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_8_to_ebxh  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ABSOLUTER  QNRELATIVERalloc_8_to_ebxs  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  $$$N(w  $'+   x  $'$#  #  1
y  (z  1{  |  ;*                      Ee  Uԋ܃Uԋ      kPU؋܃U؋      kPʋՋă@PE   '  E܃U؋      kPʋՋă@PE    }  j  }    =         uU؋ME܃U؉u      kPuʋՉuă@PE  i  u܃Ћ!      kP%   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	=;
I   tem   𐐐
MQNABSOLUTER  QNRELATIVERalloc_8_to_ebxz  QNABSOLUTERV  QNABSOLUTERM  QNABSOLUTERD  QNRELATIVERalloc_8_to_ebx  QNRELATIVERalloc_8_to_ebx  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERw  QNABSOLUTERj  QNABSOLUTERd  QNABSOLUTERM  QNABSOLUTER6  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERx   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    ;	*                      Eeڅu  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!   
   
0Ӌ      nPhCH+  uQ;%   =Ӊ])      nP]Ӌ)      nP%   
0  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O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  $
'($'$$X#  1
P  $q#&&MORE processingQ    $$$c$$#  $$#   (R  $
'($'$$q#  1
S  #4  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUTT  $DCMD$C(V  $
$ j  DELETED;  W  (X  ($'$#4  #  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||UM
Mu    E    E   m؋؋;   tQ;   tI;   t>dH    dD       [ÉP@  dD    d=H    t	U }  uEE}  uA
 
܃   =!   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f  E
 d
    =   }dH    dD       [ÉP@x@  dD    d=H    t	܃ A   5E   C  I   CECM   CECQ       kPډ] d     
 d
    Ջ́   EQE"    ] d     
 d
    Ջ́   EQEa    ]$<uECH+  uC;U   usU؋}܋ݹ   mccH3~@/@
;U   tыY   
U   
0U]MMU d     d    u d    9t1B	tJXd    B    9u݋
 d
    Ջ́   EQEX     E]M    U]MMU d     d    u d    9t1B	tJXd    B    9u݋
 d
    Ջ́   EQE  E]M    ܃Ћ]      kP  em ܃Ћ]      kP  em QNABSOLUTER  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNRELATIVERQUNWINDR  QNABSOLUTER  QNABSOLUTER^  QNABSOLUTERR  QNABSOLUTERJ  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERm  QNABSOLUTER^  QNABSOLUTERO  QNABSOLUTERB  QNABSOLUTER<  QNRELATIVERalloc_16_to_ebx  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERi  QNABSOLUTERJ  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERm  QNABSOLUTER]  QNABSOLUTERM  QNABSOLUTERG  QNABSOLUTERA  QNABSOLUTER;  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&//build/buildd/vcs-tree-0.2.2/kmrcl-excerpt.lisp  "   "o+   $ +     eON
.  1      ̟       d       5       ,              
                     ̼       ̬       ̛       |       _       8                                             ̼        ̡        ̒        ́        r        O        ,      ?>  @# FASL
  compiled from "/build/buildd/vcs-tree-0.2.2/getopt-excerpt.lisp"
  at Tuesday, May 10, 2005 09:50:39 AM [+0]
  on vernadsky
  using SBCL version 0.8.17.4
   X864      (: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!   
   
0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   $<u`F<uYL-uIF   9vr$<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   $<u`F<uYL-uIF   9vr$<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   #p  B7&DEFUN IS-LONG-OPTIONu#& XEP for VCS-TREE::IS-LONG-OPTIONv:$$$M$$#  (w$'($'$$ #P  1
x$,#=IS-LONG-OPTION$,#  $C(z$'($'$$,#U  1
{(|1}~;p*                      Ee'  u֋U    u  ME$<   F$<   F19   $<   F<   L-   F   9   $<u`F<uYL-uFF   9   $<u$F<uL-u
  D'  :
/  )
/  
/   

M
!
M
!
M
!
MQNABSOLUTERA  =?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  o  ܃B=  }ؾ  C    C  CK      kP  ܋}܃U؋}u!      kPU}  t=}܃U؋!      kPUݹ   mc  c  M؋$<uA<r<<r<E؋
%   
N)   9EuE   ܃$-   =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ABSOLUTERl  QNABSOLUTER`  QNABSOLUTER  QNABSOLUTER   QNABSOLUTER   QNABSOLUTERh   QNABSOLUTERT   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(  $'($'$$-#m  1
  (  1    ;~*
                      EeA  U}  dH    dD       [ÉP@  dD    d=H    t	]ˋu`N$<   QdH    dD       [ÉP@  dD    d=H    t	ˁ     _v$<   =  uEx܃U      kP  t7܃}      kP$<u@RME    
   
N
M
N

QNABSOLUTERY  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$$#   $$#   (%  $'($'$$-#   1
&  ('  1(  )  ; *                      Ee   U}܃U      kP	  ܋U׉u܃}      kP  t $<u+p}ݹ   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	CHARACTER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  UЋU    UE    C  ܃U}Ћ      kP$<  BEUU    9U  M$<  A$<  M$<)  A$<  ܃U}1C  C    C        kP  tpdH    dD       @dD    d=H    t	MHMHdH    dD       IdD    d=H    t	AE܉AM܋EEE;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	MHMH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  #6  Ba<$  <<LNREVERSE<NREQUIRED><y<NNONE&DEFUN GETOPTo  #&XEP for VCS-TREE::GETOPTp  :$$$M$$#   $$#  (q  $	'($'$$#  1
r  $-#=GETOPT$$#c  $$#C  (t  $	'($'$$-#  1
u  (v  1w  x  ;6*                      Ee  UЉ}ԋEЉEE  E  E  E  .  }  1  M$<}  P܃      kP    E@EEP܃}ԋ      kP  R    S	  SUSUűM}  &  9=      ܃U      kPdH    dD       @dD    d=H    t	PMHEM$<  @E}  ܃U!      kPU܃U؋!      kPUuݹ   mcc9=%   &dH    dD       @dD    d=H    t	MHMHE;  u  U$<  J$<  A9)     EH$<  Q܃-      kPú     EH$<U  A9)      EH$<9  I$</  IdH    dD       @dD    d=H    t	pHdH    dD       IdD    d=H    t	AEAMdH    dD       @dD    d=H    t	pMHEEH$<s  Q܃1      kPú  EH$<:  IdH    dD       @dD    d=H    t	pHdH    dD       IdD    d=H    t	AE؉AM؋E@EE@=  dH    dD       @dD    d=H    t	pMHEU$<g  R$<]  B;5   u=dH    dD       @dD    d=H    t	pMHETdH    dD       @dD    d=H    t	pHdH    dD       IdD    d=H    t	AE؉AME'  M$<   HdH    dD       @dD    d=H    t	HMHE
M
NE
N

N
N
N
N
N
N
N


NQNRELATIVERalloc_8_to_eax  QNRELATIVERalloc_8_to_ecxZ  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_ecx.  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNRELATIVERalloc_8_to_eaxl  QNRELATIVERalloc_8_to_ecx/  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER_  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eaxD  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&0/build/buildd/vcs-tree-0.2.2/getopt-excerpt.lisp  "   "o+   $ +
     iGp
  1      ̞       x       e       M       7       )                                             ̦        ̇        ~        o        f        W        C        ,      ?>  @# FASL
  compiled from "/build/buildd/vcs-tree-0.2.2/main.lisp"
  at Tuesday, May 10, 2005 09:50:39 AM [+0]
  on vernadsky
  using SBCL version 0.8.17.4
   X864      (: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!   
   
0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	CHARACTER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
   
0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
$*#$$#   ($'($'$$*#  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y  UM$<t  ЋMEEP܃      kP  uEpu$<&  ܃         kPu܃!     C    C  
   KC%      kP  q  Epu$<+  ܃         kPu܃-     C    C  
)   KC%      kP  v    HM@EE@EM$<  @EE  ZM$<  P܃      kP    E@EM$<  @E}  u܃U1      kP  )  }  k    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$<j  =  IEPʻ  A=  t+ًI$<8  =  u܋9      u`  tACǋQ¸  
=   
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$<	  =  IEPʻ  A=  tnًI$<  =  u܋܃9      kPdH    dD       @dD    d=H    t	MHP  tAC넋Q|  
=   
NE}  u@dH    dD       @dD    d=H    t	MHMHE2EP܃}uA      kP   댋EHdH    dD       @dD    d=H    t	H
E   HL$<uF<r<<r<I   
EHdH    dD       @dD    d=H    t	H
M   H$<uF<r<<r<I   
 *                     Ee  UU$<  J$<t  MEAP+  un;Q   uKEP܃U      kP܃Y      kP$<>  R됋H3~@/@
;Q   tpQ   
0N*
                     Ee   UU$<   J$<t  MEAP+  uj;Q   uGEP܃U      kP܃Y      kP$<uqR딋H3~@/@
;Q   ttQ   
0N
M
N
N
N

N

N
M


M

QNABSOLUTER  QNABSOLUTER  QNABSOLUTERU  QNABSOLUTER;  QNABSOLUTER(  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERu  QNABSOLUTER[  QNABSOLUTERH  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTER_  QNABSOLUTER.  QNRELATIVERalloc_8_to_eax  QNABSOLUTER  QNRELATIVERalloc_8_to_eax  QNABSOLUTERh  QNRELATIVERalloc_8_to_eax   QNABSOLUTER  QNRELATIVERalloc_8_to_ebxa  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_ebxl  QNABSOLUTER(  QNABSOLUTER  QNABSOLUTERb  QNABSOLUTERV  QNABSOLUTER;  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  $$#   (8  $'($'$#  #  1
9  #  #&%XEP for #'(LAMBDA (#:G192) (LET # #)):  H$$$M$$#   (;  $'($'$#  #  1
<  #  #&#'(LAMBDA (#:G192) (LET # #))=  $$#   (>  $'($'$#  #  1
?  (@  1A  B  ;'*,                      E`~  Uԉ}Љu؋   9EI  ܃   =   5   C  !   C%   C)      kP܃}Ћ-      kP܃1      kPU܃Uԋ5      kP܃9      kP$<  B
   9M(  ܃=   =A   E   CI      kPʋ   9EZ   d    E d     d    EUeU d    jB  dH    dD        :  @dD    d=H    t	PEU$<   M   dH    dD       vF.  BFdD    d=H    t	EFN܃  uQ      kP  RuE   E1ɉHP  U$<uB<r<[<r<OE
U   
NY   9Ef   d     d     d    EU|U d    jB  dH    dD        :  @dD    d=H    t	PxU$<   ]   dH    dD       vF.  BFdD    d=H    t	xFN܃  uQ      kP㋅x1ɉHUԋa      u`U$<uB<r<X<r<LE
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     d    9t1B	tJXd    B    9u݋
 d
    x1ɉ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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ABSOLUTER  QNABSOLUTERg  QNABSOLUTER^  QNABSOLUTERV  QNABSOLUTERP  QNABSOLUTER@  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERalloc_16_to_esi{  QNABSOLUTERf  QNRELATIVERalloc_8_to_eax+  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERK  QNRELATIVERalloc_16_to_esi	  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 ?>  #\  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$$#   $$#  $$#  (  $'($'$$#H  1
  $0#KPROCESS-VCS-DIRECTORY$$$C$$$c$$#   (  $'($'$$0#M  1
  #  #&FLET VCS-TREE::PROCESS  $$##  $$#C  (  $'($'$#  #R  1
  (  1    ;)\*.                      Ee!  U}u܃U      kP     ܃U      kP  tEE؋   EԋuEp   Pd    JuPJ  ܃=!   u%      kP   )      u`EE؋-   EԋuE;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   3  $<   
e   A=  y  E܃i   um      kPu܃q     C    C  MKCu      kP  ti$<  r܃  =y   %      kP܃  =}   uԉC%      kPU   ŋ$<uF<r<<r<   
܃$   =   5   
   KC   C   C   C   C܋   $   kP
M

N
QNABSOLUTER5  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ABSOLUTERk  QNABSOLUTERe  QNABSOLUTER/  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERw  QNABSOLUTERf  QNABSOLUTER]  QNABSOLUTERG  QNABSOLUTER?  QNRELATIVERQ&SB-VM	  	GENERIC-=R$  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERs  QNABSOLUTERg  QNABSOLUTERF  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#   ('  $
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`
   A=    E   Pd    JuPJ   RE   UR   M$<     9tqI$<t
N)]E)S{skP   xd<=    JuxJth܃B
  1      kPaEE    






N

N
QNABSOLUTER  QNABSOLUTER  QNABSOLUTERH  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#   (  $
(  $ (  ($'$$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U$<  R܃%      kPU  >  ԃ)   1ɉjP܃-      kP܃1      kP܃5      kPU/EPE@E܃}u9      kPM$<5  =  u܃1ҋ!      kP
R   
S{s d    BJXd    B    
 d
    EuV}ϋ݋m    Ex܃=         kP܃   !      kPxUU    ԃA   1ɉjPU
N

NQNABSOLUTER
  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTER  QNABSOLUTERs  QNABSOLUTER\  QNABSOLUTER3  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&&/build/buildd/vcs-tree-0.2.2/main.lisp  "   "o+   $ +     1f  1             ̡       ̄       n       X       4                            ̘       B                      ̴        ̧        ̗        ̆        q        Q        ,      ?>  @# FASL
  compiled from "/build/buildd/vcs-tree-0.2.2/loader.lisp"
  at Tuesday, May 10, 2005 09:50:39 AM [+0]
  on vernadsky
  using SBCL version 0.8.17.4
   X864      (: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!   
   
0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#T  "&@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s  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       [dD    d=H    t	SC5    d    F
 d
    	u  Fd    Jrd    G  Hd
    JuHJI  $<B  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pMUEuGă@UˋމxE  SA11    
M
N

N


QNRELATIVERQUNWINDR  QNABSOLUTER  QNRELATIVERQRETURN-MULTIPLERP  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_ebx  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&(/build/buildd/vcs-tree-0.2.2/loader.lisp" "o+ $ +     1{      R      +      ?>   @