anchor.diff:  (defclass bot ()
     ((id
       :documentation "Update id"
  -    :initform 0)
  +    :initform 0
  +    :accessor id)
      (token
       :initarg :token
       :documentation "Bot token given by BotFather"
  -    :initform Nil)
  +    :initform nil)
      (endpoint
       :initarg :endpoint
  +    :accessor endpoint
       :documentation "HTTPS endpoint"
  -    :initform Nil)))
  +    :initform nil)))
   
   (defmethod initialize-instance :after ((b bot) &key)
  -  (setf (slot-value b 'endpoint)
  -        (concatenate 'string +telegram-api-uri+ (slot-value b 'token) "/")))
  +  (setf (endpoint b)
  +        (concatenate 'string +telegram-api-uri+ (endpoint b) "/")))
   
   (defun make-bot (token)
     "Create a new bot instance. Takes a token string."
  
positive.code: (defun make-request (b name options)
    "Perform HTTP request to 'name API method with 'options JSON-encoded object."
    (drakma:http-request
     (concatenate 'string (slot-value b 'endpoint) name)
     :method :post
     :want-stream t
     :content-type "application/json"
  
negative.code:       (let* ((last-update (elt results (- (length results) 1)))
               (id (slot-value last-update 'update--id)))
          (when (= current-id 0)
            (setf (id b) id))
          (incf (id b))))
      results))
  
  (defun set-webhook (b &key url certificate)
  