permissions changed, windows driver error detection? framebuffers?

gregcman · Dec 2, 2018 · 2df5263 · 2df5263
1 parent 2fe8b4e
commit 2df5263
Show file tree

Hide file tree

Showing 130 changed files with 51 additions and 40 deletions.
diff --git a/.gitignore b/.gitignore
diff --git a/INSTALL.md b/INSTALL.md
diff --git a/LICENSE b/LICENSE
diff --git a/README.md b/README.md
diff --git a/application/README b/application/README
diff --git a/application/app-subsystem/application/application.asd b/application/app-subsystem/application/application.asd
diff --git a/application/app-subsystem/application/application.lisp b/application/app-subsystem/application/application.lisp
diff --git a/application/app-subsystem/clock/clock.asd b/application/app-subsystem/clock/clock.asd
diff --git a/application/app-subsystem/clock/clock.lisp b/application/app-subsystem/clock/clock.lisp
diff --git a/application/app-subsystem/control/control.asd b/application/app-subsystem/control/control.asd
diff --git a/application/app-subsystem/control/control.lisp b/application/app-subsystem/control/control.lisp
diff --git a/application/app-subsystem/deflazy/deflazy.asd b/application/app-subsystem/deflazy/deflazy.asd
diff --git a/application/app-subsystem/deflazy/dependency-graph.lisp b/application/app-subsystem/deflazy/dependency-graph.lisp
diff --git a/application/app-subsystem/deflazy/lazy-loading.lisp b/application/app-subsystem/deflazy/lazy-loading.lisp
diff --git a/application/app-subsystem/fps-independent-timestep/fps-independent-timestep.asd b/application/app-subsystem/fps-independent-timestep/fps-independent-timestep.asd
diff --git a/application/app-subsystem/fps-independent-timestep/fps-independent-timestep.lisp b/application/app-subsystem/fps-independent-timestep/fps-independent-timestep.lisp
diff --git a/application/app-subsystem/opengl-immediate/opengl-immediate.asd b/application/app-subsystem/opengl-immediate/opengl-immediate.asd
diff --git a/application/app-subsystem/opengl-immediate/opengl-immediate.lisp b/application/app-subsystem/opengl-immediate/opengl-immediate.lisp
diff --git a/application/app-subsystem/scratch-buffer/scratch-buffer.asd b/application/app-subsystem/scratch-buffer/scratch-buffer.asd
diff --git a/application/app-subsystem/scratch-buffer/scratch-buffer.lisp b/application/app-subsystem/scratch-buffer/scratch-buffer.lisp
diff --git a/application/app-subsystem/window/window.asd b/application/app-subsystem/window/window.asd
diff --git a/application/application-example-hello-world/application-example-hello-world.asd b/application/application-example-hello-world/application-example-hello-world.asd
diff --git a/application/application-example-hello-world/file-name-goes-here.lisp b/application/application-example-hello-world/file-name-goes-here.lisp
diff --git a/application/basic0/basic0.lisp b/application/basic0/basic0.lisp
@@ -330,7 +330,7 @@
       (declare (ignorable this))
       (application::quit))
     "quit"
