/[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.30 by kaz, Fri Apr 5 02:25:36 2002 UTC
# Line 41  down to the original one, or the value n Line 41  down to the original one, or the value n
41          (flet ((sandbox-translate-path (in-path)          (flet ((sandbox-translate-path (in-path)
42                   (multiple-value-bind (out-path out-of-bounds)                   (multiple-value-bind (out-path out-of-bounds)
43                                        (canonicalize-path                                        (canonicalize-path
44                                          (path-cat ,downpath-sym in-path))                                          (if (path-absolute-p in-path)
45                                              (path-cat *this-dir* in-path)
46                                              (path-cat ,downpath-sym in-path)))
47                      (if out-of-bounds                      (if out-of-bounds
48                        (error "mcvs: path ~a is not within sandbox." out-path)                        (error "mcvs: path ~a is not within sandbox." out-path)
49                        out-path))))                        out-path))))

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

  ViewVC Help
Powered by ViewVC 1.1.5