From 757be91df8b6b29523bfb8ccb7b160827b4d1b2f Mon Sep 17 00:00:00 2001 From: Pierre Neidhardt Date: Sat, 16 Jan 2021 01:12:17 +0100 Subject: [PATCH] ambrevar/file: Add path defmethod for strings and pathnames. --- .local/share/common-lisp/source/ambrevar/file.lisp | 6 ++++++ 1 file changed, 6 insertions(+) diff --git a/.local/share/common-lisp/source/ambrevar/file.lisp b/.local/share/common-lisp/source/ambrevar/file.lisp index 051ae949..247b31e2 100644 --- a/.local/share/common-lisp/source/ambrevar/file.lisp +++ b/.local/share/common-lisp/source/ambrevar/file.lisp @@ -45,6 +45,12 @@ (:export-accessor-names-p t) (:export-class-name-p t)) +(defmethod path ((s string)) + s) + +(defmethod path ((p pathname)) + (namestring p)) + (export-always 'extension) (defmethod extension ((file file)) "Return the file extension.