diff --git a/.local/share/common-lisp/source/ambrevar/file.lisp b/.local/share/common-lisp/source/ambrevar/file.lisp
index 30aa3213..a343e1a8 100644
--- a/.local/share/common-lisp/source/ambrevar/file.lisp
+++ b/.local/share/common-lisp/source/ambrevar/file.lisp
@@ -22,18 +22,24 @@
 
 (defclass* file ()
     ((path (error "Path required")
-           :type string)
+           :type string
+           ;; :reader path
+           )
      (inode 0)
      (link-count 0)
-     (kind :regular-file                    ; "kind" because `type' is reserved by CL.
+     (kind :regular-file              ; "kind" because `type' is reserved by CL.
            :type (member :directory
                          :character-device
                          :block-device
                          :regular-file
                          :symbolic-link
                          :socket
-                         :pipe))
-     (size 0)
+                         :pipe)
+           ;; :reader kind
+           )
+     (size 0
+           ;; :reader size
+           )
      (user-id 0)
      (group-id 0)
      ;; TODO: Include blocks?
@@ -62,12 +68,15 @@ If none, return the empty string unlike `pathname-type'."
   (or (pathname-type (path file))
       ""))
 
+(export 'directory?)
 (defmethod directory? ((file file))
   (eq (kind file) :directory))
 
+(export 'file?)
 (defmethod file? ((file file))
   (eq (kind file) :regular-file))
 
+(export 'file=)
 (defun file= (file1 file2)
   "Return true if FILE1 and FILE2 point to the same file.
 They might not be the same objects."
@@ -117,8 +126,9 @@ If PARENT-DIRECTORY is not a parent of PATH, return PATH."
          (native-path (uiop:truename* (if (pathnamep path)
                                           path
                                           (uiop:parse-native-namestring path)))))
-    (assert (or (uiop:file-exists-p native-path)
-                (uiop:directory-exists-p native-path)))
+    (unless (or (uiop:file-exists-p native-path)
+                (uiop:directory-exists-p native-path))
+      (error "~s is not a file path" (or native-path path)))
     ;; TODO: What do we do with non-existent files (e.g. unsaved emacs buffers)?  Just return nil?
     (let ((stat (ignore-errors (osicat-posix:stat native-path))))
       (when stat