anchor.diff:            ((equal intermediates '(#\( #\0))
              ;; Set G0 character set.
              (setf (charset terminal) :dec))
  +          ((equal intermediates '(#\# #\8))
  +           ;; Screen Alignment Display (DECALN).
  +           ;; Fill the screen with #\E.
  +           (dotimes (y (terminal-height terminal))
  +             (dotimes (x (terminal-width terminal))
  +               (write-terminal-at terminal #\E x y))))
             (t (report-unknown-escape terminal)))))
   
   (defun xterm-csi-dispatch (terminal char)
  
positive.code:              (t (report-unknown-escape terminal))))
            ((equal intermediates '(#\?))
             (case char
               (#\h (dolist (p params)
                      (adjust-dec-private-mode terminal p t)))
               (#\l (dolist (p params)
                      (adjust-dec-private-mode terminal p nil)))
               (t (report-unknown-escape terminal))))
            (t (report-unknown-escape terminal)))))
  
  
negative.code:          (setf (background-colour terminal) (third attributes)))
          (t (dolist (attr attributes)
               (case attr
                 ((0 nil) ;; Normal (reset to defaults).
                  (setf (bold terminal) nil
                        (inverse terminal) nil
                        (underline terminal) nil
  