anchor.diff:  ;;;
   ;;; - Takes a string-list, and returns an Astract Syntax Tree.
   
  -;; TODO: Adjust grammar so the following is acceptable:
  -;; "smile AT foo WITH bar"
  -;;
   ;; 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.
   ;;
  
positive.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>))
  	(adverb nil))
      (with-accessors ((dir-obj direct-objects)
  		     (ind-obj indirect-objects)
  		     (prep preposition)) noun-clause
        (multiple-value-setq (dir-obj token-list) (parse-noun-group token-list))
        (when (adverb-p (car token-list))
  	(setf adverb (pop token-list)))
        (when (preposition-p (car token-list))
  	(setf prep (pop token-list)))
        (multiple-value-setq (ind-obj token-list) (parse-noun-group token-list))
        (values noun-clause adverb token-list))))
  
  (defun parse-noun-group (token-list)
    "Parses a TOKEN-LIST into a LIST representing a NOUN GROUP (multiple noun 
  
negative.code:     :initarg :indirect-objects
      :initform nil
      :type list)
     (prepositions 
      :accessor prepositions
      :initarg :prepositions
      :initform nil
      :type list)))
    
  (defclass <noun-phrase> ()
    ((noun  
  