<commit_before>;;;; tré – Copyright (c) 2005–2009,2011–2014 <NAME> <<EMAIL>>

(defun upcase (str)
  (list-string (filter [char-upcase _] (string-list str))))

(defun downcase (str)
  (list-string (filter [char-downcase _] (string-list str))))

(defun char-code (chr)
  (integer chr))

(define-test "UPCASE works"
  ((string== (upcase "lisp")
	    "LISP"))
  t)

(define-test "DOWNCASE works"
  ((string== (downcase "LISP")
	    "lisp"))
  t)<commit_msg>CHAR-CODE: To be implemented in the C core.<commit_after>;;;; tré – Copyright (c) 2005–2009,2011–2014 <NAME> <<EMAIL>>

(defun upcase (str)
  (list-string (filter [char-upcase _] (string-list str))))

(defun downcase (str)
  (list-string (filter [char-downcase _] (string-list str))))

;(defun char-code (chr)
;  (integer chr))

(define-test "UPCASE works"
  ((string== (upcase "lisp")
	    "LISP"))
  t)

(define-test "DOWNCASE works"
  ((string== (downcase "LISP")
	    "lisp"))
  t)
{'fraction_non_alphanumeric': 0.19722814498933902, 'fraction_numerical': 0.03411513859275053, 'mean_word_length': 4.275280898876405, 'pattern_counts': {'":': 0, '<': 9, '<?xml version=': 0, '>': 9, 'https://': 0, 'lorem ipsum': 0, 'www.': 0, 'xml': 0}, 'pii_count': 0, 'substrings_counts': 0, 'word_list_counts': {'cursed_substrings.json': 0, 'profanity_word_list.json': 0, 'sexual_word_list.json': 0, 'zh_pornsignals.json': 0}}
{'dir': 'git-commits-cleaned', 'id': '6517801', 'n_tokens_mistral': 399, 'n_tokens_neox': 367, 'n_words': 96}