+ :key #'cdr)))
+ (name-length (length name)))
+ (cond
+ (char-code
+ (code-char char-code))
+ ((and (or (= name-length 9)
+ (= name-length 5))
+ (char-equal (char name 0) #\U)
+ (loop for i from 1 below name-length
+ always (digit-char-p (char name i) 16)))
+ (code-char (parse-integer name :start 1 :radix 16)))
+ (t
+ nil)))))))