/[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.6 by chiles, Fri Jul 26 10:17:14 1991 UTC revision 1.1.1.7 by phg, Wed Jan 22 15:11:16 1992 UTC
# Line 350  Line 350 
350      (editor-error "Not in Dired buffer."))      (editor-error "Not in Dired buffer."))
351    (let ((dirs (pathname-directory    (let ((dirs (pathname-directory
352                 (dired-info-pathname (value dired-information)))))                 (dired-info-pathname (value dired-information)))))
353      (declare (simple-vector dirs))      (declare (list dirs))
354      (dired-command nil      (dired-command nil
355                     (make-pathname                     (truename (make-pathname :directory (nconc dirs ':UP))))))
                     :device :absolute  
                     :directory (subseq dirs 0 (1- (length dirs)))))))  
356    
357    
358    

Legend:
Removed from v.1.1.1.6  
changed lines
  Added in v.1.1.1.7

  ViewVC Help
Powered by ViewVC 1.1.5