anchor.diff:  		   (loop until (or (possessive-p (car token-list))
   					;(possessive-p (cadr token-list))
   				   (conjunction-p (cadr token-list))
  +				   (string-equal "," (car token-list))
   				   (string-equal "," (cadr token-list)) ;COMMA BAD!
   				   (preposition-p (cadr token-list))
   				   (chat-string-p (cadr token-list))
  
positive.code:       (cond ((or (preposition-p (car token-list))
  		 (null (car token-list))
  		 (chat-string-p (car token-list))
  		 (adverb-p (car token-list)))
  	     nil)
  	    ((pronoun-p (car token-list))
  	     (setf noun (pop token-list)))
  
negative.code: 			 (multiple-value-setq (owns token-list)
  			   (parse-noun-phrase token-list)))
  		       (setf noun (pop token-list)))))))
        (when noun
         (values noun-phrase token-list)))))
  
  ;;;
  ;;; Util
  