anchor.diff:          (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)
  
positive.code:       (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))))
      results))
  
  (defun set-webhook (b &key url certificate)
  
negative.code: ; AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
  ; LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
  ; OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
  ; SOFTWARE.
  
  (in-package :tl-bot)
  
  