anchor.diff:                                 cell-coordinate common-coordinate
                                  size common-size)
     (declare (type cell-output-record cell)
  -           (type coordinate cell-coordinate common-coordinate
  +           (type real cell-coordinate common-coordinate
                               size common-size))
     (adjust-cell* cell
                   common-coordinate cell-coordinate
  
positive.code:   (:documentation "Fits the CELL of the BLOCK in the retangle."))
  
  (defclass block-info ()
    ((common-size :type coordinate
                  :initform (coordinate 0)
                  :accessor block-info-common-size)
     (number-of-cells :type integer
  
negative.code:                                cell-coordinate common-coordinate
                                 size common-size)
    (declare (type cell-output-record cell)
             (type real cell-coordinate common-coordinate
                              size common-size))
    (adjust-cell* cell
                  cell-coordinate common-coordinate
  