anchor.diff:    (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))))
    
  
positive.code: ;
  (defun execute-command (player string)
    "Takes a STRING and EXECUTES the appropriate command within PLAYER's context."
    (let ((sexp (string->sexp player string)))
      (if (functionp (car sexp))
  	(apply (car sexp) (cdr sexp)))))
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!! ~~~~~~~~~~~~~~~~;;
  