anchor.diff:  				   (mtoken-end (car mtokens))
   				   (forma (car mtokens) response)))
   	       (t
  -		(aux (cdr tokens) mtokens garbage-end (forma (car tokens) response))))))
  +		(aux (cdr tokens) mtokens ignore (forma (car tokens) response))))))
       (format nil "~{~a~}" (aux (sentence-tokens sentence) (sentence-mtokens sentence) nil nil))))
   
   
  
positive.code: 		     (equal "root" (slot-value tk 'deprel))))
  	      (sentence-tokens sentence))
         (sentence-meta-value sentence "text")
         (sentence-meta-value sentence "sent_id")))
  
  
  
negative.code: 	     (if (search "SpaceAfter=No" (slot-value obj 'misc))
  		 (cons (slot-value obj 'form) lst)
  		 (cons " " (cons (slot-value obj 'form) lst))))
  	   (aux (tokens mtokens ignore response)
  	     (cond 
  	       ((and (null tokens) (null mtokens))
  		(if (equal " " (car response))
  		    (reverse (cdr response))
  		    (reverse response)))
  
  	       ((and ignore (< (token-id (car tokens)) ignore))
  		(aux (cdr tokens) mtokens ignore response))
  	       ((and ignore (equal (token-id (car tokens)) ignore))
  		(aux (cdr tokens) mtokens nil response))
        
  	       ((and mtokens (<= (mtoken-start (car mtokens)) (token-id (car tokens))))
  