ambrevar/file: Add path defmethod for strings and pathnames.
parent
e00dc4e1e9
commit
757be91df8
|
@ -45,6 +45,12 @@
|
||||||
(:export-accessor-names-p t)
|
(:export-accessor-names-p t)
|
||||||
(:export-class-name-p t))
|
(:export-class-name-p t))
|
||||||
|
|
||||||
|
(defmethod path ((s string))
|
||||||
|
s)
|
||||||
|
|
||||||
|
(defmethod path ((p pathname))
|
||||||
|
(namestring p))
|
||||||
|
|
||||||
(export-always 'extension)
|
(export-always 'extension)
|
||||||
(defmethod extension ((file file))
|
(defmethod extension ((file file))
|
||||||
"Return the file extension.
|
"Return the file extension.
|
||||||
|
|
Loading…
Reference in New Issue