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: ;;; Library General Public License for more details.
  ;;;
  ;;; You should have received a copy of the GNU Library General Public
  ;;; License along with this library; if not, write to the 
  ;;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, 
  ;;; Boston, MA  02111-1307  USA.
  
  (in-package :CLIM-INTERNALS)
  
negative.code: 	       :initform +white+
  	       :reader stream-background)
     (text-style :initarg :text-style
  	       :initform *default-text-style*
  	       :reader stream-text-style)
     (vspace :initarg :vertical-spacing
  	   :initform 2
  