anchor.diff:  
   (defun split-command-string (command-string)
     "Splits each COMMAND in COMMAND-STRING and puts it in a list of words-strings."
  -  (cl-ppcre:all-matches-as-strings "[a-zA-Z0-9@/#$^&*]{1,}" command-string))
  +  (cl-ppcre:all-matches-as-strings "[a-zA-Z0-9@/#$^&*']{1,}" command-string))
   
   (defun split-off-chat-string (string)
     "Takes a raw STRING and returns a LIST with COMMAND-STRING and CHAT-STRING"
  -  (cl-ppcre:split "^+'| +'|\"" string :limit 2))
  +  (cl-ppcre:split " +'|\"" string :limit 2))
   
   (defun format-chat-string (chat-string)
     "Adds a ['] to the beginning of the CHAT-STRING. Used to tell it apart from other parts of the sentence."
  
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:   (gethash string *adverbs*))
       
  ;; Util
  
  (define-condition unknown-verb-error (error)
    ((text :initarg :text :reader text)
     (verb :initarg :verb :reader verb))
    (:documentation "Signaled whenever an unknown verb is encountered.")
    (:report (lambda (condition stream)
  	     (format stream "Tried to parse an unknown verb: ~A" (verb condition)))))
  
  (define-condition parser-error (error)
    ((text :initarg :text :reader text))
    (:documentation "Condition signaled whenever some generic parsing error happens.")
    (:report "Parser probably got some garbage input, or an empty string."))
  
  (defun test-the-parser ()
    "Runs a loop that asks for player input and returns whatever gets parsed. Quits on 'quit'."
    (let ((current-input (prompt-user)))
  