/[meta-cvs]/meta-cvs/F-A67E77395E9CA68BCC0B867637B54576
ViewVC logotype

Diff of /meta-cvs/F-A67E77395E9CA68BCC0B867637B54576

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

revision 1.5 by kaz, Thu Jan 31 05:35:02 2002 UTC revision 1.6 by kaz, Sun Feb 3 18:12:10 2002 UTC
# Line 81  directory and so on, until it encounters Line 81  directory and so on, until it encounters
81      (rmdir dir-or-file-to-erase)      (rmdir dir-or-file-to-erase)
82      (unlink dir-or-file-to-erase))      (unlink dir-or-file-to-erase))
83    
84    (multiple-value-bind (base dir) (basename dir-or-file-to-erase)    (multiple-value-bind (base dir) (basename (canonicalize-path
85                                                 dir-or-file-to-erase))
86      (declare (ignore base))      (declare (ignore base))
87      (handler-case      (handler-case
88        (loop        (loop

Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6

  ViewVC Help
Powered by ViewVC 1.1.5