ambrevar/file: Fix missing exports and compile name-identity in time.

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

@@ -5,10 +5,14 @@
   (:import-from #:hu.dwim.defclass-star #:defclass*)
   (:import-from #:serapeum #:export-always))
 (in-package #:ambrevar/file)
+(eval-when (:compile-toplevel :load-toplevel :execute)
+  (trivial-package-local-nicknames:add-package-local-nickname :alex :alexandria)
+  (trivial-package-local-nicknames:add-package-local-nickname :sera :serapeum))
 
-(defun name-identity (name definition)
-  (declare (ignore definition))
-  name)
+(sera:eval-always
+  (defun name-identity (name definition)
+    (declare (ignore definition))
+    name))
 
 (defclass* file ()
     ((path (error "Path required")
@@ -37,6 +41,7 @@
 
 ;; TODO: Customize `print-object'.
 
+(export-always 'file)
 (defun file (path)
   (let ((native-path (uiop:truename* (uiop:parse-native-namestring path))))
     (assert (uiop:file-exists-p native-path))