ambrevar/file: Add file=.

.local/share/common-lisp/source/ambrevar/file.lisp

@@ -64,6 +64,13 @@ If none, return the empty string unlike `pathname-type'."
 (defmethod file? ((file file))
   (eq (kind file) :regular-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)
+       (string= (path file1)
+                (path file2))))
+
 (defun separator (&optional char?)
   (if char?
       (uiop:directory-separator-for-host)