ambrevar/file: Rename file= to file=? to avoid clash with Serapeum.

Also fix some exports.
master
Pierre Neidhardt 2021-02-05 17:03:08 +01:00
parent f78d4f9121
commit aa7b1a72b6
1 changed files with 4 additions and 4 deletions

View File

@ -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)