mirrors
/
ambevar-dotfiles
mirror of https://gitlab.com/ambrevar/dotfiles/
1
0
Fork 0
Code Issues Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
.local/share/common-lisp/source/ambrevar/file.lisp
View File

@ -74,16 +74,16 @@ If none, return the empty string unlike `pathname-type'."
(or (pathname-type (path file)) (or (pathname-type (path file))
"")) ""))
(export 'directory?) (export-always 'directory?)
(defmethod directory? ((file file)) (defmethod directory? ((file file))
(eq (kind file) :directory)) (eq (kind file) :directory))
(export 'file?) (export-always 'file?)
(defmethod file? ((file file)) (defmethod file? ((file file))
(eq (kind file) :regular-file)) (eq (kind file) :regular-file))
(export 'file=) (export-always 'file=?)
(defun file= (file1 file2) (defun file=? (file1 file2)
"Return true if FILE1 and FILE2 point to the same file. "Return true if FILE1 and FILE2 point to the same file.
They might not be the same objects." They might not be the same objects."
(and (file? file1) (file? file2) (and (file? file1) (file? file2)