anchor.diff:  		     (setf *shininess-factor* 0.0001))
   
   		   ;;rendering code:
  -		   (display)
  +;		   (display)
  +		   (setf foo win)
   
   		   ;;live editing enabled:
   		   (arc:update-swank)
   		   (sdl2:gl-swap-window win))))))))
   
  +;; TODO: to solve window-resize event " sdl2kit allows you to do (defmethod some-event ()
  +;;       some-code) check out input.lisp of tradewarz to see my usage"
  
positive.code:   (arc:with-main
      (sdl2:with-init (:everything)
        (progn (setf *standard-output* out) (setf *debug-io* dbg) (setf *error-output* err))
        (sdl2:with-window (win :w 500 :h 500 :flags '(:shown :opengl))
  	(sdl2:with-gl-context (gl-context win)
  	  ;; INIT code:
  	  (init)
  
negative.code:   (gl:bind-buffer :uniform-buffer *projection-uniform-buffer*)
    (%gl:buffer-data :uniform-buffer #|sizeof(mat4):|# 64 (cffi:null-pointer) :dynamic-draw)
  
    ;;"bind the static buffer"
    (%gl:bind-buffer-range :uniform-buffer +projection-block-index+
  			 *projection-uniform-buffer* 0 #|sizeof(mat4):|# 64)
  
  