;; makes a string upper case (define cl:string-upper (lambda (s) (let ((out "")) (for-each (lambda (x) (set! out (string-append out (string (char-upcase x))))) (string->list s)) out)))