diff --git a/hemlock/diredcoms.lisp b/hemlock/diredcoms.lisp index 2200b9792156fcfacf43e2f09004da113d03087a..0714341ebcd74683f9301cc662ddcf4fc5dfdd4e 100644 --- a/hemlock/diredcoms.lisp +++ b/hemlock/diredcoms.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/diredcoms.lisp,v 1.1.1.7 1992/01/22 15:11:16 phg Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/diredcoms.lisp,v 1.1.1.8 1992/01/24 11:17:16 phg Exp $") ;;; ;;; ********************************************************************** ;;; @@ -324,22 +324,6 @@ (dired-command p (directory-namestring pathname)) (editor-error "No pathname associated with buffer.")))) -(defcommand "Dired Up Directory" (p) - "Invokes \"Dired\" on the directory up one level from the current Dired - buffer." - "Invokes \"Dired\" on the directory up one level from the current Dired - buffer." - (declare (ignore p)) - (unless (hemlock-bound-p 'dired-information) - (editor-error "Not in Dired buffer.")) - (let ((dirs (pathname-directory - (dired-info-pathname (value dired-information))))) - (declare (simple-vector dirs)) - (dired-command nil - (make-pathname - :device :absolute - :directory (subseq dirs 0 (1- (length dirs))))))) - (defcommand "Dired Up Directory" (p) "Invokes \"Dired\" on the directory up one level from the current Dired buffer." @@ -352,7 +336,7 @@ (dired-info-pathname (value dired-information))))) (declare (list dirs)) (dired-command nil - (truename (make-pathname :directory (nconc dirs ':UP)))))) + (truename (make-pathname :directory (nconc dirs '(:UP)))))))