anchor.diff:      :initform nil
       :reader tm-match-move-action)))
   
  +(defclass tm-patterns ()
  +  ((patterns
  +    :initarg :patterns
  +    :reader patterns)))
  +
   (defun make-tmlanguage ()
     (make-instance 'tmlanguage))
   
  
positive.code:   (ppcre:create-scanner regex))
  
  (defun make-tm-patterns (&rest patterns)
    patterns)
  
  (defun make-rule-name (&key attribute)
    attribute)
  
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)
  