Work at SourceForge, help us to make it a better place! We have an immediate need for a Support Technician in our San Francisco or Denver office.

Close

#36 append-dir-terminator-if-needed (post-sysdef-install.lisp)

closed-fixed
5
2003-12-13
2003-12-13
No

(defun append-dir-terminator-if-needed (path)

(check-type path string)

(unless (char= #\/ (char path (1- (length path))))

(concatenate 'string path "/")))

returns nil if the path is with a "/" in it's end it
should return the unmodified path:

a fix:
(defun append-dir-terminator-if-needed (path)

(check-type path string)

(if (char= #\/ (char path (1- (length path))))

path
(concatenate 'string path "/")))

Discussion

  • Logged In: YES
    user_id=22346

    I've commited the fix

     
    • assigned_to: pvaneynd --> kevinrosenberg
    • status: open --> closed-fixed