anchor.diff:  		     (string-equal "," (car token-list)))
   	     (error 'parser-error :text "Too many conjunctions."))
   	   (multiple-value-bind (other-noun-phrases token-list) (parse-noun-group token-list)
  -	     (values (append (list noun-phrase) other-noun-phrases) token-list)))
  +	     (when noun-phrase
  +	      (values (append (list noun-phrase) other-noun-phrases) token-list))))
   	  
   	  (t
  -	   (values (list noun-phrase) token-list)))))
  +	   (when noun-phrase
  +	    (values (list noun-phrase) token-list))))))
   
   (defun terminal-p (token)
     (or (possessive-p token)
  
positive.code: 			 (multiple-value-setq (owns token-list)
  			   (parse-noun-phrase token-list)))
  		       (setf noun (pop token-list)))))))
        (values noun-phrase token-list))))
  
  ;;;
  ;;; Util
  
negative.code: 		   (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))
  