anchor.diff:  (defun parse-noun-phrase (token-list)
     "Parses a TOKEN-LIST into a LIST representing a NOUN PHRASE.
   MULTIPLE RETURN VALUES: NOUN-PHRASE and REST of the TOKEN-LIST."
  -  ;; noun-phrase =  pronoun
  -  ;; noun-phrase =/ [article] cardinal [adjective] noun
  -  ;; noun-phrase =/ [article] [ordinal] [adjective] \
  -  ;;                (noun / possessive noun-phrase)
  -  ;;
     (let ((noun nil)
   	(adjectives nil)
   	(belongs-to nil))
  
positive.code: 	       (progn
  		 (loop until (or (possessive-p (car token-list))
  				 (conjunction-p (cadr token-list))
  				 (string-equal "," (cadr token-list))
  				 (preposition-p (cadr token-list))
  				 (chat-string-p (cadr token-list))
  				 (adverb-p (cadr token-list))
  
negative.code: (defun parse-noun-clause (token-list)
    "Generates the NOUN-CLAUSE list.
  MULTIPLE RETURN VALUES: NOUN-CLAUSE list, and the remaining TOKEN-LIST"
    (let ((adverb nil)
  	(preposition nil)
  	(noun-group-2 nil))
  