From 9990664292c44342dc2de488fd66e62353722ba4 Mon Sep 17 00:00:00 2001 From: phg <phg> Date: Fri, 24 Jan 1992 11:17:16 +0000 Subject: [PATCH] Dired Up Directory corrected ':UP -> '(:UP) in nconc. --- hemlock/diredcoms.lisp | 20 ++------------------ 1 file changed, 2 insertions(+), 18 deletions(-) diff --git a/hemlock/diredcoms.lisp b/hemlock/diredcoms.lisp index 2200b9792..0714341eb 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))))))) -- GitLab