anchor.diff:    (ppcre:create-scanner regex))
   
   (defun make-tm-patterns (&rest patterns)
  -  patterns)
  +  (make-instance 'tm-patterns :patterns patterns))
   
   (defun make-rule-name (&key attribute)
     attribute)
  
positive.code:     :initform nil
      :reader tm-match-move-action)))
  
  (defun make-tmlanguage ()
    (make-instance 'tmlanguage))
  
  
negative.code:                (line-end (move-point point start))))))))
  
  (defun tm-apply-match-in-capture (point capture start end)
    (typecase capture
      (tm-patterns
       (tm-scan-line point (patterns capture) start end))
      (otherwise
       (line-add-property (point-line point) start end :attribute capture nil))))
  
  (defun tm-apply-match (rule point result)
  