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 #:hu.dwim.defclass-star #:defclass*)
|
||||||
(:import-from #:serapeum #:export-always))
|
(:import-from #:serapeum #:export-always))
|
||||||
(in-package #:ambrevar/file)
|
(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)
|
(sera:eval-always
|
||||||
(declare (ignore definition))
|
(defun name-identity (name definition)
|
||||||
name)
|
(declare (ignore definition))
|
||||||
|
name))
|
||||||
|
|
||||||
(defclass* file ()
|
(defclass* file ()
|
||||||
((path (error "Path required")
|
((path (error "Path required")
|
||||||
|
@ -37,6 +41,7 @@
|
||||||
|
|
||||||
;; TODO: Customize `print-object'.
|
;; TODO: Customize `print-object'.
|
||||||
|
|
||||||
|
(export-always 'file)
|
||||||
(defun file (path)
|
(defun file (path)
|
||||||
(let ((native-path (uiop:truename* (uiop:parse-native-namestring path))))
|
(let ((native-path (uiop:truename* (uiop:parse-native-namestring path))))
|
||||||
(assert (uiop:file-exists-p native-path))
|
(assert (uiop:file-exists-p native-path))
|
||||||
|
|
Loading…
Reference in New Issue