Function: ENTITY-OF

Documentation

Returns the xml entity corresponding to CHAR, without the leading ampersand. Returns NIL if not found.

Source

(defun entity-of (char)
  "Returns the xml entity corresponding to CHAR, without the leading
ampersand. Returns NIL if not found."
  (declare (type list *entities*))
  (first (find char *entities* 
	       :test #'char= 
	       :key (lambda (e) (second e)))))