cl:string-upper   scheme


Defined in:  https://github.com/lambdamusic/extempore-extensions/blob/main/init/init_lisp.xtm

Implementation

;; 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)))


Back to Index