anchor.diff:  ;;;; -*- mode:lisp;coding:utf-8 -*-
   ;;;;**************************************************************************
  -;;;;FILE:               characters.lisp
  +;;;;FILE:               character.lisp
   ;;;;LANGUAGE:           Common-Lisp
   ;;;;SYSTEM:             Common-Lisp
   ;;;;USER-INTERFACE:     NONE
  
positive.code: ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
  ;;;;**************************************************************************
  
  (defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.CHARACTERS"
    (:use "COMMON-LISP"
          "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ASCII")
    (:export "STANDARD-CHARACTER-IS-ASCII-CODED-P"
             "HAS-ASCII-CODES-AS-CHARACTERS-P"
             "HAS-CHARACTER-NAMED-P"
             "PUSH-FEATURE-FOR-CHARACTER-NAMED")
    (:documentation "
  Define features for present semi-standard character names and
  other ASCII features.
  
     #+has-rubout    can read #\rubout
     #+has-page      can read #\page
  
negative.code: 
  Return:     Whether reading #\{name} will not produce an error.
  "
      (ignore-errors (read-from-string (format nil "#\\~A" name))))
  
  
    (defun push-feature-for-character-named (name)
      "
  NAME:       A case-insensitive string designator for the semi-standard
              character names:
  
  