/[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.17 by kaz, Sat Feb 2 22:07:13 2002 UTC revision 1.18 by kaz, Tue Feb 5 03:19:03 2002 UTC
# Line 50  down to the original one, or the value n Line 50  down to the original one, or the value n
50    (let ((name (format nil "F-~32,'0X" (guid-gen))))    (let ((name (format nil "F-~32,'0X" (guid-gen))))
51      (path-cat *mcvs-dir* name)))      (path-cat *mcvs-dir* name)))
52    
 (defun mapping-sort (filemap)  
   (sort filemap #'string-lessp :key #'second))  
   
53  (defun mapping-extract-paths (filemap)  (defun mapping-extract-paths (filemap)
54    (mapcar #'second filemap))    (mapcar #'second filemap))
55  (declaim (inline mapping-extract-paths))  (declaim (inline mapping-extract-paths))
# Line 157  duplicate objects. Otherwise returns the Line 154  duplicate objects. Otherwise returns the
154  (defun mapping-write (filemap filename &key sort-map)  (defun mapping-write (filemap filename &key sort-map)
155    (with-open-file (file filename :direction :output)    (with-open-file (file filename :direction :output)
156      (let ((*print-right-margin* 1))      (let ((*print-right-margin* 1))
157        (prin1 (if sort-map (mapping-sort filemap) filemap) file)        (prin1 (if sort-map
158                   (sort filemap #'string-lessp :key #'first)
159                   filemap) file)
160        (terpri file))))        (terpri file))))
161    
162  (defun mapping-synchronize ()  (defun mapping-synchronize ()

Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18

  ViewVC Help
Powered by ViewVC 1.1.5