cage
/
tinmop
mirror of https://codeberg.org/cage/tinmop/
1
0
Fork 0
Code Issues

- cleaned a bit reults of 'prepend-pwd'.

This commit is contained in:
cage 2021-03-28 14:42:19 +02:00
parent 8b50eec3be
commit ad21da5957
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/filesystem-utils.lisp
View File

@ -137,7 +137,7 @@
(defmethod prepend-pwd ((object string))
(if (cl-ppcre:scan "^\\." object)
(text-utils:strcat (os-utils:pwd) *directory-sep* object)
(text-utils:strcat (os-utils:pwd) (subseq object 1))
object))
(defmethod prepend-pwd ((object sequence))