/[cmucl]/src/code/pathname.lisp
ViewVC logotype

Diff of /src/code/pathname.lisp

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

revision 1.75 by rtoy, Tue Sep 13 14:38:44 2005 UTC revision 1.76 by rtoy, Fri Sep 16 21:27:35 2005 UTC
# Line 1382  a host-structure or string." Line 1382  a host-structure or string."
1382    (with-pathname (source source)    (with-pathname (source source)
1383      (with-pathname (from from-wildname)      (with-pathname (from from-wildname)
1384        (with-pathname (to to-wildname)        (with-pathname (to to-wildname)
1385              (unless (pathname-match-p source from)
1386                (didnt-match-error source from))
1387            (let* ((source-host (%pathname-host source))            (let* ((source-host (%pathname-host source))
1388                   (to-host (%pathname-host to))                   (to-host (%pathname-host to))
1389                   (diddle-case                   (diddle-case

Legend:
Removed from v.1.75  
changed lines
  Added in v.1.76

  ViewVC Help
Powered by ViewVC 1.1.5