;; These comparison functions heavily borrowed from SBCL/CMUCL (public domain).
(defun char= (character &rest more-characters)
;; These comparison functions heavily borrowed from SBCL/CMUCL (public domain).
(defun char= (character &rest more-characters)