diff --git a/hemlock/dired.lisp b/hemlock/dired.lisp index 17155e212da54ca8afb2f27d33370ec84d1a3c77..1ce5e251169201cd9ea5ccf0586d23f632592977 100644 --- a/hemlock/dired.lisp +++ b/hemlock/dired.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/dired.lisp,v 1.1.1.5 1992/06/05 19:28:07 phg Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/dired.lisp,v 1.1.1.6 1993/09/01 09:47:37 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -15,16 +15,16 @@ ;;; Written by Bill Chiles. ;;; +(defpackage "DIRED" + (:shadow "RENAME-FILE" "DELETE-FILE") + (:export "COPY-FILE" "RENAME-FILE" "FIND-FILE" "DELETE-FILE" + "MAKE-DIRECTORY" + "*UPDATE-DEFAULT*" "*CLOBBER-DEFAULT*" "*RECURSIVE-DEFAULT*" + "*REPORT-FUNCTION*" "*ERROR-FUNCTION*" "*YESP-FUNCTION*" + "PATHNAMES-FROM-PATTERN")) + (in-package "DIRED") -(shadow '(rename-file delete-file)) - -(export '(copy-file rename-file find-file delete-file make-directory - *update-default* *clobber-default* *recursive-default* - *report-function* *error-function* *yesp-function* - pathnames-from-pattern)) - - ;;;; Exported parameters.