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