anchor.diff:  	       (title "Clinch Program")
   	       (fullscreen nil)
   	       (no-frame nil)
  -	       (alpha-size 8)
  +	       context-profile-mask
  +	       alpha-size
   	       depth-size
   	       stencil-size
  -	       (red-size 8)
  -	       (green-size 8)
  -	       (blue-size 8)
  -	       (buffer-size 0)
  +	       red-size
  +	       green-size
  +	       blue-size
  +	       buffer-size
   	       (double-buffer t)
   	       (hidden nil)
   	       (resizable t))
  
positive.code: 			  *generic-solid-phong-shader* nil
  			  *generic-single-diffuse-light-animation-shader* nil
  			  *generic-single-diffuse-light-shader* nil
  			  *get-generic-single-diffuse-light-per-vertex-color* nil
  			  *default-texture* nil))))))))))
  
  (defun uninit ()
  
negative.code: 									      ,(when no-frame :borderless)
  									      ,(when hidden :hidden)))))
  
  		  (when context-profile-mask (sdl2:gl-set-attr :context-profile-mask context-profile-mask))
  		  (when alpha-size (sdl2:gl-set-attr :alpha-size alpha-size))
  		  (when depth-size (sdl2:gl-set-attr :depth-size depth-size))
  		  (when stencil-size (sdl2:gl-set-attr :stencil-size stencil-size))
  		  (when red-size (sdl2:gl-set-attr :red-size red-size))
  		  (when green-size (sdl2:gl-set-attr :green-size green-size))
  		  (when blue-size (sdl2:gl-set-attr :blue-size blue-size))
  		  (when buffer-size (sdl2:gl-set-attr :buffer-size buffer-size))
  		  (sdl2:gl-set-attr :doublebuffer (if double-buffer 1 0))
  
  		  (setf *uncollected*
  