diff options
Diffstat (limited to 'src/util.lisp')
-rw-r--r-- | src/util.lisp | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/src/util.lisp b/src/util.lisp index 1dd2b44..2442927 100644 --- a/src/util.lisp +++ b/src/util.lisp @@ -165,7 +165,9 @@ one solution is to convert your property to a :LISP property." "Like PATHNAME-NAME but include any file extension." (and (pathname-name pathname) (namestring - (enough-pathname pathname (pathname-directory-pathname pathname))))) + (if (pathname-directory pathname) + (enough-pathname pathname (pathname-directory-pathname pathname)) + pathname)))) (defun ensure-trailing-slash (namestring) (if (string-suffix-p namestring "/") |