/[meta-cvs]/meta-cvs/F-36433FEEE65F109159A4ADF217F5145C
ViewVC logotype

Diff of /meta-cvs/F-36433FEEE65F109159A4ADF217F5145C

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.2 by kaz, Sun Jan 27 19:51:31 2002 UTC revision 1.3 by kaz, Thu Jan 31 05:35:02 2002 UTC
# Line 1  Line 1 
1  ;;; This source file is part of the MCVS program,  ;;; This source file is part of the Meta-CVS program,
2  ;;; which is distributed under the GNU license.  ;;; which is distributed under the GNU license.
3  ;;; Copyright 2002 Kaz Kylheku  ;;; Copyright 2002 Kaz Kylheku
4    
# Line 31  Line 31 
31                    (return))                    (return))
32                  (let* ((f-digits (substring line 0 32))                  (let* ((f-digits (substring line 0 32))
33                         (entry (filemap-object-lookup filemap                         (entry (filemap-object-lookup filemap
34                                                       (format nil "MCVS/F-~a"                                                       (path-cat *mcvs-dir*
35                                                               f-digits))))                                                         (format nil "F-~a"
36                                                                   f-digits)))))
37                    (setf line (substring line 32))                    (setf line (substring line 32))
38                    (if (not entry)                    (if (not entry)
39                      (progn                      (progn

Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3

  ViewVC Help
Powered by ViewVC 1.1.5