(static-when (and (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
(or (not (find-coding-system 'x-ctext))
(coding-system-get 'x-ctext 'apel)))
(static-when (and (string= (decode-coding-string "\e.A\eN!" 'ctext) "\eN!")
(or (not (find-coding-system 'x-ctext))
(coding-system-get 'x-ctext 'apel)))