anchor.diff:        (let* ((last-update (elt results (- (length results) 1)))
                (id (slot-value last-update 'update--id)))
           (when (= current-id 0)
  -          (setf (slot-value b 'id) id))
  -        (incf (slot-value b 'id))))
  +          (setf (id b) id))
  +        (incf (id b))))
       results))
   
   (defun set-webhook (b &key url certificate)
  
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:         (return-from access nil))
        (setf current (slot-value current r)))
      current))
  
  (defun get-slot (update slot)
    "Access slot. Since fluid classes signal error on unbound slot access, this instead returns nil."
    (if (slot-boundp update slot)
  