string-cmp and string-cmp-ic added

stdlib/stdlib.lsp

@@ -26,6 +26,8 @@
 (defn string-downcase (str) 
     (string-case str "lower"))
 
+(defn string-cmp-ic (a b) 
+    (string-cmp (string-upcase a) (string-upcase b)))
 
 (defn string-join (lst sep)
 (do