#!/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.1/package.lisp"
  	        at Saturday, September 25, 2004 08:29:59 AM [+0]
  	        on repeat.rfc822.org
  	        using SBCL version 0.8.14.28
   MIPS3      (:SB-PACKAGE-LOCKS)?>    #(  Q&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+,;(*
                      '  &  Ѯ Ү
 ȏ     Ώ 4 ߍx '! !    6  !     ' 1 !8%       	    + *    $ T     ʏ     *    3 $     (      / )     )     ʏ     *     ɏ    (!@  Ď     Ɏ    !!  ?% !  ɏ    
 
 . ɏ    
 
 /.=?-$LFUNCTION    /8 ?>0   #   &VCS-TREE0&CL12&MAIN3405Q&SB-IMPLR6%DEFPACKAGE<#&@top level form (SB-IMPL::%DEFPACKAGE "VCS-TREE" (QUOTE NIL) ...)8%( 9$'($$$$(#   1
:(;1<=; *
                      '@ &  Ѯ Ү! 0 &
 ȏ    !H!P!X!` ͏       Ώ       Ώ    $ ( ,  Ώ0 4 ߍ '! !     60  !     @'!@  Ď     Ɏ    !!  ?% ! =?>8.    ?8 ?>@   #(   VCS-TREE<#$%( A$'($$$$(#(  1
B(C1DE;(*
                      '  &  Ѯ Ү
 ȏ     Ώ 4 ߍx '! !    6  !     ' 1 !8%       	    + *    $ T     ʏ     *    3 $     (      / )     )     ʏ     *     ɏ    (!@  Ď     Ɏ    !!  ?% !  ɏ    
 
 . ɏ    
 
 /.=?F$.    G8 QDEBUG-SOURCER

(I$$-JNFILE&)/build/buildd/vcs-tree-0.2.1/package.lispL"Ə M" N$ +     %O1PQRE      R=      R,      ?>S   @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp"
  	        at Saturday, September 25, 2004 08:30:01 AM [+0]
  	        on repeat.rfc822.org
  	        using SBCL version 0.8.14.28
   MIPS3      (:SB-PACKAGE-LOCKS)?>    #(  Q&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+,;(*
                      '  &  Ѯ Ү
 ȏ     Ώ 4 ߍx '! !    6  !     ' 1 !8%       	    + *    $ T     ʏ     *    3 $     (      / )     )     ʏ     *     ɏ    (!@  Ď     Ɏ    !!  ?% !  ɏ    
 
 . ɏ    
 
 /.=?-$LFUNCTION    /8 ?>0   #(  N	DIRECTIONNINPUTLOPEN<LGENSYM<L	READ-LINE<LNREVERSE<NABORTLCLOSE<&DEFUN READ-FILE-TO-STRINGS8#&&XEP for VCS-TREE::READ-FILE-TO-STRINGS9NEXTERNAL$$#   $$#  (;$'(#N  #-  $ #   1
<$4#Q&VCS-TREER=READ-FILE-TO-STRINGS$$$d(?$'($$$$8#(  1
@#  #&FLET #:CLEANUP-FUN-9ANCLEANUP( C$'+   .D$$#   #  #(  1
E(F1GH;	(*                      '` & 4      Ȯ  Ѯ Ү Ԯ Ȏ    
 ɏ     ʏ     Ώ 4 ߍ '! !6*  !     X'!P < ʮ & 4 9' (7:4             a 9'
  	8 Ȯ ʮ! L Į	    !PH ȮD ɮ@ ʮ! P Į &!        '  &! Ώ  4 ߍh'! !6Z  !     ' ʎ    !X  ˮ!@@!H!P` Ώ 4 ߍ'! !6l  !     P' Ɏ    ! 	     4 9' )7             a 9'
  ( Ȏ     ( ɮ< Ȏ    !H ʎ     Ώ 4 ߍ8'! !6  !     '      Ȏ    ! Ώ 4 ߍx'! !    6  !     ' Ȯ8 Ȏ    !      !    !!! ` &8 Ɏ    < ʎ    !0  ! '>          6   Ȏ      Ď     Ɏ    !!  ?% ! 6   Ȯ Ѯ ǮH Ȏ    D Ɏ    @ ʎ    	!@L      5              	&5    !0! ` &8 Ɏ    < ʎ    ! '          6   Ȏ     ю     Ɏ    !8         Ȯ	 T    !H!  Ȏ    !% !    Ʈ+    !@@% ɏ    !P`) Ώ 4 ߍ8'! !    6 !     '  Ǝ         
 
  QNJUMPRQUNWINDR  =?K>=FILEM.NLVALUESLLISTL	&OPTIONALRS    ?>U   #   T>&?Opens a reads a file. Returns the contents as a list of stringsUQ&SB-IMPLRV%DEFUN<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::READ-FILE-TO-STRINGS) (SB-INT:NAMED-LAMBDA VCS-TREE::READ-FILE-TO-STRINGS # ...) ...)X%( Y$'($$$$(#   1
Z([1\]; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?^X.    _8 ?>`   #   =*WHITESPACE-CHARS*E E	E
E
aV%DEFVAR<#&Wtop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*WHITESPACE-CHARS*) (UNLESS # #) ...)c%( d$'($$$$(#   1
e(f1gh; *                      '  &  Ѯ Ү
 ɏ    (    J 9       ɏ    
 ȏ     &!X!` Ώ 4 ߍ '! !    6(  !     `'!@  Ď     Ɏ    !!  ?% ! !H         =?ic.    j8 ?>k   #   `LSTRING-TRIM<&DEFUN STRING-TRIM-WHITESPACEl#&(XEP for VCS-TREE::STRING-TRIM-WHITESPACEm:$$#   $$#.  (n$'(#N  #-  $$$x1
o$8#=STRING-TRIM-WHITESPACE$$#N  (q$'(#n  #   $<#   1
r(s1tu; *                      '  &!H  4     !P !  !X@
 ȏ    	    J !9      !@ !H@ Ώ 4 ߍ!  !`
 
  
 
    =?vp=STRx.NOL
SIMPLE-STRINGQz{    ?>}   #   |pW<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::STRING-TRIM-WHITESPACE) (SB-INT:NAMED-LAMBDA VCS-TREE::STRING-TRIM-WHITESPACE # ...) ...)}%( ~$'($$$$(#   1
(1; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?}.    8 ?>   #t  PROPER-LIST-OF-LENGTH-P<=ITV
BACKQ-LIST<LIFLLETLDEFMACRO=AIF=TEST=THENQ=ELSEARG-COUNT-ERROR<&DEFMACRO AIF#&>XEP for #'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...):$$#   $$#  $`($'(#N  #-  $ #   1
$4#&6#'(LAMBDA (#:WHOLE28 #:ENVIRONMENT29) (DECLARE #) ...)$$$d$`($'($$$$8#  1
(1;
t*                      '  & 4      Ȯ  Ѯ Ү Ȏ     1 !8            	4 
4
 Ώ 4 ߍ '! !    6.  !     H'      Ȏ          1 !8      	     Ȏ          1 !8            1 !8           Ȯ Ȏ          1 !8            1 !8           Q      Ȏ          1 !8z            1 !8w            1 !8t           Ȯ ȏ     Ώ 4 ߍ'! !    6  !     ' Ώ 4 ߍ8'! !    6  !     ' Ȯ ȏ     ɏ     ʎ     ˎ     Ώ 4 ߍ'! !6  !     x'!P  ȏ     Ɏ     Ώ 4 ߍ  ю  Ҏ Ԯ      Ȏ     
    ! ȏ    % ɏ    ) ˏ     4 
4- Ώ 4 ߍ '! !    6  !     'g     
 
  
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    =?
WHOLE28

ENVIRONMENT29.L*    ?>   #   &DEFMACRO VCS-TREE::AIF	%DEFMACRO<#&Gtop level form (SB-C::%DEFMACRO (QUOTE VCS-TREE::AIF) (FUNCTION #) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X ̏     Ώ 4 ߍ '! !6$  !     p'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #  =FLATTEN<LAPPEND<&
DEFUN FLATTEN#&XEP for VCS-TREE::FLATTEN:$$#   $$#  ($'(#N  #-  $ #  1
$4#$$$d($'($$$$8#  1
(1;*                      '  & 4r      Ȯ  Ѯ Ү Ȏ      1 !8       Ȏ      Ď     Ɏ    !!  ?% !  Ȏ         1 !8*       Ȏ        
 Ώ 4 ߍ '! !    6<  !     ' Ȯ Ȏ         
 Ώ 4 ߍ0'! !6L  !     '!H  Ȏ     Ώ 4 ߍ  ю  Ҏ Ȏ         4 9' +7!H`( 4             a 9'
   ˮ Ȏ         
 Ώ 4 ߍ'! !    6v  !     ('!H  Ȏ     Ώ 4 ߍ  ю  Ҏ    
 
  =?=LIS.NOQ    ?>   #   W<#&ltop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FLATTEN) (SB-INT:NAMED-LAMBDA VCS-TREE::FLATTEN # ...) ...)%( $'($$$$(#   1
(1; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #   &DEFUN MKLIST#&XEP for VCS-TREE::MKLIST:$$#   $$#  ($'(#N  #-  $ #   1
$0#=MKLIST$$#  ($'(#N  #-  $0#   1
(1; *                      '  & 4     !`  1 !8      !@ 4 9' +7!H`( 4!@`             a 9'
  !!  _& !@!@     
 
  =?=OBJS    ?>   #   &Make into list if atomW<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MKLIST) (SB-INT:NAMED-LAMBDA VCS-TREE::MKLIST # ...) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #@  =CANONICALIZE-DIRECTORY-NAME<NNAMENWILDNTYPENDEFAULTSL
MAKE-PATHNAME<L	DIRECTORY<=PROBE-DIRECTORY<LIDENTITY<LEQL<%FIND-POSITION<&root not directory ~ALERROR<=DIRECTORY-TREE<LCONS&~ALSEQUENCE&DEFUN DIRECTORY-TREE#& XEP for VCS-TREE::DIRECTORY-TREE:$$#   $$#  ($'(#N  #-  $ #  1
$4#$$$d($'($$$$8#  1
(1;@*                      '@ & 4x     Ȯ  Ѯ Ү Ȏ    
 Ώ 4 ߍ '! !    6.  !     H'!h  ͮ ȏ     ɏ     ʏ     ˏ     ̏    ! Ώ 4 ߍ'! !    6F  !     '% Ώ 4 ߍH'! !    6R  !     '!P Ȯ!@ 4 9' +7!H`( 4             a 9'
   ˮD      $ ˮ Ȏ    
      ʮ Ȏ          1 !8%      Ȯ!@@) Ώ 4 ߍ '! !    6  !      '$ ˎ      ʎ    "     !`` ̮!@@
 Ώ 4 ߍP'! !6  !     ' ̎     4 9' +7!H`( 4!@`             a 9'
  !X        Ȏ         Ȏ          2 !8       Ю- ȏ     
         1 ȏ          4    !  &!@!H !P!X  !` 5 Ώ 4 ߍP'! !     6  !     ' Ў         9      Ȏ    ) Ώ 4 ߍ'! !    6  !     `'      Ȏ     4 9' +7!H`( 4!@`             a 9'
    Ď     Ɏ    !!  ?% ! 9 ȏ     Ɏ    = Ώ 4 ߍH'! !    6 !     '!@ 4 9' +7!H`( 4             a 9'
   ˮ!@`!` '       ̮!h  ͮ    A Ώ 4 ߍ'! !64 !     0' ̎     ͎     4 9' +7!H`( 4             a 9'
  !@`            1 !8R      !H4     Ȏ          4 9' )7             a 9'
   ʎ    * (!@      !@E ɏ    
 
 .I ȏ    !H = Ώ 4 ߍ'! !    6z !     ' 2 !8          v!$  !$/ !$  !$+     M ȏ    
 
 !@E ɏ    
 
 .
 
  
 
    
 
    
 
    
 
    =?=FILENAMES    ?>   #   &>Returns a tree of pathnames for sub-directories of a directoryW<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DIRECTORY-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::DIRECTORY-TREE # ...) ...)%( $'($$$$(#   1
(1     ; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?  .      8 ?>  #  LPATHNAME<L
PATHNAME-NAME<L
PATHNAME-TYPE<LPATHNAME-DIRECTORY<<N	DIRECTORYNVERSION<LSTRING&.  LCONCATENATE<N
UNSPECIFIC&!DEFUN CANONICALIZE-DIRECTORY-NAME  #&-XEP for VCS-TREE::CANONICALIZE-DIRECTORY-NAME  :$$#   $$#  (  $'(#N  #-  $ #  1
  $4#$$$d(  $'($$$$8#  1
  #  #&FLET VCS-TREE::UN-UNSPECIFIC  $$#.  (  $'+   n  #  #   #  #  1
  (  1    ;*                      '@ & 4      Ȯ  Ѯ Ү Ȏ    
 Ώ 4 ߍ '! !    6,  !     P' Ȯ Ȏ     Ώ 4 ߍ '! !6:  !     '!! @ &!H !0  !  '          6H   ˮ Ȏ     Ώ 4 ߍP'! !    6T  !     '!! @ &!H !0  ! '          6b   Ȏ    v      Ȏ    a     O t    !`      Ȏ      Ď     Ɏ    !!  ?% !  ̮ Ȏ     Ώ 4 ߍ'! !    6  !     '!H !0! @ &! H'n      6   ̎    !@`!H Ώ 4 ߍx'! !6  !     '!H ! ȏ    % ʏ    !X) ̏    !h- Ώ     ή Ԯ1 Ώ      ή Ύ    $ ή5 Ώ( 4 ߍ  ю  Ҏ!@` 4 9' +7!H`( 4!``             a 9'
        Ȏ     4 9' +7!H`( 4!``             a 9'
       t    9 ȏ     Ɏ    = ʏ    A Ώ 4 ߍ'! !    6  !     P' 4 9' +7!H`( 4!``             a 9'
  p     E ʏ     *    !X ! !% !  !X     
 
  =?  .NO  Q        ?>  #     W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CANONICALIZE-DIRECTORY-NAME) (SB-INT:NAMED-LAMBDA VCS-TREE::CANONICALIZE-DIRECTORY-NAME # ...) ...)  %(    $'($$$$(#   1
!  ("  1#  $  ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?%    .    &  8 ?>'  #   <L
NAMESTRING<Q&SB-UNIXR	(  UNIX-FILE-KIND<  &DEFUN PROBE-DIRECTORY*  #&!XEP for VCS-TREE::PROBE-DIRECTORY+  :$$#   $$#  (,  $	'(#N  #-  $ #  1
-  $4#$$$d(.  $	'($$$$8#   1
/  (0  11  2  ; *
                      '  & 4<      Ȯ  Ѯ Ү Ȏ    
 Ώ 4 ߍ '! !    6"  !     x' Ώ 4 ߍ '! !    6.  !     H' Ώ 4 ߍ '! !    6:  !     ' ɏ     (     &  Ď     Ɏ    !!  ?% ! !@         
 
  =?3  .NOLMEMBER5  Q6  7      ?>9  #   8  W<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROBE-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROBE-DIRECTORY # ...) ...)9  %( :  $	'($$$$(#   1
;  (<  1=  >  ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =??  9  .    @  8 ?>A  #@  	(  
POSIX-GETCWD/<LPARSE-NAMESTRING<QLPATHNAMER

(D  $$-E  L*DEFAULT-PATHNAME-DEFAULTS*  QLLOGICAL-PATHNAMER

E  (H  $$-I  LTRANSLATE-LOGICAL-PATHNAME<&	DEFUN CWDK  #&XEP for VCS-TREE::CWDL  :$$#   $$#  (M  $
'(#N  #-  $ #@  1
N  $X#&%hairy arg processor for VCS-TREE::CWDO  $=DIR#N  $d(Q  $

OPTIONAL-ARGS$ (S  ($$$$\#@  1
T  #(  #&&OPTIONAL processor #:G94U  NOPTIONAL( W  $
'(#  #-  #,  #@  1
X  (Y  1Z  [  ;@*                      '  &            4     !P   Ѯ!@@      
 
   Ȯ7 T     ʮ
 Ώ  4 ߍ '! !    6.  !     H' ʎ     1 !8          ^!$  !$  !$  !$       ʮ Ώ 4 ߍ0'! !    6L  !     ' ʎ      Ď     Ɏ    !!  ?% !  A1 !8K       A1 !8      A    ^!$  !$0  !$  !$,       A1 !8       H    + 	     4     ɏ     	     ȏ    
!@@     3      (	      /     
      ɏ    	     ȏ    
 
 N ȏ    
 
 /N!@@ Ώ 4 ߍ'! !    6  !     x'!P       H    + 	    # 4    ! ɏ    	     ʮ!@@% Ώ 4 ߍ'! !6  !     ' ʎ    !@@% Ώ 4 ߍ('! !6  !     '!P      ! ȏ    
 
 /N!@@!P  ѮH         =?\  =CWDQP  ^  .Q_  `      ?>b  #   a  ]  &)Change directory and set default pathnameb  W<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::CWD) (SB-INT:NAMED-LAMBDA VCS-TREE::CWD # ...) ...)c  %( d  $
'($$$$(#   1
e  (f  1g  h  ; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?i  c  .    j  8 ?>k  #   NUNIX-STATUSQ&SB-EXTR	l  QUIT<&
DEFUN QUITn  #&XEP for VCS-TREE::QUITo  :$$#   $$#  (p  $'(#N  #-  $ #   1
q  $T#&&hairy arg processor for VCS-TREE::QUITr  $=CODE#N  (t  $R  $ (u  (#n  #   $X#   1
v  #   #&&OPTIONAL processor #:G106w  V  ( x  $'(#N  #-  #   #   1
y  (z  1{  |  ; *                      '  &     '       4     !P !        
 
  !X@ A1	   A1 !8      A    !$
      !H@
 ȏ     Ώ 4 ߍ!  !` T    !H        	4     !P  !       =?}  =QUITQs  $     ._        ?>  #     ~  &LFunction to exit the Lisp implementation. Copied from CLOCC's QUIT function.  W<#&ftop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::QUIT) (SB-INT:NAMED-LAMBDA VCS-TREE::QUIT # ...) ...)  %(   $'($$$$(#   1
  (  1    ; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?    .      8 ?>  $l&DEFUN COMMAND-LINE-ARGUMENTS  #&(XEP for VCS-TREE::COMMAND-LINE-ARGUMENTS  :$$#   (  $'(#N  #-  $ $X1
  $(#=COMMAND-LINE-ARGUMENTS(   $'(#N  #-  $($`1
  (  1    ;l *                      '  &
     4 &	    J !9	      !@ !!  _& !@
 
  
 
    =?    .      ?>  #       W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::COMMAND-LINE-ARGUMENTS) (SB-INT:NAMED-LAMBDA VCS-TREE::COMMAND-LINE-ARGUMENTS NIL ...) ...)  %(   $'($$$$(#   1
  (  1    ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?    .      8 ?>  #0    NWHOLENALLOW-OTHER-KEYS$   NELEMENT-TYPEL	BASE-CHARNFILL-POINTERN
ADJUSTABLEL
MAKE-ARRAY<  VMAKE-FILL-POINTER-OUTPUT-STREAM<&-c  &/bin/sh  1NOUTPUTNERROR	l  RUN-PROGRAM<QVPROCESSR

(  $$-  VPROCESS7<&DEFUN SHELL-COMMAND-OUTPUT  #&&XEP for VCS-TREE::SHELL-COMMAND-OUTPUT  :$$#   $$#.  (  $
'(#N  #-  #   #0  1
  #   #&&MORE processing  V  $$#  $$#  $$#   (  $
'(#N  #-  #   #0  1
  #  #&0varargs entry for VCS-TREE::SHELL-COMMAND-OUTPUT  $=CMD$d(  $
$   DELETED    (  ($$$#  #0  1
  #p  #&FLET #:CLEANUP-FUN-118  B(   $
'+   .  $$#   #t  #0  1
  #  #&FLET #:CLEANUP-FUN-108  B(   $
'+   .  $$#   #  #0  1
  (	  1    ;0*                      ' &! $     !$	 !!0$$  ӌ    c$  s$   $  $  $  $  $!H  (      $#@!` !h !         
 
  $!(  !@!H!!P 08     '      !        $!        $
 ˏ          ˏ          ˏ          4 9' +7!H`( 4             a 9'
  !P`      !      T     ̮  Ѯ
          H    
 
    
 
    Ү!  & ȏ     ɏ    ! ʏ    % ˏ    !`  ) ͏     & - Ώ 4 ߍ'! ! 6  !     `' Ȯ!  &1 ȏ     ɏ    ! ʏ    % ˏ    !`  ) ͏     & - Ώ 4 ߍ'! !     6  !     ' Ȯ Ȏ    5 Ώ 4 ߍH'! !6  !     '!h X ͮ ͮ!  Į	    !P| Ȯx ɮt ʮ!  Į< &!        h' < &! Ȏ    5 Ώ 4 ߍ'! !6  !     (' ͎    ! \ Ю! l Į	    !Ph Ȯd ɮ` ʮ! p Į  &!         '   &!9 ȏ     Ɏ     4 9' ,7!PH J%JI T!H             a 9'
  !   &= ȏ    A ʏ    !XE ̏    I Ώ      M Ώ  4 ߍ'! ! 6: !     ' Ȯ!      !    !!!  &\ Ɏ    !0  ! 8'      6N !      !    !!!  &X Ɏ    !0  ! x'      6^  Ȏ     1 !8,       	    + *    + T    Q ʏ     *     
     Ȏ     Ɏ      Ď     Ύ    ! 4!  7&!X!`!h% !3 $     (	      / )    
 )    Q ʏ    *    U ɏ    
 
 .Q ɏ    
 
 /.6  Ȯ Ѯ Ǯ| Ȏ    x Ɏ    t ʎ    	!@      5              	&5    !0!  &X Ɏ    ! 'R          6  Ȏ     ю     Ɏ    !8        6  Ȯ Ѯ Ǯh Ȏ    d Ɏ    ` ʎ    	!@l      5              	&5    !0!  &\ Ɏ    ! '          6  Ȏ     ю     Ɏ    !8         Ȯ  Ʈ!@ Y Ώ 4 ߍ '! !6  !      '  Ǝ    !H!  Ȏ    !% !   Ȯ  Ʈ!@ Y Ώ 4 ߍ`'! !6 !     '  Ǝ    !H!  Ȏ    !% !  QNJUMPRQUNWINDRh  QNJUMPRQUNWINDR  =?  =SHELL-COMMAND-OUTPUT  L&KEY=WHOLE  .            OLBASE-STRING  Q        ?>  #       W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::SHELL-COMMAND-OUTPUT) (SB-INT:NAMED-LAMBDA VCS-TREE::SHELL-COMMAND-OUTPUT # ...) ...)  %(   $
'($$$$(#   1
  (  1    ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&//build/buildd/vcs-tree-0.2.1/kmrcl-excerpt.lisp  "Ə   "	   $ +     eON
.  1                    ̞       ̕       ̉       |       h       [       >       2       $                                                     ̷        ̪        ̚        ̂        u        h        ]        H        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp"
  	        at Saturday, September 25, 2004 08:29:59 AM [+0]
  	        on repeat.rfc822.org
  	        using SBCL version 0.8.14.28
   MIPS3      (:SB-PACKAGE-LOCKS)?>    #(  Q&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+,;(*
                      '  &  Ѯ Ү
 ȏ     Ώ 4 ߍx '! !    6  !     ' 1 !8%       	    + *    $ T     ʏ     *    3 $     (      / )     )     ʏ     *     ɏ    (!@  Ď     Ɏ    !!  ?% !  ɏ    
 
 . ɏ    
 
 /.=?-$LFUNCTION    /8 ?>0   #  L
SIMPLE-STRING&DEFUN IS-SHORT-OPTION1#&!XEP for VCS-TREE::IS-SHORT-OPTION2NEXTERNAL$$#   $$#  (4$'(#N  #-  $ #  1
5$4#Q&VCS-TREER6IS-SHORT-OPTION$,#N  $d(8$'($$$$8#  1
9(:1;<;*                      '  & 4j     !P   Ѯ Ү ʮ!@@ 4!p ' !6  !     ' ʎ     )S       A1 !8J      A    ^!$E  !$C      H      4+ G         A1 !85      A    Z!$0      !D     - 4'     H     4+ 5         A1 !8      A    Z!$      !D     - 4     !@  Ď     Ɏ    !!  ?% !  &     
 
 .N   !@     
 
 .N   
 ȏ    
 
 N!@     
 
  
 
  N
   
 
  N
   =?=76ARG?.@LVALUESLMEMBERCL	&OPTIONALEF    ?>H   #   G7Q&SB-IMPLRH%DEFUN<#&|top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SHORT-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SHORT-OPTION # ...) ...)J%( K$'($$$$(#   1
L(M1NO; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?PJ.    Q8 ?>R   #  0&DEFUN IS-OPTION-TERMINATORR#&&XEP for VCS-TREE::IS-OPTION-TERMINATORS3$$#   $$#  (T$'(#N  #-  $ #  1
U$4#6IS-OPTION-TERMINATOR$,#N  $d(W$'($$$$8#  1
X(Y1Z[;*                      '  & 4j     !P   Ѯ Ү ʮ!@@ 4!p ' !6  !     ' ʎ     4S      A1 !8J      A    ^!$E  !$C      H      4+ G         A1 !85      A    Z!$0      !D     - 4'     H     4+ 5         A1 !8      A    Z!$      !D     - 4      &  Ď     Ɏ    !!  ?% ! !@     
 
 .N   !@     
 
 .N   
 ȏ    
 
 N!@     
 
  
 
  N
   
 
  N
   =?\V?F    ?>^   #   ]VI<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-OPTION-TERMINATOR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-OPTION-TERMINATOR # ...) ...)^%( _$'($$$$(#   1
`(a1bc; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?d^.    e8 ?>f   #x  0&DEFUN IS-LONG-OPTIONf#& XEP for VCS-TREE::IS-LONG-OPTIONg3$$#   $$#  (h$'(#N  #-  $ #@  1
i$4#6IS-LONG-OPTION$,#N  $d(k$'($$$$8#H  1
l(m1no;x*                      '  & 4     !P   Ѯ Ү ʮ!@@ 4!p ' !6  !     ' ʎ     )      !@  Ď     Ɏ    !!  ?% !  A1 !8_      A    ^!$Z  !$X      H      4+ Y         A1 !8J      A    Z!$E      !D     - 4<     H     4+ G         A1 !8.      A    Z!$)      !D     - 4      H     4+ 5         A1 !8      A    Z!$
      !D     - 4     !@      &     
 
 .N   !@     
 
 .N   !@     
 
 .N   
 ȏ    
 
 N
 
  
 
  N
   
 
  N
   
 
  N
   =?pj?F    ?>r   #   qjI<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-LONG-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-LONG-OPTION # ...) ...)r%( s$'($$$$(#   1
t(u1vw; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?xr.    y8 ?>z   #  NLONGLIDENTITY<LEQL<%FIND-POSITION<LSUBSEQ<LSEQUENCENSHORTCASE-FAILURENNAMELECASENDATUMN
EXPECTED-TYPEBzN
POSSIBILITIESzLERROR<&DEFUN DECOMPOSE-ARG#&XEP for VCS-TREE::DECOMPOSE-ARG3$$#   $$#  $$#.  ($'(#N  #-  $ #  1
$8#6
DECOMPOSE-ARG$$$d$$#   ($'($$$$<#   1
(1;*                      '@ & 4      Ȯ ɮ  Ѯ Ү Ȏ    
 ɏ     	     4 Ȏ     1 !8`       Į ȏ     
          ȏ              !( &B=4 Ɏ    !P!X  !`  Ώ 4 ߍ@'! !     6P    ! !H' Ď    !X  ˮ Ȏ    !H !P` Ώ 4 ߍ'! !6d  !     p' ˎ     Ȯ" t    !H` )% Ȏ     Ώ 4 ߍ'! !6x  !      '!H  Ȏ      Ď     Ύ    ! 4!  7&!P!X!`!h% !!H      Ȏ     1 !8          v!$  !$ !$  !$      Ȏ    ! ɏ    
 
 . Ȏ    % ɏ     	     4{     ! $ &) ȏ    - ɏ    1 ʏ    5 ˏ     ̎    9 ͏    = Ώ     A Ώ     E Ώ      I Ώ$ 4 ߍ@'! ! 6  !     '
 
  
 
    
 
    =?>6OPTION-TYPE.ALORLCONSLNULLLSIMPLE-ARRAYL*D    ?>   #   &Returns base-name,argumentI<#&xtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::DECOMPOSE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::DECOMPOSE-ARG # ...) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #  7<j<NARG<z&DEFUN ANALYZE-ARG#&XEP for VCS-TREE::ANALYZE-ARG3$$#   $$#  ($'(#N  #-  $ #  1
$4#6ANALYZE-ARG$$$d($'($$$$8#  1
(1;*                      '  & 4d      Ȯ  Ѯ Ү Ȏ    
 Ώ 4 ߍ '! !    6$  !     p'L      Ȏ     Ώ 4 ߍ '! !    64  !     0'8      ˏ     ȏ    ' h     ˮ Ȏ    !H` Ώ 4 ߍ0'! !    6L    ! !H' ˎ    !P !` !@`!H@!P  Ď     Ύ    ! 4!  7&!X!`!h% !! ȏ    h     ȏ     Ɏ    !P     ! ˏ          ˏ             
 
  =??.@ABzD    ?>   #   &<Analyzes an argument. Returns option-type,base-name,argumentI<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::ANALYZE-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::ANALYZE-ARG # ...) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #  6MATCH-UNIQUE-ABBREVIATION<LNTHCDR<&DEFUN FIND-OPTION#&XEP for VCS-TREE::FIND-OPTION3$$#   $$#  $$#.  ($'(#N  #-  $ #  1
$8#6FIND-OPTION$$$d$$#   ($'($$$$<#  1
(1;*                      '  & 4r      Ȯ ɮ  Ѯ Ү!@ 4 9' +7!H`( 4             a 9'
  !``!@` ͎          !      1 !8V           4 9' +7!H`( 4             a 9'
  !@`=            1 !8A      !H4          Ȏ    
 Ώ 4 ߍ`'! !    6X  !     '      Ɏ     Ώ 4 ߍ'! !    6h  !     `' 1 !8            Ď     Ɏ    !!  ?% ! !@     !@ ɏ    
 
 .
 
  
 
    
 
    
 
    =?6NAME6OPTIONS.AD׎    ?>   #   &AFind an option in option list. Handles using unique abbreviationsI<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FIND-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::FIND-OPTION # ...) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #D  <<&DEFUN MATCH-OPTION#&XEP for VCS-TREE::MATCH-OPTION3$$#   $$#  $$#.  ($'(#N  #-  $ #0  1
$8#6MATCH-OPTION$$$d$$#   ($'($$$$<#8  1
(1;D*                      '  & 4B      Ȯ ɮ  Ѯ Ү Ȏ    
 Ώ 4 ߍ '! !6     ! !H!P' Ȯ!@  ʮ Ɏ     Ώ 4 ߍ '! !62  !     8'      1 !8      !H *     Ɏ     ˎ      Ď     Ύ    ! 4!  7&!`!h% !!P         
 
  
 
    =?>.AD    ?>   #   &TMatches an argument to an option. Returns option-list,option-type,base-name,argumentI<#&vtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-OPTION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-OPTION # ...) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #  <STRING=*<LVECTORLBASE-STRINGLSYMBOLL	BASE-CHAR      ~<      &DEFUN MATCH-UNIQUE-ABBREVIATION  #&+XEP for VCS-TREE::MATCH-UNIQUE-ABBREVIATION  3$$#   $$#  $$#.  (  $'(#N  #-  $ #  1
  $8#$$$d$$#   (  $'($$$$<#  1
  (  1  	  ;*                      '@ & 4     Ȯ ɮ  Ѯ Ү Ȏ     4! ' !    6$  !     p' Ȯ Ԯ Ȏ     4! ' !62  !     8' Ȯ  z        Ȏ     Ɏ    
 Ώ 4 ߍ'! !    6F  !     ' 1 !8u         $ Ȯ$ Ȏ     4!h' !    6Z  !     ' Ď          Ȏ     1 !8          ^!$  !$      $ Ȏ     1 !8p          ^!$  !$i       Ȏ    $ Ɏ    !P  !X!`  !h Ώ 4 ߍ0'! !    6  !     '      4 9' (7             a 9'
  $ Ɏ    	  Ď      4 9' )7             a 9'
  ( Ȏ     ( ɮ       !$    Ď     Ŏ    *       Ȏ    !   
      1 !8             $  
      4      Ȏ         1 !8             Ď     Ɏ    !!  ?% ! !@     $ Ȏ     1 !8          Z!$ !$     $ Ȏ     1 !8          !$     $ Ȏ     ɏ    
 
 . Ȏ     1 !8          Z!$a !$_      Ȏ    [ 1 !8          !$S      Ȏ     ɏ    
 
 . Ď    *      $ Ȏ    !H   ʎ     Ώ 4 ߍ'! !    66 !     ('!H  Ȏ     1 !8_          ^!$  !$X       !1 !8:      !    ^!$  !$3       Ȏ    !P  !X!`  !h Ώ 4 ߍ'! !6` !     'J     4 9' (7             a 9'
  $ Ɏ    	  Ď      4 9' )7             a 9'
  ( Ȏ     ( ɮ+      !1 !8      !    Z!$ !$     4 !1 !8      !    !$     ! ȏ    
 
 . Ȏ     1 !8          Z!$ !$      Ȏ     1 !8          !$      Ȏ    % ɏ    
 
 .    
 
  
 
    
 
    =?
  6ABBR6STRINGS
  ׎    ?>  #     &fReturns position of ABBR in STRINGS. ABBR may be a unique abbreviation.
Returns NIL if no match found.  I<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::MATCH-UNIQUE-ABBREVIATION) (SB-INT:NAMED-LAMBDA VCS-TREE::MATCH-UNIQUE-ABBREVIATION # ...) ...)  %(   $'($$$$(#   1
  (  1    ; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?    .      8 ?>  #D  V<<z<LNREVERSE<NREQUIRED7<j<NNONE&DEFUN GETOPT  #&XEP for VCS-TREE::GETOPT  3$$#   $$#  $$#.  (  $	'(#N  #-  $ #  1
  $8#6GETOPT$$$d$$#   (   $	'($$$$<#  1
!  ("  1#  $  ;D*                      '@ & 4     Ȯ ɮ  Ѯ Ү Ȏ     Ȯ Ԯ Ԯ  Ԯ$ Ԯ`       Ȏ         Ȏ     1 !8         
 Ώ 4 ߍ '! !    6<  !     '     Ȏ    
    0 ͮ Ȏ         Ɏ     Ώ 4 ߍP'! !6T    ! !H!P!X'0 ͎    !` n      ȏ    V 	    !@ Ώ 4 ߍ'! !6l  !     P' 4 9' )7             a 9'
  ($ Ȏ     ($ ɮ Ȏ     1 !8z           Ȯ Ȏ          Ȏ     Ώ 4 ߍP'! !6  !     ' Ȯ Ȏ     Ώ 4 ߍ'! !6  !     x'!H  Ȏ    $ ʎ      Ď     Ύ    ! 4!  7&!X!`!h% !! ȏ    	     4 9' (7             a 9'
  
  Ɏ     	  Ȯ      t     1 !8.     !@      1 !8*         % ɏ     (    ( ʮ, ̮ Ȏ          1 !8         ) Ώ 4 ߍ'! !    6  !     0', ̎    ( ʎ    F           1 !8         % ɏ    * (          1 !8            1 !8           4 9' )7             a 9'
  * ( 4 9' (7             a 9'
  	  Ɏ     	  ȮL      4 9' (7             a 9'
  
$ Ɏ     	$ Ȯ<     ( ʮ, ̮ Ȏ          1 !8          - Ώ 4 ߍX'! !6V !     ', ̎    ( ʎ         Ȏ          1 !8           4 9' )7             a 9'
  * ( 4 9' (7             a 9'
  	 Ɏ     	 Ȯ Ȏ          Ȯ      Ȏ         Q     4 9' (7             a 9'
  
$ Ɏ     	$ Ȯ      1 !8u            1 !8r          1 ɏ     	     4 9' (7             a 9'
  
$ Ɏ     	$ Ȯ      4 9' (7             a 9'
  
  4 9' )7             a 9'
  ( Ȏ     ( ɮ      & Ȯ      Ȏ     1 !8:           4 9' )7             a 9'
  (  Ȏ     (  ɮ         
 
  
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    =?%    6ARGS'  .ALLIST(  (  D)  *      ?>,  #   +    %,  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,  I<#&jtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::GETOPT) (SB-INT:NAMED-LAMBDA VCS-TREE::GETOPT # ...) ...)-  %( .  $	'($$$$(#   1
/  (0  11  2  ; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?3  -  .    4  8 QDEBUG-SOURCER

(6  $$-7  NFILE&0/build/buildd/vcs-tree-0.2.1/getopt-excerpt.lisp9  "Ə :  " ;  $ +
     iGp
<  1=  >  ?  2     ?  $     ?       ?  	     ?        ?        ?        ?        ?        ?  ̷      ?  ̪      ?  ̓      ?  w      ?  o      ?  c      ?  [      ?  O      ?  <      ?  ,      ?>@  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/main.lisp"
  	        at Saturday, September 25, 2004 08:30:03 AM [+0]
  	        on repeat.rfc822.org
  	        using SBCL version 0.8.14.28
   MIPS3      (:SB-PACKAGE-LOCKS)?>    #(  Q&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+,;(*
                      '  &  Ѯ Ү
 ȏ     Ώ 4 ߍx '! !    6  !     ' 1 !8%       	    + *    $ T     ʏ     *    3 $     (      / )     )     ʏ     *     ɏ    (!@  Ď     Ɏ    !!  ?% !  ɏ    
 
 . ɏ    
 
 /.=?-$LFUNCTION    /8 ?>0   #  QLPATHNAMER

(1$$-2LPATHNAME-DIRECTORY<LLAST<&CVS5STRING=*<&.svn7LORLVECTOR:LBASE-STRINGLSYMBOLL	BASE-CHAR>>&DEFUN IS-VCS-DIRECTORY?#&"XEP for VCS-TREE::IS-VCS-DIRECTORY@NEXTERNAL$$#   $$#  (B$'(#N  #-  $ #  1
C$4#Q&VCS-TREERDIS-VCS-DIRECTORY$$$d(F$'($$$$8#  1
G(H1IJ;	*                      '  & 4      Ȯ  Ѯ Ү Ȏ     1 !8      !@  Ď     Ɏ    !!  ?% !  Ȏ         + 	     4    
 ɏ     	     Ȏ     Ώ 4 ߍ'! !    6B  !     ' Ώ 4 ߍ8'! !    6N  !     ' 1 !8      	     !1 !8r      !    ^!$  !$k       ȏ    !P  !X!`  !h Ώ 4 ߍ'! !6p  !     @'      &      Ȏ     Ώ 4 ߍ'! !6  !     ' Ώ 4 ߍ8'! !    6  !     ' 1 !8r      	     !1 !8      !    ^!$  !$       !1 !8      !    Z!$  !$      
 4 !1 !8      !    !$       !1B !8
      ! ȏ    !P  !X!`  !h Ώ 4 ߍ  ю  Ҏ% ȏ    
 
 . !1 !8      !    Z!$ !$     4 !1 !8      !    !$      !1B !8~     ) ȏ    
 
 .3      (3     /     
     
 ɏ    A	    )      Ȏ    
 ɏ    
 
 /.    
 
  
 
    
 
    =?KEDXM.NLVALUESLMEMBERQL	&OPTIONALST    ?>V   #   UEQ&SB-IMPLRV%DEFUN<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-VCS-DIRECTORY # ...) ...)X%( Y$'($$$$(#   1
Z([1\]; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?^X.    _8 ?>`   #   N	DIRECTORYNRELATIVE5bL
MAKE-PATHNAME<LMERGE-PATHNAMES<DPROBE-DIRECTORY<&DEFUN IS-CVS-MANAGEDf#& XEP for VCS-TREE::IS-CVS-MANAGEDgA$$#   $$#.  (h$'(#N  #-  $$#   1
i$8#DIS-CVS-MANAGED$$$d(k$'($$$$<#   1
l(m1no; *
                      '  &!H  4'      ɮ  Ѯ Ү
 ȏ     ɏ     Ώ 4 ߍ '! !6$  !     p' Ɏ     Ώ 4 ߍ '! !    62  !     8' Ώ 4 ߍ  ю  Ҏ
 
  =?pjDDIRr.NL*t    ?>v   #   ujW<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-CVS-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-CVS-MANAGED # ...) ...)v%( w$'($$$$(#   1
x(y1z{; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?|v.    }8 ?>~   #   `a7~c<d<e<&DEFUN IS-SVN-MANAGED#& XEP for VCS-TREE::IS-SVN-MANAGEDA$$#   $$#.  ($'(#N  #-  $$#   1
$8#DIS-SVN-MANAGED$$$d($'($$$$<#   1
(1; *
                      '  &!H  4'      ɮ  Ѯ Ү
 ȏ     ɏ     Ώ 4 ߍ '! !6$  !     p' Ɏ     Ώ 4 ߍ '! !    62  !     8' Ώ 4 ߍ  ю  Ҏ
 
  =?rt    ?>   #   W<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-SVN-MANAGED) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-SVN-MANAGED # ...) ...)%( $'($$$$(#   1
(1; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #
  E<BLEQUAL%COERCE-CALLABLE-TO-FUN<7%FIND-POSITION<B5LNREVERSE<DFILTER-TREEDFLATTEN<LCONSDIS-MANAGED-DIR<NCVSLSEQUENCENSVN23<4<&DEFUN FILTER-TREE#&XEP for VCS-TREE::FILTER-TREEA$$#   $$#  ($'(#N  #-  $ #8
  1
$4#$$$d($'($$$$8#@
  1
#
  #&+XEP for #'(LAMBDA (VCS-TREE::X) (WHEN # #))A$$#   $$#  ($'(#N  #-  #(
  #
  1
#<
  #&##'(LAMBDA (VCS-TREE::X) (WHEN # #))$$$d($'($$$#@
  #
  1
#  #A$$#   $$#  ($'(#N  #-  #  #
  1
#  #$$$d($'($$$#  #
  1
(1;
*                      '@ & 4D     Ȯ  Ѯ Ү Ȏ     1 !8      !@  Ď     Ɏ    !!  ?% !  Ȏ        
 Ώ 4 ߍ'! !    6B  !     '     Ȏ     
     A1 !87      ʮ ȏ     Ώ 4 ߍh'! !6Z  !     ' ʎ    ! !  & ȏ    !H@!P!X  !` ͏     ! Ώ 4 ߍ'! !     6t  !     0'     Ȏ     
     A1 !8      ʮ ȏ     Ώ 4 ߍ0'! !6  !     ' ʎ    ! !  &) ȏ    !H@!P!X  !`% ͏     ! Ώ 4 ߍ'! !     6  !     h'    !@	     ɮ      Ȯ Ȏ         !X  a1 !8     !@`     Ȯ Ԯ$        ˮ Ȏ     1 !8         
 Ώ 4 ߍP'! !    6  !     '  ˎ    >     k     a1 !8     !@`     Ȯt     Ȏ    - Ώ 4 ߍ'! !    6  !     8'!`      Ȏ         !@ 4 9' +7!H`( 4             a 9'
   ˮ!@` ̮;       Ȯ Ȏ         Ȯ1 ȏ     Ώ 4 ߍx'! !6 !     '!x  Ȏ     4 ?%'! !6, !     P' 4 9' +7!H`( 4             a 9'
  !@` Ɏ    8 4     Ɏ     + Ɏ     )     ɮ Ɏ     !1 !8#     4     Ȏ         !H !P      +     t    !P  )     !1 !8     !X t    5 Ώ 4 ߍ  ю  Ҏ T     +     K      (         !@9 ɏ    
 
 .!@ 4 9' +7!H`( 4             a 9'
   ˮ!@` ̮<        Ȯ Ȏ         Ȯ1 ȏ     Ώ 4 ߍ'! !    6 !     '!x  Ȏ     4 ?%'! !6 !     H' 4 9' +7!H`( 4             a 9'
  !@`  Ɏ    M 4      Ɏ     + Ɏ     )     ɮ Ɏ     !1 !8     4     Ȏ         !H !P      +    & t    !P  )     !1 !8     !X t    5 Ώ 4 ߍ'! !6 !     @'!H  4 9' (7             a 9'
   ʎ    
 	*      T     +     K      (         !@9 ɏ    
 
 . Ȏ          Ȏ          4 9' (7             a 9'
   Ɏ    	 Ɏ     	 Ȯ       ˮ Ȏ         Ɏ     ʎ    = Ώ 4 ߍ 	'! !    6@ !      '  ˎ              Ȏ         4 9' )7             a 9'
  (A ȏ     (!@ P      A1 !8      A    v!$  !$ !$  !$     E ȏ    
 
 N Ȏ         4 9' )7             a 9'
  (I ȏ     (!@ (      A1 !8      A    v!$  !$ !$  !$     E ȏ    
 
 N*                     '@ & 4      Ȯ  Ѯ Ү Ȏ     1 !8           1 !8      !@  Ď     Ɏ    !!  ?% !  	    + *    8 T    M ȏ    % (     Ȏ        Q Ώ 4 ߍP'! !    6 !     'U Ώ 4 ߍ'! !    6 !     ' 1 !8               3 $     (     / (    
     M ɏ    	         M ɏ    
 
 /.*                      '@ & 4{      Ȯ  Ѯ Ү Ȏ     1 !8t           1 !8      !@  Ď     Ɏ    !!  ?% !  	    + *    8 T    M ȏ    % (     Ȏ        Q Ώ 4 ߍ'! !    6: !     'U Ώ 4 ߍ
'! !    6F !     ' 1 !8=               3 $     (     / (    
     M ɏ    	         M ɏ    
 
 /.
 
  
 
 n   
 
    
 
 n   
 
 .   
 
 .   
 
 .   
 
 .   
 
  
 
    
 
    
 
  
 
    
 
    =?M.NOR  M
  DTREEt    ?>   #   &yCalled for a directory tree. First argument is name of current tree.
Returns a list of directories managed by CVS or SVN.W<#&ttop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::FILTER-TREE) (SB-INT:NAMED-LAMBDA VCS-TREE::FILTER-TREE # ...) ...)%( $'($$$$(#   1
(1; *
                      '  &  Ѯ Ү ȏ    
 ɏ     ʏ    !X Ώ 4 ߍ '! !6"  !     x'!@  Ď     Ɏ    !!  ?% ! =?.    8 ?>   #D  NNAME&entriesNTYPE`~c<d<DREAD-FILE-TO-STRINGS<3<4<LSTRING&name="&"LCONCATENATE<B%MAP<Bj<&D/&////&EntriesbCASE-FAILURELECASENDATUMN
EXPECTED-TYPEPN
POSSIBILITIESLERROR<DSTRING-TRIM-WHITESPACE<6<>>&DEFUN IS-MANAGED-DIR#& XEP for VCS-TREE::IS-MANAGED-DIRA$$#   $$#  $$#.  $$#N  ($'(#N  #-  $ #   1
$<#$$$d$$#   $$#   ($'($$$$@#(  1
#|  #&%XEP for #'(LAMBDA (#:G196) (LET # #))A$$#   $$#  ($'(#N  #-  #  #4  1
#  #&#'(LAMBDA (#:G196) (LET # #))$$$d($'($$$#  #<  1
#H
  #&%XEP for #'(LAMBDA (#:G192) (LET # #))A$$#   $$#  ($'(#N  #-  #x
  #<  1
#
  #&#'(LAMBDA (#:G192) (LET # #))$$$d($'($$$#
  #D  1
(1;&D**                      G' & 4     Ȯ ɮ ʮ  Ѯ Ү Ȏ    
 ɏ    o	     ȏ     ɏ     ʏ    !X ̏    ! ͏    % Ώ 4 ߍH'! !6R  !     ' Ɏ    ) Ώ 4 ߍ'! !    6`  !     '- Ώ 4 ߍ'! !    6l  !     P' Ȯ Ȏ    1 Ώ 4 ߍ'! !6z  !     '5 Ώ 4 ߍ'! !    6  !     ' 1 !8     
     Ȏ    
 ɏ     	    9 ȏ    = ɏ    A ˏ    E Ώ 4 ߍ'! !    6  !     p'!H  Ȏ    
 ʏ    k 
    ! h Į	    !Xd Ȯ` ʮ\ ˮ! l Į@ &!        '  4 9' (7:4             a 9'
  p Ȯ Ȏ     1 !8.      I ȏ    .4 4 9' *7A             a 9'
  Hp Ȏ     H I!@!H@ ʎ    M Ώ 4 ߍ'! !    6  !     8'!@!P &  H! @ 4p Ȏ           Ȏ     1 !8          v!$  !$ !$  !$      Ȏ    Q ɏ    
 
 . Ȏ    U ʏ    k 
    !  Į	    !X| Ȯx ʮt ˮ!  Į$ &!        '  4 9' (7:4             a 9'
   Ȯ Ȏ     1 !8.      Y ȏ    .4 4 9' *7A             a 9'
  H Ȏ     H I!@!H@ ʎ    M Ώ 4 ߍ'! !    6b !     x' Ȏ      Ȏ    ] Ώ 4 ߍ  ю  Ҏ Ȏ     1 !8          v!$  !$ !$  !$      Ȏ    Q ɏ    
 
 .!@!P &  H! @ 4       Ȏ    U ɏ     	    9 ȏ    a ɏ    e ˏ    E Ώ 4 ߍ'! !6 !     p'!H      !H      Ȏ    U ɏ     	     ȏ    i ɏ     ʏ    !X ̏    m ͏    % Ώ 4 ߍ'! !6 !     '     ! $ &q ȏ     ɏ    u ʏ    y ˏ     ̎    } ͏     Ώ      Ώ      Ώ       Ώ$ 4 ߍ'! ! 6 !     X'6  ׎    | Ȏ    x Ɏ    t ʎ    	!@      5              	&5     Ȏ      &!P &  H! @ 4  Ŏ     Ҏ     4   !!  _& !@!8            6  l     !    !0   (     1&  ($ !$!  d Ȏ    ` Ɏ    \ ʎ    	!@h      5              	&5    p Ȏ              *J                     ' &           4      Ȯ ɮ ʮ  Ѯ Ү Ȏ     Ώ 4 ߍ	'! !    6h !     `'!H  !1 !8.      !    ^!$  !$'       Ȏ    !P  !X!`  !h Ώ 4 ߍ
'! !    6 !     '     !@  Ď     Ɏ    !!  ?% !  Ȏ          4  4        !1 !8      !    Z!$ !$      !1B !8     4 !1 !8      !    !$      ȏ    
 
 .*                     ' &           4o      Ȯ ɮ ʮ  Ѯ Ү Ȏ     Ώ 4 ߍh'! !    6 !     '!H  !1 !81      !    ^!$  !$*       Ȏ    !P  !X!`  !h Ώ 4 ߍ'! !    6 !      '      &! &  ( 4 Ȏ               !@  Ď     Ɏ    !!  ?% !  !1 !8      !    Z!$ !$      !1B !8     4 !1 !8      !    !$      ȏ    
 
 .    
 
  
 
    
 
  
 
  QNJUMPRQUNWINDRt  QNJUMPRQUNWINDR	  QNJUMPRQRETURN-MULTIPLER  =?
G192.NOLNULLRH
  
G196  DSUBDIRqLTYPE.s       ?>  #     W<#&ztop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::IS-MANAGED-DIR) (SB-INT:NAMED-LAMBDA VCS-TREE::IS-MANAGED-DIR # ...) ...)  %(   $'($$$$(#   1
  (  1    ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?    .    	  8 ?>
  #  j<<&svn
  L*ERROR-OUTPUT*&8INTERAL ERROR: not a version control system directory ~A  LFORMAT<DQUIT<&cvs  NUPDATE&	~A update  L
NAMESTRING<&(cd ~A; ~A)  &~A ~A:~%  `NWHOLEDSHELL-COMMAND-OUTPUT<&~A~%  &Exit status ~D: ~A ~A~%  NSTATUS&	~A status  NCOMMITLCAR<LSTRING=<&m  <& -m "~A"  &~A commit~A   & !  P      "        #  <&DEFUN PROCESS-VCS-DIRECTORY$  #&'XEP for VCS-TREE::PROCESS-VCS-DIRECTORY%  A$$#   $$#  $$#.  $$#N  (&  $'(#N  #-  $ #  1
'  $<#DPROCESS-VCS-DIRECTORY$$$d$$#   $$#   ()  $'($$$$@#  1
*  #  #&FLET VCS-TREE::PROCESS+  $$$d$$#$  (,  $'($$$#  #  1
-  (.  1/  0  ;(*,                      ?'@ & 4     Ȯ ɮ ʮ  Ѯ Ү Ȏ    
 Ώ 4 ߍ'! !    6F  !     ':      Ȏ     Ώ 4 ߍX'! !    6V  !     '      ȏ    $ Ȯ ʎ     ̎     Ȏ    (       ȏ    	    J !9k     !@  ɏ     ʎ    ! Ώ 4 ߍ'! !6z  !     ' 4% Ώ 4 ߍ  ю  Ҏ) ȏ    $ Ȯ ʎ     ̎     Ȏ     Ȯ- ȏ         !@1 ɏ    $ ʎ    ! Ώ 4 ߍ'! !    6  !     ' Ȯ Ȏ    5 Ώ 4 ߍ'! !6  !     H'!P !@9 ɏ     ˎ    ! Ώ 4 ߍ '! !    6  !      ' Ȯ Ȏ    5 Ώ 4 ߍ8'! !6  !     '!X  &= ɏ     ʎ    ! Ώ 4 ߍ'! !    6  !     ' Ȏ    A ɏ     ʎ    E ˏ     &I Ώ 4 ߍ'! !6    ! !H!P0'!X  ˮ ɮ ʮ  	4!@@'           6 !     ' ʎ     ˎ          &M ɏ    !P`! Ώ 4 ߍ  ю  Ҏ &Q ɏ     ̎    ! Ώ 4 ߍ  ю  ҎU ȏ         !@Y ɏ    $ ʎ    ! Ώ 4 ߍ'! !    64 !     0' Ȯk     ] ȏ    w      A1 !8_       ʮa ȏ     	     4     ɮe ȏ    i Ώ 4 ߍP'! !6T !     ' ʎ    ! !  &m ȏ    !H@!P!X  !` ͎     q Ώ 4 ߍ'! !     6n !     H'*      1 !8g       
    !@u ɏ    ! Ώ 4 ߍ'! !6 !     '!X !@y ɏ    $ ʎ    ! Ώ 4 ߍX'! !    6 !     ' Ȯ	     } ˏ          A1 !8      A    v!$  !$ !$  !$      ȏ    
 
 N! $ & ȏ     ɏ     ʏ     ˏ     ͏     Ώ      Ώ      Ώ       Ώ$ 4 ߍH'! !     6 !     '
 
  
 
    
 
    
 
    QNJUMPRQ&SB-VM	2  	GENERIC-=RT  =?4  (  qDACTIONDOPTIONS7         ?>9  #   8  (  W<#&top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PROCESS-VCS-DIRECTORY) (SB-INT:NAMED-LAMBDA VCS-TREE::PROCESS-VCS-DIRECTORY # ...) ...)9  %( :  $'($$$$(#   1
;  (<  1=  >  ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =??  9  .    @  8 ?>A  #   D
*PROGNAME*!  V%DEFVAR<#&Ptop level form (SB-IMPL::%DEFVAR (QUOTE VCS-TREE::*PROGNAME*) (UNLESS # "") ...)C  %( D  $'($$$$(#   1
E  (F  1G  H  ; *                      '  &  Ѯ Ү
 ɏ    (    J 9       ɏ    
 ȏ     &!X!` Ώ 4 ߍ '! !    6(  !     `'!@  Ď     Ɏ    !!  ?% ! !H         =?I  C  .    J  8 ?>K  #    A  &usage: ~A action [OPTIONS]~%K  
  <&3Processes a source-control managed directory tree~%L  &#Action: update, commit, or status~%M  &	OPTIONS~%N  &"   -m <str>    Set commit string~%O  L
WRITE-CHAR<&DEFUN USAGEQ  #&XEP for VCS-TREE::USAGER  A$$#   $$#  (S  $'(#N  #-  #   #p  1
T  #   #&&MORE processingU  NOPTIONAL$$#N  $$#.  $$#   (W  $'(#N  #-  #   #p  1
X  #,  #&!varargs entry for VCS-TREE::USAGEY  $DMSG$d$DMSG-ARGS#   (\  $
OPTIONAL-ARGS$ REST-ARG$(_  ($$$#0  #p  1
`  #P  #&&OPTIONAL processor #:G311a  V  $$#  (b  $'(#N  #-  #P  #  1
c  #d  #&&OPTIONAL processor #:G316d  V  ( e  $'(#N  #-  #d  #  1
f  (	g  1h  i  ;
*                      '  &! $     !$	 !!0$$  ӌ    c$  s$   $  $  $  $  $           $#H!P !  !X  4 9' +7!H`@@   !( )%)  (     !$$( 4             a9'
   ʮ ˮ  Ѯ Ү
 ȏ    	    J !9       ȏ    
    J A9      !@  ɏ     Ώ 4 ߍ'! !6r  !     8' Ȏ    S     
 ȏ    	    J !9      !@  ɏ     Ώ 4 ߍ0'! !    6  !     '
 ȏ    	    J !9      !@ ! ɏ     Ώ 4 ߍ'! !    6  !     x'
 ȏ    	    J !9      !@ % ɏ     Ώ 4 ߍ'! !    6  !      '
 ȏ    	    J !9w      !@ ) ɏ     Ώ 4 ߍ  ю  Ҏ ȏ         k     
 ȏ    	    J !9g      !@ !P &  H!0@ 4 Ȏ    !P &  H 4 Ȏ     1 !8X      ! 
 	          & 1 !8     
 
    #(#8  Ȍ Ɍ ʌ ˌ ̌ ͌ & '! ! 6 !     '
 ȏ    	    J !93      B
4- Ώ 4 ߍp'! !    6 !     'o      Ȯ Ԯ  Ѯ3     !@     
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    
 
    =?j  DUSAGERZ  L&REST[  m  .Rl  n  O8:;o  Rp  q      ?>s  #   r  k  W<#&htop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::USAGE) (SB-INT:NAMED-LAMBDA VCS-TREE::USAGE # ...) ...)s  %( t  $'($$$$(#   1
u  (v  1w  x  ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?y  s  .    z  8 ?>{  #h  &ci{  6<  &update|  &commit}  &status~    DMATCH-UNIQUE-ABBREVIATION<    &Unknown action: ~A  k  <  <>&DEFUN PARSE-ACTION-ARG  #&"XEP for VCS-TREE::PARSE-ACTION-ARG  A$$#   $$#  (  $	'(#N  #-  $ #`  1
  $4#DPARSE-ACTION-ARG$,#  $d(  $	'($$$$8#h  1
  (  1    ;h*                      '  & 4     !   Ѯ Ү 2 !8h          ^!$  !$a       Ю!@ 
 ɏ    !P  !X!`  !h Ώ 4 ߍ '! !68  !      ' Ў          ȏ      Ď     Ɏ    !!  ?% !  Ю!@  ɏ     Ώ 4 ߍX'! !6V  !     ' Ў          ! ȏ          4!      4     % ȏ          Ю) ȏ    !H - Ώ 4 ߍ'! !    6x  !      ' Ў     41 Ώ 4 ߍ  ю  Ҏ ȏ          2 !8          Z!$ !$      2 !8          !$      2B !8     5 ȏ    
 
     
 
  =?    DARG  t    ?>  #       W<#&~top level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE::PARSE-ACTION-ARG) (SB-INT:NAMED-LAMBDA VCS-TREE::PARSE-ACTION-ARG # ...) ...)  %(   $	'($$$$(#   1
  (  1    ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?    .      8 ?>  #  A    NREQUIRED    DGETOPT<k  <  <  <DCWD<DDIRECTORY-TREE<<DMKLIST<(  <&Invalid action ~A  DCOMMAND-LINE-ARGUMENTS<&
DEFUN MAIN  #&XEP for VCS-TREE:MAIN  A$$#   $$#  (  $
'(#N  #-  $ #  1
  $X#&%hairy arg processor for VCS-TREE:MAIN  $DARGV$d(  $
]  $ (  ($$$$\#  1
  #L  #&&OPTIONAL processor #:G354  V  (   $
'($$$#P  #  1
  (  1    ;*                      '  &       Ѯ      4      Ȯ  Ѯ      
 
   Ү Ȏ     1 !8
     	    
 ʏ    H     &I Ȏ          ɏ     Ώ 4 ߍ'! !6F    ! !H!P' Ȯ ɮ T     Ώ  4 ߍ`'! !    6X  !     ' 4 Ώ 4 ߍ'! !6d  !     p' Ȏ     1 !8          ! Ώ 4 ߍ'! !    6x  !      ' Ȯw     % Ώ  4 ߍ'! !6  !     ') Ώ 4 ߍH'! !    6  !     '- Ώ 4 ߍx'! !    6  !     '1 Ώ 4 ߍ'! !    6  !     X'!X       h     k     ˮ Ɏ     ʎ    5 Ώ 4 ߍ'! !    6  !     ' ˎ     a1 !8s      !@`    !@   Ώ 4 ߍ`'! !    6  g      ' && 4        	&  Ŏ     Ҏ     4   !!  _& !@        Ȏ    	    9 ȏ     Ώ 4 ߍ'! !6 !     ' 4 Ώ 4 ߍ8'! !6 !     'l      Ȏ     4!p' !6 !     ' 4F    ,      Ү= Ώ  4 ߍ'! !    6. !     H' Ȯ Ҏ             
 
    
 
    
 
 n   '  ( ) * + , -!       QNJUMPRQRETURN-MULTIPLER  =?  DMAINR          .R  s      ?>  #       W<#&dtop level form (SB-IMPL::%DEFUN (QUOTE VCS-TREE:MAIN) (SB-INT:NAMED-LAMBDA VCS-TREE:MAIN # ...) ...)  %(   $
'($$$$(#   1
  (  1    ; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?    .      8 QDEBUG-SOURCER

(  $$-  NFILE&&/build/buildd/vcs-tree-0.2.1/main.lisp  "Ə   "   $ +     1f  1      ̿       ̯       ̕       ̋       x       i       H       >       0                      ̿        ̰        ̐        ̈        {        o        ]        J        ,      ?>  @# FASL
  	        compiled from "/build/buildd/vcs-tree-0.2.1/loader.lisp"
  	        at Saturday, September 25, 2004 08:30:05 AM [+0]
  	        on repeat.rfc822.org
  	        using SBCL version 0.8.14.28
   MIPS3      (:SB-PACKAGE-LOCKS)?>    #(  N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*+;(*
                      '  &  Ѯ Ү
 ȏ     Ώ 4 ߍx '! !    6  !     ' 1 !8%       	    + *    $ T     ʏ     *    3 $     (      / )     )     ʏ     *     ɏ    (!@  Ď     Ɏ    !!  ?% !  ɏ    
 
 . ɏ    
 
 /.=?,#LFUNCTION    .8 ?>/   #x  BLERROR*HANDLER-CLUSTERS*&vcs-tree1Q&VCS-TREER2MAIN<L*ERROR-OUTPUT*&%vcs-tree failed due to error:~%  ~A~%5LFORMAT<NUNIX-STATUSQ&SB-EXTR8QUIT<&	DEFUN RUN:"&XEP for COMMON-LISP-USER::RUN;NEXTERNAL$$#   (=$&'#N  #   $$#  1
>$0"Q&COMMON-LISP-USERR?RUN( A$&'$$$$4#  1
B#4  "&@XEP for #'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)C<$$$d$$#   (D$&'$$$#x  #p  1
E#  "&8#'(LAMBDA (SB-IMPL::TEMP) (SETQ #:G9 SB-IMPL::TEMP) ...)F$$#n  (G$&'#  #  #  #x  1
H(I1JK;x*                      '` &!( 0      Ů Ү 4 9' (7:4             a 9'
  ( Ȯ! 8 Į	    !P4 Ȯ0 ɮ, ʮ! < Į &!         '  4 9' (7:4             a 9'
  @ Ȯ
 ɏ    .4 4 9' (7             a 9'
  	@ Ɏ     	( Ɏ     	 4 9' )7             a 9'
   ʏ    * (!@  4 9' +7!H`( 4             a 9'
   ȏ    	    J !9       4 9' *7             a 9'
  K I ɏ    (     &*4 &	    J !9       !1 !8       )     ȏ     4 9' ,7!PH I!@             a 9'
   Ώ 4 ߍ'! !    6        0' && 4        	&@ Ȏ     H      6  < ׎    4 Ȏ    0 Ɏ    , ʎ    	!@8      5              	&5    ( Ȏ    
    ! ȏ    	    J !9t      !@ % ɏ    ) Ώ 4 ߍ'! !6  !     ('- ȏ     	41 Ώ 4 ߍ'! !6 \      ' && 4@ Ȏ       Ŏ     Ҏ     4   !!  _& !@           *                     w'` &           Ǯ Ȯ  Ѯ Ү Ď     4:     !! ` & ˎ    !`  ! '          6> !     '!h K(      4  4       
 
  
 
    
 
    
 
 .   0'  ( ) * + , -!  ^     
 
    '  ( ) * + , -!       
 
  QNJUMPRQUNWINDR  QNJUMPRQRETURN-MULTIPLER,  =?PFQ&SB-IMPLRQTEMPS-TU8  PVP@-L*X    ?>Z   #   Y@Q%DEFUN<"&vtop level form (SB-IMPL::%DEFUN (QUOTE COMMON-LISP-USER::RUN) (SB-INT:NAMED-LAMBDA COMMON-LISP-USER::RUN NIL ...) ...)[$( \$&'$$$$(#   1
](^1_`; *                      '  &  Ѯ Ү ȏ    
 ɏ    !P!X Ώ 4 ߍ '! !    6   !     '!@  Ď     Ɏ    !!  ?% ! =?a[-    b8 QDEBUG-SOURCER	(d$$-eNFILE&(/build/buildd/vcs-tree-0.2.1/loader.lispg"Ə h"
 i$ +     j1klm`      mK      m+      ?>n   @