/[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.32 by kaz, Sat May 4 17:52:48 2002 UTC revision 1.33 by kaz, Mon May 6 18:12:46 2002 UTC
# Line 47  down to the original one, or the value n Line 47  down to the original one, or the value n
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))))
50            (symbol-macrolet ((sandbox-down-path ',downpath-sym))            (symbol-macrolet ((sandbox-down-path ,downpath-sym))
51              ,@forms))))))              ,@forms))))))
52    
53  (defun mapping-generate-name (suffix &key no-dir)  (defun mapping-generate-name (suffix &key no-dir)

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

  ViewVC Help
Powered by ViewVC 1.1.5