# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1482170704 18000
# Node ID e4dbbebd67fa61a23a87b25e1907b1ebdb464df0
# Parent  af9c310b6b51fd85f296107e733c2a9291d94652
Minor cleanup

diff -r af9c310b6b51 -r e4dbbebd67fa src/emulator.lisp
--- a/src/emulator.lisp	Sun Dec 18 12:55:46 2016 -0500
+++ b/src/emulator.lisp	Mon Dec 19 13:05:04 2016 -0500
@@ -119,22 +119,22 @@
 (defun load-font (chip)
   ;; Thanks http://www.multigesture.net/articles/how-to-write-an-emulator-chip-8-interpreter/
   (replace (chip-memory chip)
-           (vector #xF0 #x90 #x90 #x90 #xF0  ; 0
-                   #x20 #x60 #x20 #x20 #x70  ; 1
-                   #xF0 #x10 #xF0 #x80 #xF0  ; 2
-                   #xF0 #x10 #xF0 #x10 #xF0  ; 3
-                   #x90 #x90 #xF0 #x10 #x10  ; 4
-                   #xF0 #x80 #xF0 #x10 #xF0  ; 5
-                   #xF0 #x80 #xF0 #x90 #xF0  ; 6
-                   #xF0 #x10 #x20 #x40 #x40  ; 7
-                   #xF0 #x90 #xF0 #x90 #xF0  ; 8
-                   #xF0 #x90 #xF0 #x10 #xF0  ; 9
-                   #xF0 #x90 #xF0 #x90 #x90  ; A
-                   #xE0 #x90 #xE0 #x90 #xE0  ; B
-                   #xF0 #x80 #x80 #x80 #xF0  ; C
-                   #xE0 #x90 #x90 #x90 #xE0  ; D
-                   #xF0 #x80 #xF0 #x80 #xF0  ; E
-                   #xF0 #x80 #xF0 #x80 #x80) ; F
+           #(#xF0 #x90 #x90 #x90 #xF0  ; 0
+             #x20 #x60 #x20 #x20 #x70  ; 1
+             #xF0 #x10 #xF0 #x80 #xF0  ; 2
+             #xF0 #x10 #xF0 #x10 #xF0  ; 3
+             #x90 #x90 #xF0 #x10 #x10  ; 4
+             #xF0 #x80 #xF0 #x10 #xF0  ; 5
+             #xF0 #x80 #xF0 #x90 #xF0  ; 6
+             #xF0 #x10 #x20 #x40 #x40  ; 7
+             #xF0 #x90 #xF0 #x90 #xF0  ; 8
+             #xF0 #x90 #xF0 #x10 #xF0  ; 9
+             #xF0 #x90 #xF0 #x90 #x90  ; A
+             #xE0 #x90 #xE0 #x90 #xE0  ; B
+             #xF0 #x80 #x80 #x80 #xF0  ; C
+             #xE0 #x90 #x90 #x90 #xE0  ; D
+             #xF0 #x80 #xF0 #x80 #xF0  ; E
+             #xF0 #x80 #xF0 #x80 #x80) ; F
            :start1 #x50))
 
 (defun-inline font-location (character)
diff -r af9c310b6b51 -r e4dbbebd67fa src/gui/screen.lisp
--- a/src/gui/screen.lisp	Sun Dec 18 12:55:46 2016 -0500
+++ b/src/gui/screen.lisp	Mon Dec 19 13:05:04 2016 -0500
@@ -16,7 +16,7 @@
 
 ;;;; OpenGL -------------------------------------------------------------------
 (defun initialize-texture (size)
-  (let* ((handle (gl:gen-texture)))
+  (let ((handle (gl:gen-texture)))
     (gl:bind-texture :texture-2d handle)
 
     (gl:tex-image-2d :texture-2d 0 :luminance size size 0 :luminance