anchor.diff:    gl_Position = vec4(vertex_position + offset,0.0,1.0);
   }
   ")
  -(defvar vert-src-len (strlen vert-src))
  +(defvar frag-src-len (cast (strlen frag-src) u32))
  +(defvar vert-src-len (cast (strlen vert-src) u32))
   (gl:shader-source frag 1 (addrof frag-src) (addrof frag-src-len))
   (gl:compile-shader frag)
   (defvar glstatus (cast 0 u32))
  
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: (add-to-list+ add-test add-test-cnt to-add)
  (write_line "asd")
  (printf "test: %i\n" (cast add-test-cnt i64))
  
  
  (defcmacro comment (_expr)
    (expr (write_line "lol..")))
  
  ;(load "overload.lisp")
  
  (write_line "the following works if libglfw is installed")
  (load "glfw.lisp")
  (load "gl.lisp")
  (glfw:init)
  