/[meta-cvs]/meta-cvs/F-300FB44635F94930416CE1B06097B230.lisp
ViewVC logotype

Diff of /meta-cvs/F-300FB44635F94930416CE1B06097B230.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by kaz, Sat Oct 5 18:09:48 2002 UTC revision 1.4 by kaz, Mon Oct 7 02:44:30 2002 UTC
# Line 20  Line 20 
20          (dolist (file files)          (dolist (file files)
21            (can-restart-here ("Continue preparing file list.")            (can-restart-here ("Continue preparing file list.")
22              (let* ((full-name (sandbox-translate-path file))              (let* ((full-name (sandbox-translate-path file))
23                     (abs-name (real-to-abstract-path full-name))                     (abs-name (canonicalize-path
24                                   (real-to-abstract-path full-name)))
25                     (entries (mapping-prefix-matches filemap abs-name)))                     (entries (mapping-prefix-matches filemap abs-name)))
26                (if (not entries)                (if (not entries)
27                  (error "~a is not known to Meta-CVS." full-name)                  (error "~a is not known to Meta-CVS." full-name)

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5