/[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.29 by kaz, Wed Mar 13 21:46:39 2002 UTC revision 1.29.2.1 by kaz, Fri Apr 5 00:02:06 2002 UTC
# Line 10  Line 10 
10  (provide "mapping")  (provide "mapping")
11    
12  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
13    (defconstant *mcvs-dir* #.(path-cat "MCVS"))    (defconstant *mcvs-dir* "MCVS")
14    (defconstant *mcvs-map-name* "MAP")    (defconstant *mcvs-map-name* "MAP")
15    (defconstant *mcvs-map-local-name* "MAP-LOCAL"))    (defconstant *mcvs-map-local-name* "MAP-LOCAL")
16      (defconstant *mcvs-add-local-name* "ADD-LOCAL"))
17    
18  (eval-when (:compile-toplevel :load-toplevel :execute)  (eval-when (:compile-toplevel :load-toplevel :execute)
19    (defconstant *mcvs-map* #.(path-cat *mcvs-dir* *mcvs-map-name*))    (defconstant *mcvs-map* #.(path-cat *mcvs-dir* *mcvs-map-name*))
20    (defconstant *mcvs-map-local* #.(path-cat *mcvs-dir* *mcvs-map-local-name*)))    (defconstant *mcvs-map-local* #.(path-cat *mcvs-dir* *mcvs-map-local-name*))
21      (defconstant *mcvs-add-local* #.(path-cat *mcvs-dir* *mcvs-add-local-name*)))
22    
23  ;; TODO: use getcwd()  ;; TODO: use getcwd()
24  (defun mcvs-locate ()  (defun mcvs-locate ()

Legend:
Removed from v.1.29  
changed lines
  Added in v.1.29.2.1

  ViewVC Help
Powered by ViewVC 1.1.5