anchor.diff:             (test-render-rects renderer)
              (test-render-fill-rect renderer)
              (test-render-fill-rects renderer)
  -           (sdl2:render-present renderer))
  +           (sdl2:render-present renderer)
  +	   (sdl2:delay 33))
             (:quit () t))))))
  
positive.code:   "Test the SDL_render.h API"
    (sdl2:with-init (:everything)
      (sdl2:with-window (win :title "SDL2 Renderer API Demo" :flags '(:shown))
        (sdl2:with-renderer (renderer win :flags '(:renderer-accelerated))
          (sdl2:with-event-loop (:method :poll)
            (:keyup
             (:keysym keysym)
  
negative.code: (in-package :sdl2-examples)
  
  (require :sdl2)
  
  (defun test-render-clear (renderer)
    (sdl2:set-render-draw-color renderer 0 0 0 255)
  