-    (integer-point 0 0)))
+    (integer-point 0 1)))
   #+nil
   (add-sprite
    (plain-button
@@ -344,7 +344,7 @@
     (add-sprite
      (make-instance
       'sprite
-      :position (integer-point 10 0)
+      :position (integer-point 10 1)
       :bounding-box rect
       :tickfun
       (lambda ()

diff --git a/application/basic0/old.lisp b/application/basic0/old.lisp
diff --git a/application/basic0/save/test/(-16 -16 -16) b/application/basic0/save/test/(-16 -16 -16)
diff --git a/application/basic0/save/test/(-16 -16 0) b/application/basic0/save/test/(-16 -16 0)
@@ -8,12 +8,12 @@
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 2 61440 61440 61440
-  61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 2 2 2 61440 61440
+  61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 2 2 2 57344 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 1 1 3 3 3 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 1 1 1 1 3 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 57344 1 1 1 57344 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 57344 53248 53248
-  53248 57344 61440 61440 61440 61440 61440 61440 2 61440 61440 61440 61440
+  53248 57344 61440 61440 61440 61440 61440 57344 2 61440 61440 61440 61440
   57344 57344 57344 57344 57344 61440 61440 61440 61440 61440 61440 2 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 57344 1 1 57344 61440

diff --git a/application/basic0/save/test/(-16 0 -16) b/application/basic0/save/test/(-16 0 -16)
diff --git a/application/basic0/save/test/(-16 0 0) b/application/basic0/save/test/(-16 0 0)
@@ -21,7 +21,7 @@
   61440 1 1 1 53248 57344 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 1 1 1 57344 57344 57344 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 57344 53248 57344 61440 61440 57344 61440 61440 61440 61440
-  61440 61440 61440 61440 61440 61440 57344 53248 57344 61440 61440 57344 61440
+  61440 61440 61440 61440 61440 61440 57344 53248 57344 61440 57344 57344 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 1 1 1 57344 57344 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 18 1 1 1 57344
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 57344 18 18 18 18
@@ -38,7 +38,7 @@
   61440 61440 61440 61440 61440 61440 61440 61440 3 1 1 57344 57344 57344 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 57344 53248 57344 61440
   61440 57344 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 57344
-  53248 57344 61440 61440 57344 61440 61440 61440 61440 61440 61440 61440 61440
+  53248 57344 61440 57344 57344 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 3 3 1 57344 57344 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 18 3 3 3 57344 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 57344 18 18 18 18 61440 61440 61440 61440 61440 61440 61440
@@ -54,7 +54,7 @@
   61440 61440 61440 2 3 3 3 57344 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 3 3 3 57344 57344 57344 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 3 3 3 61440 61440 57344 61440 61440 61440 61440
-  61440 61440 61440 61440 61440 61440 3 3 3 61440 61440 57344 61440 61440 61440
+  61440 61440 61440 61440 61440 61440 3 3 3 61440 57344 57344 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 2 3 3 3 57344 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 2 3 3 3 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 57344 57344 53248 53248 57344
@@ -71,7 +71,7 @@
   61440 61440 61440 61440 61440 61440 61440 2 3 3 3 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 2 3 3 3 57344 57344 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 2 3 3 61440 61440 57344 61440
-  61440 61440 61440 61440 61440 61440 61440 61440 61440 2 3 3 61440 61440 57344
+  61440 61440 61440 61440 61440 61440 61440 61440 61440 2 3 3 61440 57344 57344
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 2 3 3 3
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   2 2 2 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 18 18 18 18
@@ -88,7 +88,7 @@
   61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 2 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 2 2 2 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 61460 61460 2 61440
-  61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 61460 61460 2
+  61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 61460 57364 2
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 2 2 2
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
@@ -107,7 +107,7 @@
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
-  61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
+  61440 61440 61440 3 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440 61440

diff --git a/application/basic0/save/test/(-16 16 -16) b/application/basic0/save/test/(-16 16 -16)
diff --git a/application/basic0/save/test/(-16 16 0) b/application/basic0/save/test/(-16 16 0)
@@ -18,7 +18,7 @@
   61440 61440 61440 61440 57344 53248 49152 45056 45056 1 1 1 1 1 1 3 61440
   61440 61440 61440 57344 53248 53248 49152 45056 45056 1 1 1 1 3 61440 61440
   61440 2 57344 57344 57344 57344 53248 49152 49152 53248 57344 61440 61440
-  61440 61440 57344 57344 3 2 61440 61440 61440 57344 53248 49152 53248 57344
+  57344 61440 57344 57344 3 2 61440 61440 61440 57344 53248 49152 53248 57344
   61440 61440 61440 57344 53248 53248 3 2 61440 61440 61440 61440 57344 53248
   49152 53248 57344 61440 61440 57344 53248 53248 57344 61440 61440 61440 61440
   61440 57344 53248 53248 53248 53248 2 3 2 2 57344 61440 61440 61440 61440
@@ -33,7 +33,7 @@
   61440 61440 61440 57344 53248 2 3 1 1 1 1 1 1 3 61440 61440 61440 61440 57344
   53248 49152 45056 49152 1 3 1 1 1 3 3 61440 61440 61440 61440 57344 53248
   53248 49152 45056 45056 3 3 3 3 3 61440 61440 61440 57344 57344 57344 57344
-  57344 53248 49152 49152 53248 57344 61440 61440 61440 61440 57344 57344 2
+  57344 53248 49152 49152 53248 57344 61440 61440 57344 61440 57344 57344 2
   57344 61440 61440 61440 57344 53248 49152 53248 57344 61440 61440 61440 57344
   53248 53248 2 61440 61440 61440 61440 61440 57344 53248 49152 53248 57344
   61440 61440 57344 53248 53248 57344 61440 61440 61440 61440 61440 57344 53248
@@ -50,11 +50,11 @@
   61440 61440 61440 61440 57344 53248 49152 49152 53248 2 3 3 3 3 3 2 61440
   61440 61440 61440 57344 53248 53248 49152 49152 45056 2 3 3 3 2 61440 61440
   61440 57344 57344 57344 57344 57344 53248 49152 49152 53248 57344 61440 61440
-  61440 61440 57344 57344 57344 57344 61440 61440 61440 57344 53248 49152 53248
+  3 61440 57344 57344 57344 57344 61440 61440 61440 57344 53248 49152 53248
   57344 61440 61440 61440 57344 53248 53248 57344 61440 61440 61440 61440 61440
   57344 53248 49152 53248 57344 61440 61440 57344 53248 53248 57344 61440 61440
   61440 61440 61440 57344 53248 53248 53248 57344 61440 61440 61440 57344 57344
-  61440 61440 61440 61440 61440 61440 61440 57344 57344 57344 61440 2 2 2 5 5
+  61440 61440 61440 61440 61440 61440 61440 57344 57344 57344 61440 2 2 2 5 3
   61440 61440 61440 2 3 2 61440 61440 61440 61440 61440 2 3 2 61440 61440 61440
   61440 61440 3 3 1 61440 61440 61440 61440 61440 2 3 2 61440 61440 61440 61440
   61440 3 1 1 61440 61440 61440 61440 61440 2 2 61440 61440 61440 61440 61440

diff --git a/application/basic0/save/test/(0 -16 -16) b/application/basic0/save/test/(0 -16 -16)
diff --git a/application/basic0/save/test/(0 -16 0) b/application/basic0/save/test/(0 -16 0)
diff --git a/application/basic0/save/test/(0 0 -16) b/application/basic0/save/test/(0 0 -16)
@@ -174,7 +174,7 @@
   61440 61440 61440 61440 3 3 3 3 53248 57344 57344 61440 61440 61440 61440
   57344 61440 61440 61440 61440 3 3 3 3 57344 61440 61440 61440 61440 61440
   61440 61440 61440 61440 61440 61440 3 3 3 3 57344 61440 61440 61440 61440
-  61440 61440 61440 61440 61440 61440 3 3 3 3 3 57344 61440 61440 61440 61440
+  61440 61440 61440 61440 61440 24 3 3 3 3 3 57344 61440 61440 61440 61440
   61440 61440 3 3 3 3 3 3 3 3 3 57344 61440 61440 61440 61440 61440 61440 3 3 3
   3 3 3 3 3 3 57344 61440 61440 61440 61440 61440 61440 3 3 3 3 3 3 3 3 3 57344
   61440 61440 61440 61440 61440 61440 3 3 1 1 1 3 3 3 3 57344 61440 61440 61440

diff --git a/application/basic0/save/test/(0 0 0) b/application/basic0/save/test/(0 0 0)
diff --git a/application/basic0/save/test/(0 16 -16) b/application/basic0/save/test/(0 16 -16)
diff --git a/application/basic0/save/test/(0 16 0) b/application/basic0/save/test/(0 16 0)
diff --git a/application/basic0/sucle.asd b/application/basic0/sucle.asd
diff --git a/application/subsystems/sandbox/block-data.lisp b/application/subsystems/sandbox/block-data.lisp
diff --git a/application/subsystems/sandbox/block-light.lisp b/application/subsystems/sandbox/block-light.lisp
diff --git a/application/subsystems/sandbox/block-meshing.lisp b/application/subsystems/sandbox/block-meshing.lisp
diff --git a/application/subsystems/sandbox/change-world.lisp b/application/subsystems/sandbox/change-world.lisp
diff --git a/application/subsystems/sandbox/package.lisp b/application/subsystems/sandbox/package.lisp
diff --git a/application/subsystems/sandbox/persist-world.lisp b/application/subsystems/sandbox/persist-world.lisp
diff --git a/application/subsystems/sandbox/queue.lisp b/application/subsystems/sandbox/queue.lisp
diff --git a/application/subsystems/sandbox/sandbox.asd b/application/subsystems/sandbox/sandbox.asd
diff --git a/application/subsystems/sandbox/vox.lisp b/application/subsystems/sandbox/vox.lisp
diff --git a/application/subsystems/sandbox/world.lisp b/application/subsystems/sandbox/world.lisp
diff --git a/application/subsystems/text-subsystem/font.png b/application/subsystems/text-subsystem/font.png
diff --git a/application/subsystems/text-subsystem/test.lisp b/application/subsystems/text-subsystem/test.lisp
diff --git a/application/subsystems/text-subsystem/text-subsystem.asd b/application/subsystems/text-subsystem/text-subsystem.asd
diff --git a/application/subsystems/text-subsystem/text-subsystem.lisp b/application/subsystems/text-subsystem/text-subsystem.lisp
@@ -255,8 +255,7 @@
 
 (deflazy flat-shader-source ()
   (glslgen:ashader
-   :version 120
-   :vs
+   :version 120  :vs
    (glslgen2::make-shader-stage
     :out '((value-out "vec4"))
     :in '((position "vec4")
@@ -285,8 +284,7 @@
 ;;;;;;;;;;;;;;;;;;;;
 (deflazy indirection-shader-source ()
   (glslgen:ashader
-   :version 120
-   :vs
+   :version 120   :vs
    (glslgen2::make-shader-stage
     :out '((texcoord-out "vec2"))
     :in '((position "vec4")
@@ -364,4 +362,5 @@
       (application::refresh 'indirection t))
     (gl:bind-framebuffer :framebuffer (glhelp::handle (getfnc 'indirection)))
     (gl:clear :color-buffer-bit)
+    (gl:clear :depth-buffer-bit)
     (gl:call-list (glhelp::handle (getfnc 'fullscreen-quad)))))
diff --git a/application/testbed/minecraft/blocks.lisp b/application/testbed/minecraft/blocks.lisp
diff --git a/application/testbed/minecraft/colorize.lisp b/application/testbed/minecraft/colorize.lisp
diff --git a/application/testbed/minecraft/files.lisp b/application/testbed/minecraft/files.lisp
diff --git a/application/testbed/minecraft/mcr-test.lisp b/application/testbed/minecraft/mcr-test.lisp
diff --git a/application/testbed/minecraft/render/meshes.lisp b/application/testbed/minecraft/render/meshes.lisp
diff --git a/application/testbed/minecraft/render/render.lisp b/application/testbed/minecraft/render/render.lisp
diff --git a/application/testbed/minecraft/voxel/sandbox.lisp b/application/testbed/minecraft/voxel/sandbox.lisp
diff --git a/application/testbed/minecraft/voxel/test.lisp b/application/testbed/minecraft/voxel/test.lisp
diff --git a/application/testbed/minecraft/voxel/testbed.lisp b/application/testbed/minecraft/voxel/testbed.lisp
diff --git a/application/testbed/sandbox-subsystem.lisp b/application/testbed/sandbox-subsystem.lisp
diff --git a/application/testbed/terrain.png b/application/testbed/terrain.png
diff --git a/application/testbed/testbed.asd b/application/testbed/testbed.asd
diff --git a/application/testbed/testbed.lisp b/application/testbed/testbed.lisp
@@ -82,7 +82,7 @@
   (glhelp::create-gl-program solidshader-text))
 (application:deflazy solidshader-text ()
   (glslgen::ashader
-   :version 120
+   :version 330
    :vs
    (glslgen2::make-shader-stage
     :out '((color-out "vec3"))

diff --git a/application/testbed/tests.lisp b/application/testbed/tests.lisp
diff --git a/lib/bin/binaries.lisp b/lib/bin/binaries.lisp
diff --git a/lib/bin/win32/glfw3.dll b/lib/bin/win32/glfw3.dll
diff --git a/lib/bin/win32/libffi-6.dll b/lib/bin/win32/libffi-6.dll
diff --git a/lib/bin/win32/libncurses.dll b/lib/bin/win32/libncurses.dll
diff --git a/lib/bin/win64/glfw3.dll b/lib/bin/win64/glfw3.dll
diff --git a/lib/bin/win64/libffi-6.dll b/lib/bin/win64/libffi-6.dll
diff --git a/lib/bin/win64/libncurses.dll b/lib/bin/win64/libncurses.dll
diff --git a/lib/quicklisp/bundler-quicklisp.asd b/lib/quicklisp/bundler-quicklisp.asd
diff --git a/lib/quicklisp/bundler-quicklisp.lisp b/lib/quicklisp/bundler-quicklisp.lisp
diff --git a/src/README b/src/README
diff --git a/src/character-modifier-bits/README b/src/character-modifier-bits/README
diff --git a/src/character-modifier-bits/character-modifier-bits.asd b/src/character-modifier-bits/character-modifier-bits.asd
diff --git a/src/character-modifier-bits/character-modifier-bits.lisp b/src/character-modifier-bits/character-modifier-bits.lisp
diff --git a/src/data-structures/doubly-linked-list/doubly-linked-list.asd b/src/data-structures/doubly-linked-list/doubly-linked-list.asd
diff --git a/src/data-structures/doubly-linked-list/doubly-linked-list.lisp b/src/data-structures/doubly-linked-list/doubly-linked-list.lisp
diff --git a/src/data-structures/matrix/matrix.asd b/src/data-structures/matrix/matrix.asd
diff --git a/src/data-structures/matrix/matrix.lisp b/src/data-structures/matrix/matrix.lisp
diff --git a/src/data-structures/reverse-array-array/example/reverse-array-array-example.asd b/src/data-structures/reverse-array-array/example/reverse-array-array-example.asd
diff --git a/src/data-structures/reverse-array-array/example/reverse-array-array-example.lisp b/src/data-structures/reverse-array-array/example/reverse-array-array-example.lisp
diff --git a/src/data-structures/reverse-array-array/iterator.lisp b/src/data-structures/reverse-array-array/iterator.lisp
diff --git a/src/data-structures/reverse-array-array/reverse-array-array.asd b/src/data-structures/reverse-array-array/reverse-array-array.asd
diff --git a/src/data-structures/reverse-array-array/reverse-array-array.lisp b/src/data-structures/reverse-array-array/reverse-array-array.lisp
diff --git a/src/data-structures/reverse-array-iterator/reverse-array-iterator.asd b/src/data-structures/reverse-array-iterator/reverse-array-iterator.asd
diff --git a/src/data-structures/reverse-array-iterator/reverse-array-iterator.lisp b/src/data-structures/reverse-array-iterator/reverse-array-iterator.lisp
diff --git a/src/data-structures/reverse-array-iterator/user.lisp b/src/data-structures/reverse-array-iterator/user.lisp
diff --git a/src/data-structures/sprite-chain/sprite-chain.asd b/src/data-structures/sprite-chain/sprite-chain.asd
diff --git a/src/data-structures/sprite-chain/sprite-chain.lisp b/src/data-structures/sprite-chain/sprite-chain.lisp
diff --git a/src/euclidean-geometry/aabbcc/aabbcc.asd b/src/euclidean-geometry/aabbcc/aabbcc.asd
diff --git a/src/euclidean-geometry/aabbcc/aabbcc.lisp b/src/euclidean-geometry/aabbcc/aabbcc.lisp
diff --git a/src/euclidean-geometry/camera-matrix/camera-matrix.asd b/src/euclidean-geometry/camera-matrix/camera-matrix.asd
diff --git a/src/euclidean-geometry/camera-matrix/camera-matrix.lisp b/src/euclidean-geometry/camera-matrix/camera-matrix.lisp
diff --git a/src/euclidean-geometry/point/point.asd b/src/euclidean-geometry/point/point.asd
diff --git a/src/euclidean-geometry/point/point.lisp b/src/euclidean-geometry/point/point.lisp
diff --git a/src/euclidean-geometry/quads/axis-aligned-quads.lisp b/src/euclidean-geometry/quads/axis-aligned-quads.lisp
diff --git a/src/euclidean-geometry/quads/quads.asd b/src/euclidean-geometry/quads/quads.asd
diff --git a/src/euclidean-geometry/quads/rectangle.lisp b/src/euclidean-geometry/quads/rectangle.lisp
diff --git a/src/euclidean-geometry/quads/rectangular-tilemap.lisp b/src/euclidean-geometry/quads/rectangular-tilemap.lisp
diff --git a/src/euclidean-geometry/triangles/triangles.asd b/src/euclidean-geometry/triangles/triangles.asd
diff --git a/src/euclidean-geometry/triangles/triangles.lisp b/src/euclidean-geometry/triangles/triangles.lisp
diff --git a/src/image/image-utility/image-utility.asd b/src/image/image-utility/image-utility.asd
diff --git a/src/image/image-utility/image-utility.lisp b/src/image/image-utility/image-utility.lisp
diff --git a/src/nsb-cga/nsb-cga.asd b/src/nsb-cga/nsb-cga.asd
diff --git a/src/nsb-cga/nsb-cga.lisp b/src/nsb-cga/nsb-cga.lisp
diff --git a/src/nsb-cga/package.lisp b/src/nsb-cga/package.lisp
diff --git a/src/opengl/README b/src/opengl/README
diff --git a/src/opengl/glhelp.asd b/src/opengl/glhelp.asd
@@ -1,5 +1,6 @@
 (asdf:defsystem #:glhelp
-  :depends-on (#:cl-opengl)
+  :depends-on (#:cl-opengl
+	       #:split-sequence)
   :serial t
   :components
   ((:file "glhelp")

diff --git a/src/opengl/glhelp.lisp b/src/opengl/glhelp.lisp
@@ -65,10 +65,20 @@
   (gl:shader-source shader string)
   (gl:compile-shader shader)
   (let ((success (gl:get-shader-info-log shader)))
-    (unless (zerop (length success))
+    (unless (gl-success success)
       (print success)
       (error "~S" success))))
 
+(defun string-match? (a b)
+  (let ((log (remove "" (split-sequence:split-sequence #\Newline a)
+		     :test #'string=)))
+    (string= (car (last log))
+	     b)))
+
+(defun gl-success (success)
+  (or (zerop (length success))
+      (string-match? success "No errors.")))
+
 ;;;;attribs is an alist of pairs (a . b) with
 ;;;;(lambda (a b) (gl:bind-attrib-location ...[the program].. a b)
 (defun make-shader-program-from-strings (vs-string fs-string attribs)
@@ -89,7 +99,7 @@
 
     (gl:link-program program)
     (let ((success (gl:get-program-info-log program)))
-      (unless (zerop (length success))
+      (unless (gl-success success)
 	(print success)
 	(error "~S" success)))
     (gl:detach-shader program vert)
@@ -116,15 +126,15 @@
     (gl:active-texture (+ num +gltexture0+))))
 
 (defun bind-default-framebuffer ()
-  (gl:bind-framebuffer-ext :framebuffer-ext 0))
+  (gl:bind-framebuffer :framebuffer 0))
 
 
 (defun create-framebuffer (w h)
-  (let ((framebuffer (first (gl:gen-framebuffers-ext 1)))
-        (depthbuffer (first (gl:gen-renderbuffers-ext 1)))
+  (let ((framebuffer (first (gl:gen-framebuffers 1)))
+        (depthbuffer (first (gl:gen-renderbuffers 1)))
         (texture (first (gl:gen-textures 1))))
     ;; setup framebuffer
-    (gl:bind-framebuffer-ext :framebuffer-ext framebuffer)
+    (gl:bind-framebuffer :framebuffer framebuffer)
 
     (progn
       ;; setup texture and attach it to the framebuffer
@@ -133,23 +143,24 @@
       (gl:tex-parameter :texture-2d :texture-mag-filter :nearest)
       (gl:tex-image-2d :texture-2d 0 :rgba w h 0 :rgba :unsigned-byte (cffi:null-pointer))
       (gl:bind-texture :texture-2d 0)
-      (gl:framebuffer-texture-2d-ext :framebuffer-ext
-				     :color-attachment0-ext
-				     :texture-2d
-				     texture
-				     0))
+      (gl:framebuffer-texture-2d :framebuffer
+				 :color-attachment0
+				 :texture-2d
+				 texture
+				 0))
     (progn
       ;; setup depth-buffer and attach it to the framebuffer
-      (gl:bind-renderbuffer-ext :renderbuffer-ext depthbuffer)
-      (gl:renderbuffer-storage-ext :renderbuffer-ext :depth-component24 w h)
-      (gl:framebuffer-renderbuffer-ext :framebuffer-ext
-				       :depth-attachment-ext
-				       :renderbuffer-ext
-				       depthbuffer))
+      (gl:bind-renderbuffer :renderbuffer depthbuffer)
+      (gl:renderbuffer-storage :renderbuffer :depth-component24 w h)
+      (gl:framebuffer-renderbuffer
+       :framebuffer
+       :depth-attachment
+       :renderbuffer
+       depthbuffer))
 
     ;; validate framebuffer
-    (let ((framebuffer-status (gl:check-framebuffer-status-ext :framebuffer-ext)))
-      (unless (gl::enum= framebuffer-status :framebuffer-complete-ext)
+    (let ((framebuffer-status (gl:check-framebuffer-status :framebuffer)))
+      (unless (gl::enum= framebuffer-status :framebuffer-complete)
         (error "Framebuffer not complete: ~A." framebuffer-status)))
 
     #+nil

diff --git a/src/opengl/glslgen.lisp b/src/opengl/glslgen.lisp
diff --git a/src/opengl/glslgen2.lisp b/src/opengl/glslgen2.lisp
diff --git a/src/opengl/handles.lisp b/src/opengl/handles.lisp
diff --git a/src/opengl/other.lisp b/src/opengl/other.lisp
diff --git a/src/opengl/protocode/globjects.lisp b/src/opengl/protocode/globjects.lisp
diff --git a/src/opengl/protocode/webglsl/package.lisp b/src/opengl/protocode/webglsl/package.lisp
diff --git a/src/opengl/protocode/webglsl/types.lisp b/src/opengl/protocode/webglsl/types.lisp
diff --git a/src/opengl/protocode/webglsl/webglsl-generator.lisp b/src/opengl/protocode/webglsl/webglsl-generator.lisp
diff --git a/src/opengl/protocode/webglsl/webglsl-grammar.lisp b/src/opengl/protocode/webglsl/webglsl-grammar.lisp
diff --git a/src/uncommon-lisp/struct-to-clos.lisp b/src/uncommon-lisp/struct-to-clos.lisp
diff --git a/src/uncommon-lisp/uncommon-lisp.asd b/src/uncommon-lisp/uncommon-lisp.asd
diff --git a/src/window-opengl-glfw3/enum.lisp b/src/window-opengl-glfw3/enum.lisp
diff --git a/src/window-opengl-glfw3/input-array.lisp b/src/window-opengl-glfw3/input-array.lisp
diff --git a/src/window-opengl-glfw3/opengl-glfw3.asd b/src/window-opengl-glfw3/opengl-glfw3.asd
diff --git a/src/window-opengl-glfw3/package.lisp b/src/window-opengl-glfw3/package.lisp
diff --git a/src/window-opengl-glfw3/window.lisp b/src/window-opengl-glfw3/window.lisp
diff --git a/start.lisp b/start.lisp