anchor.diff:  ;;; twice, very weird.  This is the best workaround I could think of.
   ;;; It sucks.
   #+allegro
  -(defun sharp-backslash-reader (original-sharp-backslash-reader stream char numarg)
  +(defun sharp-backslash-reader (original-reader stream char numarg)
     (let* ((1st-char (read-char stream))
            (rest (ignore-errors (excl::read-extended-token stream)))
            (code (when (and rest (char-equal 1st-char #\u))
  
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 #\# #\\)))
  