Skip to content
Snippets Groups Projects
Commit c4401f9c authored by pfdietz's avatar pfdietz
Browse files

Added aux. functions for string testing: char-invertcase and string-invertcase.

parent be11fbf1
No related branches found
No related tags found
No related merge requests found
......@@ -143,3 +143,10 @@ condition itself on other errors."
(defun is-eq-p (x) #'(lambda (y) (eq x y)))
(defun is-not-eq-p (x) #'(lambda (y) (not (eq x y))))
(defun char-invertcase (c)
(if (upper-case-p c) (char-downcase c)
(char-upcase c)))
(defun string-invertcase (s)
(map 'string #'char-invertcase s))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment