From aa7b1a72b6e64788f51d7b47fe241c448bf7d28a Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Fri, 5 Feb 2021 17:03:08 +0100 Subject: [PATCH] =?UTF-8?q?ambrevar/file:=20Rename=20file=3D=20to=20file?= =?UTF-8?q?=3D=3F=20to=20avoid=20clash=20with=20Serapeum.?= Also fix some exports. --- .local/share/common-lisp/source/ambrevar/file.lisp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/.local/share/common-lisp/source/ambrevar/file.lisp b/.local/share/common-lisp/source/ambrevar/file.lisp index db444c9d..bf985175 100644 --- a/.local/share/common-lisp/source/ambrevar/file.lisp +++ b/.local/share/common-lisp/source/ambrevar/file.lisp @@ -74,16 +74,16 @@ If none, return the empty string unlike `pathname-type'." (or (pathname-type (path file)) "")) -(export 'directory?) +(export-always 'directory?) (defmethod directory? ((file file)) (eq (kind file) :directory)) -(export 'file?) +(export-always 'file?) (defmethod file? ((file file)) (eq (kind file) :regular-file)) -(export 'file=) -(defun file= (file1 file2) +(export-always 'file=?) +(defun file=? (file1 file2) "Return true if FILE1 and FILE2 point to the same file. They might not be the same objects." (and (file? file1) (file? file2)