anchor.diff:    
     )
   
  +(defun bind-noun (scope noun)
  +  "Binds a noun, within SCOPE."
  +  )
  +
  +;;;
  +;;; Util
  +;;;
  +
  +(defun possessive-p (word)
  +  "Is WORD in possessive form?"
  +  (let ((second-to-last-letter (elt word(- (length word) 2)))
  +	(last-letter (elt word (- (length word) 1))))
  +    (or (and (equal second-to-last-letter #\')
  +	     (equal last-letter #\s))
  +	(and (equal second-to-last-letter #\s)
  +	     (equal last-letter #\')))))
  +
  +(defun extract-name-from-possessive (word)
  +  "Nabs the actual word out of a possessive."
  +  (car (cl-ppcre:split "'|'s" word)))
positive.code:   (append (contents (location mobile))
  	  (inventory mobile)))
  
  (defun bind-rest-of-sentence (player rest-of-sentence &key (scope :player))
    "Binds the rest-of-sentence part of the AST, returns a list of actual objects that
  player commands can then interpret, and execute based upon."
    ;; Example rest-of-sentence
  
negative.code: 
  ;; NOTE: Make this a method that specializes on different objects. The binder then uses scope
  ;;       based on that object to figure out exactly how to bind a descriptor-list. OOP. mmm.
  (defun bind-descriptor-list (player descriptor-list &key scope)
    "Binds a descriptor-list, which includes the name of an object, adjectives, pronouns,
  and possessives. Returns a single object (the object being referred to)."
    ;; Example descriptor-list using possessives 
  