split by regexp and [rl]tring added

stdlib/stdlib.lsp

@@ -24,6 +24,13 @@
 (defun inc (n) (+ n 1))
 
 
+(defun string-ltrim (str) 
+    (string-rltrim str " \n\r\t" "ltrim"))
+(defun string-rtrim (str) 
+    (string-rltrim str " \n\r\t" "rtrim"))
+(defun string-trim (str) 
+    (string-rltrim str " \n\r\t" "trim"))
+
 ; pad string on the end
 (defun string-rpad (str length pad_char)
     (string-pad str length pad_char "rpad"))