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: 		 (if fail-verb
  		     (error 'parser-error :text (format nil "Unknown verb: ~a" fail-verb))
  		     (error 'parser-error :text "Invalid input")))))
  	(push adverb-3 adverbs)
  	(push adverb-2 adverbs)
  	(push adverb-1 adverbs)))
  
negative.code: ;;;
  ;;; - Takes a string-list, and returns an Astract Syntax Tree.
  
  ;; NOTE: Do I want to be able to accept two- or even three-verb sentences? It wouldn't be spammy,
  ;;       since the event system can handle putting delays between each action just fine.
  ;;
  