added string functions

debug.lsp

@@ -5,6 +5,15 @@
 (print (string-ltrim "     abc"))
 (print (string-trim "  abc   "))
 
+(defun string-upcase (str) 
+    (string-case str "upper"))
+
+(defun string-downcase (str) 
+    (string-case str "lower"))
+
+(print (string-upcase "abcABCD"))
+(print (string-downcase "abcABCD"))
+
 ;; (print (sprintf "%.2f" (list 1.25)))
 
 ;; (print (sprintf "%.2f" '(1.23456)))