--- 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)--- 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