anchor.diff:                        (%line-breaks-1 string width offset margin start end)))
                      ((>= start (aref opportunities next-opportunity-index))
                       (return-from breaks-rec
  -                      (breaks-rec offset margin start end (1+ next-opportunity-index)))))
  +                      (breaks-rec offset start end (1+ next-opportunity-index)))))
                (loop
                   with best-break = nil
                   for i from next-opportunity-index below (length opportunities)
  
positive.code:                                                   (* width (- end start)))))))
    (labels ((skip-whitespace (string index)
               (and index (position #\space string :start index :test-not #'char=)))
             (breaks-rec (offset margin start end next-opportunity-index
                                 &aux (current-margin (max (- margin offset) 1)))
               (cond ((<= (funcall width-fn string start end) current-margin)
                      (return-from breaks-rec
  
negative.code:                                                 pos
                                                  (return-from breaks-rec nil))))
                             (multiple-value-bind (breaks remaining-cost)
                                 (breaks-rec 0 current-break end (1+ i))
                               (when (or (null best-cost)
                                         (< (+ current-cost remaining-cost) best-cost))
                                 (setf best-breaks (list* current-break breaks)
  