anchor.diff:                      (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))
  
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: (defun send-message (channel text &key (connection *connection*))
    (check-type channel string)
    (check-type text string)
    (check-type connection connection)
    (let* ((content (st-json:jso "text" text))
           (res (authenticated-request connection (format nil "/channel/~a/create" channel)
                                       :method :post
  