anchor.diff:  	      ((verb-p (car token-list))
   	       (setf verb (pop token-list))
   	       (multiple-value-setq 
  -		   (noun-clause adverb-2 token-list) (parse-noun-clause token-list))
  +		   (noun-clause adverb-2 adverb-3 token-list) (parse-noun-clause token-list))
   	       (when token-list
   		 (when (adverb-p (car token-list))
  -		   (setf adverb-3 (pop token-list)))
  +		   (setf adverb-4 (pop token-list)))
   		 (when (chat-string-p (car token-list))
   		   (setf chat-string (pop token-list)))
   		 (when token-list
  
positive.code: ;; sentence =  chat-string
  ;; sentence =/ [adverb] verb [noun-clause] [adverb] [chat-string]
  ;;
  ;; noun-clause =  noun-phrase
  ;; noun-clause =/ [noun-phrase] [[adverb] [preposition] noun-phrase]
  ;;
  ;; noun-group =  noun-phrase [","] 0*(conjunction noun-phrase)
  ;;
  
negative.code:   "Generates the NOUN-CLAUSE list.
  MULTIPLE RETURN VALUES: NOUN-CLAUSE list, a discovered ADVERB, and the remaining TOKEN-LIST"
    (let ((noun-clause (make-instance '<noun-clause>))
  	(adverb1 nil)
  	(adverb2 nil)
  	(prep1 nil)
  	(prep2 nil))
      (with-accessors ((dir-obj direct-objects)
  		     (ind-obj indirect-objects)
  		     (preps prepositions)) noun-clause
        (when (adverb-p (car token-list))
  	(setf adverb1 (pop token-list)))
        (when (preposition-p (car token-list))
  	(setf prep1 (pop token-list)))
        (multiple-value-setq (dir-obj token-list) (parse-noun-group token-list))
        (when (adverb-p (car token-list))
  	(setf adverb2 (pop token-list)))
        (when (preposition-p (car token-list))
  	(setf prep2 (pop token-list)))
        (multiple-value-setq (ind-obj token-list) (parse-noun-group token-list))
        (push prep2 preps)
        (push prep1 preps)
        (values noun-clause adverb1 adverb2 token-list))))
  
  (defun parse-noun-group (token-list)
    "Parses a TOKEN-LIST into a LIST representing a NOUN GROUP (multiple noun 
  