anchor.diff:     (height :initform 200)))
   
   (defun framelimit (window &optional (fps 60))
  +  "Limits the framerate by using sdl2:delay. Technically, it is not
  +the correct way to do things, but it will have to do for now."
  +  ;; Adapted from k-stz's code found in sdl2kit cube example. Used
  +  ;; with permission.
     (with-slots (last-frame-time) window
       (let ((elapsed-time (- (get-internal-real-time) last-frame-time))
   	  (time-per-frame (/ internal-time-units-per-second fps)))
  
positive.code: 
  (defmethod kit.sdl2:render ((s sketch))
    (with-slots (width height framerate restart-sketch) s
      (gl:read-buffer :front)
      (gl:draw-buffer :back)
      (gl:copy-pixels 0 0 width height :color)
      (when restart-sketch
        (handler-case
  	  (setup s)
  
negative.code: 		    (sdl2:set-window-size sdl-win ,sketch-width ,sketch-height))))))
  
  (defmacro define-sketch-setup (sketch-name &body body)
    "Defines a sketch SETUP method. Body is wrapped with WITH-SLOTS for all slots defined. "
    `(defmethod setup ((window ,sketch-name))
       (with-slots ,(gethash sketch-name *sketch-slot-hash-table*) window
         ,@body)))
  