/[cmucl]/src/hemlock/diredcoms.lisp
ViewVC logotype

Diff of /src/hemlock/diredcoms.lisp

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

revision 1.1.1.8 by phg, Fri Jan 24 11:17:16 1992 UTC revision 1.1.1.9 by phg, Thu Jun 4 22:43:31 1992 UTC
# Line 334  Line 334 
334      (editor-error "Not in Dired buffer."))      (editor-error "Not in Dired buffer."))
335    (let ((dirs (pathname-directory    (let ((dirs (pathname-directory
336                 (dired-info-pathname (value dired-information)))))                 (dired-info-pathname (value dired-information)))))
     (declare (list dirs))  
337      (dired-command nil      (dired-command nil
338                     (truename (make-pathname :directory (nconc dirs '(:UP)))))))                     (truename (make-pathname :directory (nconc dirs '(:UP)))))))
339    

Legend:
Removed from v.1.1.1.8  
changed lines
  Added in v.1.1.1.9

  ViewVC Help
Powered by ViewVC 1.1.5