anchor.diff:  		(finish-output)
   		(init-controllers)
   
  -		(sdl2:with-window (win :w width :h height ;;; :title title
  +		(sdl2:with-window (win :w width :h height :title title
   				       :flags `(:shown :opengl :resizable
   						       ,@(remove nil `(:shown :opengl
   									      ,(when fullscreen :fullscreen-desktop)
  
positive.code:  Use ! (wait and return a value from main thread) or 
   Use !! (return immediately with a nil."
    (if asynchronous 
        (bordeaux-threads:make-thread (lambda ()
  				  (_init asynchronous
  					 width 
  					 height 
  					 title 
  					 fullscreen
  					 no-frame
  					 alpha-size
  					 depth-size 
  					 stencil-size 
  					 red-size 
  					 green-size 
  					 blue-size 
  					 buffer-size
  					 double-buffer
  					 hidden 
  					 resizable))
  				:name "Main Clank Thread"
  				:initial-bindings
  				(cons (cons '*standard-output* *standard-output* )
  				      (cons (cons '*standard-input* *standard-input*)
  					    bordeaux-threads:*default-special-bindings*)))
        (_init asynchronous
  	     width 
  	     height 
  	     title 
  	     fullscreen
  	     no-frame
  	     alpha-size
  	     depth-size 
  	     stencil-size 
  	     red-size 
  	     green-size 
  	     blue-size 
  	     buffer-size
  	     double-buffer
  	     hidden 
  	     resizable)))
  
  
  (defun _init (&optional
  		(asynchronous t) 
  		(width 800)
  		(height 600)
  
negative.code: 	   t)))
  
  
  (defun init (&key
  	       (asynchronous t) 
  	       (width 800)
  	       (height 600)
  