anchor.diff:  ;;;;    along with this program.  If not, see <http://www.gnu.org/licenses/>.
   ;;;;**************************************************************************
   
  -(defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.CHARACTERS"
  +(defpackage "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.CHARACTER"
     (:use "COMMON-LISP"
           "COM.INFORMATIMAGO.COMMON-LISP.CESARUM.ASCII")
     (:export "STANDARD-CHARACTER-IS-ASCII-CODED-P"
  -           "HAS-ASCII-CODES-AS-CHARACTERS-P"
  +           "STANDARD-CHARACTERS"
  +           "HAS-ASCII-CODES-P"
              "HAS-CHARACTER-NAMED-P"
              "PUSH-FEATURE-FOR-CHARACTER-NAMED")
     (:documentation "
  -Define features for present semi-standard character names and
  -other ASCII features.
  +Define features (both at compilation time, load time and execute) for
  +present semi-standard character names and other ASCII features.
   
      #+has-rubout    can read #\rubout
      #+has-page      can read #\page
  
positive.code: ;;;; -*- mode:lisp;coding:utf-8 -*-
  ;;;;**************************************************************************
  ;;;;FILE:               characters.lisp
  ;;;;LANGUAGE:           Common-Lisp
  ;;;;SYSTEM:             Common-Lisp
  ;;;;USER-INTERFACE:     NONE
  
negative.code:            #+has-bell      (=   7 (char-code #\bell))
             #+has-vt        (=  11 (char-code #\vt)))))
  
    (when (has-ascii-code-p)
      (pushnew :has-ascii-code *features*))
    
    #+has-return   (when (char= #\newline #\return)
  