anchor.diff:  (add-to-list+ add-test add-test-cnt to-add)
   (write_line "asd")
   (printf "test: %i\n" (cast add-test-cnt i64))
  -(write_line "the following works if libglfw is installed")
  +
   
   (defcmacro comment (_expr)
     (expr (write_line "lol..")))
   
  -(load "overload.lisp")
  -
  -(exit 0)
  -
  +;(load "overload.lisp")
  +
  +(write_line "the following works if libglfw is installed")
   (load "glfw.lisp")
   (load "gl.lisp")
   (glfw:init)
  
positive.code:   gl_FragColor = vec4(1.0,1.0,1.0,1.0);
  }
  ")
  (defvar frag-src-len (strlen frag-src))
  
  (defvar vert-src "
  #version 130
  
negative.code: 
  ;;; -- Load Vertex Buffer Object -- ;;;
  (defvar vbo (cast 0 u32))
  (defvar vbo-data (cast (alloc (u64* 8 4)) (ptr f32))) ; 4 floats
  (setf (deref (ptr+ vbo-data 2)) (cast 0.25 f32))
  (setf (deref (ptr+ vbo-data 4)) (cast 0.25 f32))
  (setf (deref (ptr+ vbo-data 5)) (cast 0.25 f32))
  