anchor.diff:  of all of RECORD's ancestors will also be updated to be large enough
   to contain RECORD."))
   
  -#+:cmu(declaim (ftype (function (output-record) (values integer integer))
  -		      output-record-start-cursor-position))
   (defgeneric output-record-start-cursor-position (record)
     (:documentation
      "Returns the x and y starting cursor position of RECORD. The
  
positive.code: (in-package :clim-internals)
  
  ;;; 16.2.1. The Basic Output Record Protocol
  #+:cmu(declaim (ftype (function (output-record) (values rational rational))
  		      output-record-position))
  ;; XXX What does #+:CMU mean? FTYPE was excluded from ANSI CL? Other
  ;; compilers try to check type declarations?
  (defgeneric output-record-position (record)
    (:documentation
     "Returns the x and y position of RECORD. The position is the
  
negative.code: 
  (defgeneric* (setf output-record-start-cursor-position) (x y record))
  
  (defgeneric output-record-end-cursor-position (record)
    (:documentation
     "Returns the x and y ending cursor position of RECORD. The
  