anchor.diff:        (:private-user . ,(if (eq private-user :null) nil private-user)))))
   
   (defun load-channel-tree (&key (connection *connection*))
  +  (check-type connection connection)
     (let ((res (authenticated-request connection "/channels2")))
       (loop
         for domain in (st-json:getjso "domains" res)
  
positive.code:                                                                       :encoding :utf-8))))
      (unless (equal (st-json:getjso "result" res) "ok")
        (error "Error while posting message"))
      (st-json:getjso "id" res)))
  
negative.code:                     (st-json:getjso "type" domain)))))
  
  (defun load-channel (channel-id &key (connection *connection*))
    (check-type channel-id string)
    (check-type connection connection)
    (let* ((res (authenticated-request connection (format nil "/channel/~a" channel-id)))
           (private-user (st-json:getjso "private_user" res)))
      `((:id . ,(st-json:getjso "id" res))
  