anchor.diff:      (if (preposition-p (car token-list))
   	(let ((preposition (car token-list)))
   	  (multiple-value-bind (noun-group-2 token-list) (parse-noun-group (cdr token-list))
  -	    (values (list noun-group-1 preposition noun-group-2) token-list)))
  -	(values (list noun-group-1) token-list))))
  +	    (values (list preposition noun-group-1  noun-group-2) token-list)))
  +	(values (list nil noun-group-1 nil) token-list))))
   
   (defun parse-noun-group (token-list)
     "Parses a TOKEN-LIST into a LIST representing a NOUN GROUP.
  
positive.code: 		      (list verb rest-of-predicate adverbs nil))))))
  	  (t
  	   (let ((fail-verb (car token-list)))
  	     ;; NOTE: Should this really return this value? Maybe it should raise a condition?
  	     (if fail-verb
  		 (format nil "Unknown verb: '~a'" fail-verb)
  		 (format nil "Invalid input")))))))
  
  (defun parse-rest-of-predicate (token-list)
    "Generates the REST-OF-PREDICATE list."
  
negative.code: 	(let ((preposition (car token-list))
  	      (token-list (cdr token-list)))
  	  (multiple-value-bind (noun-phrase-2 token-list) (parse-noun-phrase token-list)
  	    (values (list preposition noun-phrase-1 noun-phrase-2) token-list)))
  	(values (list nil noun-phrase-1 nil) token-list))))
  
  (defun parse-noun-phrase (token-list)
    "Parses a TOKEN-LIST into an LIST representing a NOUN PHRASE.
  