[ cclan-Bugs-859355 ] append-dir-terminator-if-needed (post-sysdef-install.lisp)

Bugs item #859355, was opened at 2003-12-12 23:52
Message generated for change (Comment added) made by kevinrosenberg
You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=393636&aid=859355&group_id=28536

Category: common-lisp-controller
Group: None
Status: Open
Resolution: None
Priority: 5
Submitted By: Ignas Mikalajunas (voblia)
Assigned to: Peter Van Eynde (pvaneynd)
Summary: append-dir-terminator-if-needed (post-sysdef-install.lisp)

Initial Comment:
(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 "/")))


----------------------------------------------------------------------

Comment By: Kevin Rosenberg (kevinrosenberg)
Date: 2003-12-13 09:13

Message:
Logged In: YES 
user_id=22346

I've commited the fix

----------------------------------------------------------------------

You can respond by visiting: 
https://sourceforge.net/tracker/?func=detail&atid=393636&aid=859355&group_id=28536


-------------------------------------------------------
This SF.net email is sponsored by: IBM Linux Tutorials.
Become an expert in LINUX or just sharpen your skills.  Sign up for IBM's
Free Linux Tutorials.  Learn everything from the bash shell to sys admin.
Click now! http://ads.osdn.com/?ad_id=1278&alloc_id=3371&op=click