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:            #+has-bell      (=   7 (char-code #\bell))
             #+has-vt        (=  11 (char-code #\vt)))))
  
    (when (has-ascii-codes-as-characters-p)
      (pushnew :has-ascii-code *features*))
    
    #+has-return   (when (char= #\newline #\return)
  
negative.code:             upcased.
  
  "
      (when (has-character-named-p name)
        (pushnew  (intern (format nil "~:@(HAS-~A~)" name)
                          (load-time-value (find-package"KEYWORD")))
                  *features*)))
  
  
    (dolist (name '("Rubout" "Page" "Tab" "Backspace" "Return" "Linefeed"
                    ;; Non standard character names:
                    "Escape" "Bell" "Vt"))
  