diff --git a/.local/share/common-lisp/source/ambrevar/file.lisp b/.local/share/common-lisp/source/ambrevar/file.lisp index d09b7c30..8111e033 100644 --- a/.local/share/common-lisp/source/ambrevar/file.lisp +++ b/.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))