(defun char-equal (character &rest more-characters)

   "Returns T if all of its arguments are the same character.

   (do ((clist more-characters (cdr clist)))

       ((atom clist) T)

     (unless (= (equal-char-code (car clist))

 (defun char-not-equal (character &rest more-characters)

   "Returns T if no two of its arguments are the same character.

   (do* ((head character (car list))

 	(list more-characters (cdr list)))

        ((atom list) T)

 (defun char-lessp (character &rest more-characters)

   "Returns T if its arguments are in strictly increasing alphabetic order.

   (do* ((c character (car list))

 	(list more-characters (cdr list)))

        ((atom list) T)

 (defun char-greaterp (character &rest more-characters)

   "Returns T if its arguments are in strictly decreasing alphabetic order.

   (do* ((c character (car list))

 	(list more-characters (cdr list)))

        ((atom list) T)

 (defun char-not-greaterp (character &rest more-characters)

   "Returns T if its arguments are in strictly non-decreasing alphabetic order.

   (do* ((c character (car list))

 	(list more-characters (cdr list)))

        ((atom list) T)

 (defun char-not-lessp (character &rest more-characters)

   "Returns T if its arguments are in strictly non-increasing alphabetic order.

   (do* ((c character (car list))

 	(list more-characters (cdr list)))

        ((atom list) T)