anchor.diff:  ;
   (defun execute-command (player string)
     "Takes a STRING and EXECUTES the appropriate command within PLAYER's context."
  -  (let ((sexp (string->sexp player string)))
  +  (let ((sexp (string->sexp string)))
       (if (functionp (car sexp))
   	(apply (car sexp) (cdr sexp)))))
positive.code: ;; noun ::= any unknown token, can be used later.
  ;; ----------------------------------------------
  ;; The goal AST:
  ;; ("verb" (adverbs) (rest-of-predicate) "chat-string"))
  ;; where (rest-of-predicate) is (noun-phrase-1 preposition noun-phrase-2)
  ;; where (noun-phrase) is (noun (modifiers))
  ;;
  
negative.code:   (cdr (assoc string *verbs* :test #'string-equal)))
  
  ;; TODO
  (defun parse-tree->sexp (tree) ;; Do I even need the player for this part? No, but I have to change a lot.
    "Takes a parsed TREE of tokens and returns a runnable S-EXP"
    (let ((verb (verb->function (car tree)))
  	(emote (car tree))
  	(noun-phrase (cadr tree)))
      (list verb noun-phrase emote)))
  
  (defun string->sexp (string)
    "Takes a STRING and turns it into a valid S-EXP to run."
    (parse-tree->sexp (parse-string string)))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;~~~~~~~~~~~~~~~~~~ EXECUTOR!! ~~~~~~~~~~~~~~~~;;
  