+#+(or (and clisp unicode) sbcl abcl)
+(defun char->unicode (char)
+ (declare (type character char))
+ (char-code char))
+
+#+ecl
+(defun unicode->char (unicode)
+ (declare (type (unsigned-byte 24) unicode))
+ (when (>= unicode 256)
+ (error "ECL does not handle Unicode characters outside Latin-1."))
+ (code-char unicode))
+
+#+ecl