;; | ----------------------------------------------------------------------------
;; | ST_LTrim
;; | ----------------------------------------------------------------------------
;; | Function : Trims white spaces from the left until the first non-white
;; |			character is encountered.
;; | Argument : String to be Left trimmed.
;; | Return   : String Left trimmed.
;; | Updated  : May 30, 2009
;; | e-mail   : rakesh.rao@4d-technologies.com 
;; | Web      : www.4d-technologies.com
;; | ----------------------------------------------------------------------------


(defun ST_LTrim ( str / slen )
(setq slen 1)
(while (= (substr str slen 1) " ")
	(setq slen (1+ slen))
)
(substr str slen)
)