ambrevar/file: Fix missing exports and compile name-identity in time.
parent
bf322895bc
commit
c64a89349b
|
@ -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))
|
||||
|
||||
(sera:eval-always
|
||||
(defun name-identity (name definition)
|
||||
(declare (ignore definition))
|
||||
name)
|
||||
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))
|
||||
|
|
Loading…
Reference in New Issue