anchor.diff:              (s (concatenate 'string "#\\" (string 1st-char) rest))
             (read-char s)
             (read-char s)
  -          (funcall original-sharp-backslash-reader s char numarg)))))
  +          (funcall original-reader s char numarg)))))
   
   (defun make-sharp-backslash-reader ()
     (let ((original-sharp-backslash (get-dispatch-macro-character #\# #\\)))
  
positive.code:         (let ((token (let ((*read-base* 16)) (read stream))))
            (if (typep token 'babel-encodings::code-point)
                (code-char token)
                (simple-reader-error stream "Unrecognized character name: u~A" token)))
          (funcall original-sharp-backslash-reader
                   (make-concatenated-stream (make-string-input-stream
                                              (string 1st-char))
                                             stream)
  
negative.code: (in-package #:babel)
  
  #-allegro
  (defun sharp-backslash-reader (original-reader stream char numarg)
    (let ((1st-char (read-char stream)))
      (if (and (char-equal 1st-char #\u)
               ;; because #\z is not a digit char...
  