/[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.49.2.7 by kaz, Sun Jan 12 20:49:45 2003 UTC revision 1.49.2.8 by kaz, Thu Jan 30 11:04:43 2003 UTC
# Line 36  Line 36 
36                      "."                      "."
37                      (reduce #'path-cat (last current-dir i)))))))))                      (reduce #'path-cat (last current-dir i)))))))))
38    
39    (declaim (inline real-path-exists abstract-to-real-path
40                     real-to-abstract-path))
41    
42  (defun real-path-exists (path)  (defun real-path-exists (path)
43    (or (null *displaced-path-prefix*)    (or (null *displaced-path-prefix*)
44        (path-prefix-equal *displaced-path-prefix* path)))        (path-prefix-equal *displaced-path-prefix* path)))
# Line 53  Line 56 
56      (concatenate 'string *displaced-path-prefix* path)      (concatenate 'string *displaced-path-prefix* path)
57      path))      path))
58    
 (declaim (inline real-path-exists abstract-to-real-path  
                  real-to-abstract-path))  
   
59  (defmacro in-sandbox-root-dir (&body forms)  (defmacro in-sandbox-root-dir (&body forms)
60    (let ((downpath-sym (gensym "DOWNPATH-")))    (let ((downpath-sym (gensym "DOWNPATH-")))
61     `(current-dir-restore     `(current-dir-restore
# Line 120  Line 120 
120                   filemap                   filemap
121                   :key #'mapping-entry-kind))                   :key #'mapping-entry-kind))
122    
123    (declaim (inline mapping-extract-paths))
124  (defun mapping-extract-paths (filemap)  (defun mapping-extract-paths (filemap)
125    (mapcar #'mapping-entry-path filemap))    (mapcar #'mapping-entry-path filemap))
 (declaim (inline mapping-extract-paths))  
126    
127  (defun mapping-lookup (filemap path)  (defun mapping-lookup (filemap path)
128    (find path filemap :test #'path-equal :key #'mapping-entry-path))    (find path filemap :test #'path-equal :key #'mapping-entry-path))

Legend:
Removed from v.1.49.2.7  
changed lines
  Added in v.1.49.2.8

  ViewVC Help
Powered by ViewVC 1.1.5