/[meta-cvs]/meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8
ViewVC logotype

Diff of /meta-cvs/F-FFF16CA4956A36F19290AC9E1EBAFFD8

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

revision 1.52 by kaz, Mon Oct 28 04:01:15 2002 UTC revision 1.53 by kaz, Thu Oct 31 04:06:01 2002 UTC
# Line 8  Line 8 
8  (require "chatter")  (require "chatter")
9  (require "restart")  (require "restart")
10  (require "seqfuncs")  (require "seqfuncs")
11    (require "mcvs-package")
12  (provide "mapping")  (provide "mapping")
13    
14    (in-package "META-CVS")
15    
16  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
17    (defconstant *mcvs-dir* "MCVS")    (defconstant *mcvs-dir* "MCVS")
18    (defconstant *mcvs-map-name* "MAP")    (defconstant *mcvs-map-name* "MAP")
# Line 44  Line 47 
47      (if (or (= (length path) (1- *displaced-path-length*))      (if (or (= (length path) (1- *displaced-path-length*))
48              (= (length path) *displaced-path-length*))              (= (length path) *displaced-path-length*))
49        *this-dir*        *this-dir*
50        (substring path *displaced-path-length*))        (subseq path *displaced-path-length*))
51      path))      path))
52    
53  (defun real-to-abstract-path (path)  (defun real-to-abstract-path (path)

Legend:
Removed from v.1.52  
changed lines
  Added in v.1.53

  ViewVC Help
Powered by ViewVC 1.1.5