From c64a89349b62560ed20dd0a7c88935460d07514c Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Fri, 15 Jan 2021 10:50:39 +0100 Subject: [PATCH] ambrevar/file: Fix missing exports and compile name-identity in time. --- .local/share/common-lisp/source/ambrevar/file.lisp | 11 ++++++++--- 1 file changed, 8 insertions(+), 3 deletions(-) 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))