anchor.diff:          if cs has no emacs encoding.
   "
     (assert (member line-termination '(:unix :mac :dos nil)))
  -  (unless  (cs-emacs-encoding (etypecase cs
  -                                (character-set cs)
  -                                ((or string symbol) (find-character-set cs))))
  -    (error "The character-set ~A has no corresponding emacs encoding"
  -           (cs-name cs)))
  -  (format nil "~(~A~:[~;~:*-~A~]~)" (first (cs-emacs-encoding cs))
  -          line-termination))
  -
  +  (let* ((cs  (etypecase cs
  +                (character-set cs)
  +                ((or string symbol) (find-character-set cs))))
  +         (ee  (cs-emacs-encoding cs)))
  +    (unless ee
  +      (error "The character-set ~A has no corresponding emacs encoding"
  +             (cs-name cs)))
  +    (format nil "~(~A~:[~;~:*-~A~]~)" (first ee) line-termination)))
   
   (defun character-set-from-emacs-encoding (ecs)
     "
  
positive.code: character encodings, coding systems and external format.
  It's all the same, but everyone likes to have his own terms...
  
  Copyright Pascal J. Bourguignon 2005 - 2012
  This package is provided under the GNU General Public Licence.
  See the source file for details.
  "))
  
negative.code: ;;;;AUTHORS
  ;;;;    <PJB> Pascal J. Bourguignon <pjb@informatimago.com>
  ;;;;MODIFICATIONS
  ;;;;    2021-05-15 <PJB> Corrected character-set-to-emacs-encoding.
  ;;;;                     Added examples to package docstring.
  ;;;;    2012-04-06 <PJB> Extracted from
  ;;;;                     com.informatimago.common-lisp.cesarum.character-sets.
  ;;;;BUGS
  ;;;;LEGAL
  ;;;;    AGPL3
  ;;;;
  ;;;;    Copyright Pascal J. Bourguignon 2012 - 2021
  ;;;;
  ;;;;    This program is free software: you can redistribute it and/or modify
  ;;;;    it under the terms of the GNU Affero General Public License as published by
  