anchor.diff:                (haptic ()))
   
             ;; basic window/gl setup
  +          (format t "Setting up window/gl.~%")
  +          (finish-output)
             (sdl2:gl-make-current win gl-context)
             (gl:viewport 0 0 800 600)
             (gl:matrix-mode :projection)
  
positive.code: 
              (:quit () t))
  
            ;; close any game controllers that were opened
            ;; as well as any haptics
            (loop for (i . controller) in controllers
  
negative.code:                         (sdl2:rumble-init h))))))
  
            ;; main loop
            (format t "Beginning main loop.~%")
            (finish-output)
            (sdl2:with-event-loop (:method :poll)
              (:keydown
               (:keysym keysym)
  