anchor.diff:                   ;; Let's prevent infinite recursion if there isn't
                    ;; room for even a single character.
   		 (setq split (max (find-split (- margin cx))
  -                                  (1+ start)))) 
  +                                  (1+ start))))
   		(:scroll
   		 (scroll-horizontal stream width))
   		(:allow)))
  
positive.code: 			  (+ x width) (+ y height)
  			  :filled (ecase (cursor-appearance cursor)
  				    (:solid t) (:hollow nil))
  			  :ink +foreground-ink+))       
          (:erase
  	 ;; This is how I'd like this to work, as painting over with
  	 ;; the background ink is repugnant. I leave this disabled
  
negative.code: (defmethod compose-space ((pane standard-extended-output-stream)
  			  &key width height)
    (declare (ignorable width height))
  
    (with-slots (seos-current-width seos-current-height) pane
      (make-space-requirement :width seos-current-width
                              :height seos-current-height)))
  