anchor.diff:  
    
  -
   ;;; Extended-Output-Stream class
   
  -(defclass extended-output-stream (standard-output-stream)
  +(define-protocol-class extended-output-stream
  +    (fundamental-character-output-stream)
  +  ;; CLIM Specification says that E-O-S is a subclass of
  +  ;; OUTPUT-STREAM, but it does not says what is it.
  +  ()
  +  )
  +
  +;;; Stream text cursor protocol
  +(defgeneric stream-text-cursor (stream))
  +(defgeneric (setf stream-text-cursor) (cursor stream))
  +
  +(defgeneric stream-cursor-position (stream))
  +(defgeneric* (setf stream-cursor-position) (x y stream))
  +
  +(defgeneric stream-increment-cursor-position (stream dx dy))
  +
  +;;; Text protocol
  +(defgeneric stream-character-width (stream character &key text-style))
  +
  +(defgeneric stream-string-width (stream character &key start end text-style))
  +
  +(defgeneric stream-text-margin (stream))
  +(defgeneric (setf stream-text-margin) (margin stream))
  +
  +(defgeneric stream-line-height (stream &key text-style))
  +
  +(defgeneric stream-vertical-spacing (stream))
  +
  +(defgeneric stream-baseline (stream))
  +
  +(defgeneric stream-end-of-line-action (stream))
  +(defgeneric (setf stream-end-of-line-action) (action stream))
  +
  +(defgeneric stream-end-of-page-action (stream))
  +(defgeneric (setf stream-end-of-page-action) (action stream))
  +
  +;;; Standard-Extended-Output-Stream class
  +
  +(defclass standard-extended-output-stream (extended-output-stream
  +                                           standard-output-stream)
     ((cursor :accessor stream-text-cursor)
      (foreground :initarg :foreground
   	       :initform +black+
  
positive.code: ;;; -*- Mode: Lisp; Package: CLIM-INTERNALS -*-
  
  ;;;  (c) copyright 1998,1999,2000,2001 by Michael McDonald (mikemac@mikemac.com)
  ;;;  (c) copyright 2000 by 
  ;;;           Robert Strandh (strandh@labri.u-bordeaux.fr)
  
  ;;; This library is free software; you can redistribute it and/or
  
negative.code:   '(error "WITH-ROOM-FOR-GRAPHICS not implemented!"))
  
  (defmacro with-end-of-line-action ((stream action) &body body)
    (when (eq stream t)
      (setq stream '*standard-output*))
    (check-type stream symbol)
    `(letf (((stream-end-of-line-action ,stream) ,action))
       ,@body))
  
  (defmacro with-end-of-page-action ((stream action) &body body)
    (when (eq stream t)
      (setq stream '*standard-output*))
    (check-type stream symbol)
    `(letf (((stream-end-of-page-action ,stream) ,action))
       ,@body))
  
  (defmethod beep (&optional medium)
    (when (null medium)
  