anchor.diff:                (set-syntax-context (point-line point) rule)
                 (line-offset point 1))
           (set-syntax-context (point-line point) 'end-move-action)
  -        (uiop:if-let ((attribute (tm-rule-name rule)))
  +        (alexandria:when-let ((attribute (tm-rule-name rule)))
             (put-text-property start end :attribute attribute))
           (cond (allow-multiline
                  (move-point point end))
  
positive.code:                                     (line-length (point-line point))
                                      :attribute (tm-rule-name rule)
                                      t)
                   (set-syntax-context (point-line point) rule)
                   (line-end point)
                   (return))
  
negative.code:                                     (tm-result-end end-result)
                                      :attribute (tm-rule-name rule)
                                      nil)
                   (alexandria:when-let (content-name (tm-region-content-name rule))
                     (line-add-property (point-line point)
                                        start1
                                        (tm-result-start end-result)
                                        :attribute content-name
                                        nil))
                   (set-syntax-context (point-line point) nil)
                   (line-offset point 0 (tm-result-end end-result))
                   (return))
  