/[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.1 by kaz, Sun Jan 20 07:12:03 2002 UTC revision 1.2 by kaz, Sun Jan 20 20:33:04 2002 UTC
# Line 34  down to the original one, or the value n Line 34  down to the original one, or the value n
34    (find path filemap :test #'(lambda (p entry)    (find path filemap :test #'(lambda (p entry)
35                                 (path-equal p (second entry)))))                                 (path-equal p (second entry)))))
36    
37    (defun filemap-prefix-lookup (filemap path)
38      (if (path-equal *this-dir* path)
39        filemap
40        (remove-if-not #'(lambda (entry)
41                           (path-prefix-equal path (second entry))) filemap)))
42    
43  (defun filemap-object-lookup (filemap object)  (defun filemap-object-lookup (filemap object)
44    (find object filemap :test #'(lambda (o entry)    (find object filemap :test #'(lambda (o entry)
45                                   (string= o (first entry)))))                                   (string= o (first entry)))))

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

  ViewVC Help
Powered by ViewVC 1.1.5