anchor.diff:                   :title ($ ".titleBar h1" (text) (node))))
   
   (defmethod get-posts ((conversation conversation) &key)
  -  ($ (initialize (token-request (concatenate 'string "/conversations/" (id conversation)) NIL) :type :HTML))
  -  ;TODO: (crawl-posts)
  -  )
  +  "Retrieve all posts in the given conversation."
  +  (let ((page (format NIL "/conversations/~a/" (id conversation))))
  +    ($ (initialize (token-request page NIL) :type :HTML))
  +    (when (search "Error" ($ "h1" (text) (node)))
  +      (error 'forum-error :code 404 :page page :info ($ "label.OverlayCloser" (text) (node))))
  +    (crawl-posts #'(lambda (node)
  +                     (make-meta-post node conversation 'conversation-post)))))
   
   (defmethod post ((conversation conversation) message &key)
  +  "Reply to a given conversation."
     (token-request (concatenate 'string "/conversations/" (id conversation) "/insert-reply")
                    `(("message_html" . ,message))))
   
   (defmethod invite ((conversation conversation) participants)
  +  "Invite a new user to the given conversation."
     (assert (string-equal (id *user*) (op conversation)) ()
             'forum-error :code 4 :text (format NIL "Cannot invite users as you are not the OP (~a != ~a)." (id *user*) (op conversation)))
     (token-request (concatenate 'string "/conversations/" (id conversation) "/invite-insert")
  
positive.code:       participants))
  
  (defmethod conversations ((user user))
    (flet ((make-conversation (node)
             (format T "~a" ($ node (serialize)))
             (make-instance 'conversation
                            :id (let ((id ($ node "h3.title a" (first) (attr :href) (node))))
                                  (subseq id (1+ (search "/" id)) (1- (search "/" id :from-end T))))
                            :op ($ node (attr :data-author) (node))
                            :time (let ((datetime ($ node ".posterDate .DateTime" (attr :data-time) (node))))
                                    (if (> (length datetime) 0)
  
negative.code: (in-package :org.tymoonnext.ed-bot.xencl)
  
  (defclass conversation (meta-thread)
    ()
    (:documentation "Object for interacting with user conversations."))
  
  (defclass conversation-post (meta-post)
    ()
    (:documentation "A post in a private conversation thread."))
  
  (defmethod print-object ((conversation conversation) out)
    (print-unreadable-object (conversation out :type T)
  