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:   (member string *pronouns* :test #'string-equal))
  
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;;~~~~~~~~~~~~~~~~~~~~~~ Binder ~~~~~~~~~~~~~~~~;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  ;; AST goes in, function goes out.
  ;; Goal AST - (#'verb player noun-phrase emote) ;;this will be expanded further.
  ;; -----------------------------------------------
  ;; Expanded AST - (#' player (noun-phrases) (adverbs) emote) 
  ;; where noun-phrases is (noun-group preposition noun-group)
  ;; where noun-group is (noun (identifiers))
  ;; -----------------------------------------------
  ;; !!! TODO - make sure any changes to the parser get mirrored here.
  
  
negative.code:   (assoc string *verbs* :test #'string-equal))
  
  (defun chat-string-p (string)
    "Is STRING a CHAT-STRING?"
    (if (not (null string))
        (char-equal #\' (char string 0))))
   
  