From db0e20ae542edf05879048d934650748d9fdb209 Mon Sep 17 00:00:00 2001
From: John Connors <johnc@yagc.ndo.co.uk>
Date: Fri, 15 Aug 2008 21:14:06 +0100
Subject: [PATCH] Removing annoying warning

---
 glreader.lisp    | 2 +-
 glrepl-main.lisp | 8 ++------
 package.lisp     | 2 +-
 3 files changed, 4 insertions(+), 8 deletions(-)

diff --git a/glreader.lisp b/glreader.lisp
index 987da85..a396164 100644
--- a/glreader.lisp
+++ b/glreader.lisp
@@ -1,6 +1,6 @@
 (in-package :glrepl)
 
-(defconstant eof "Eof")
+(defvar eof "Eof")
 (defun eof-object? (x) (eq x eof))
 
 (defvar *glrepl-readtable* (copy-readtable))
diff --git a/glrepl-main.lisp b/glrepl-main.lisp
index 000673c..eb5e8e0 100644
--- a/glrepl-main.lisp
+++ b/glrepl-main.lisp
@@ -2,18 +2,12 @@
 
 (in-package :glrepl)
 
-;;  (- (win-width-of win)) (* 2 (win-height-of win))
-;;                (* 2 (win-width-of win)) (- (* 2 (win-height-of win)))))
 
 (defvar *esc-pressed* nil)
 
 (defparameter *glwindow* nil)
 
 (defparameter *console* t)
-;; gives us unicode keys
-;; (cffi:defcallback char-callback :void ((key :int) (action :int))
-;;   )
-
 
 ;; evaluate a form, echo result to console: somewhat stolen
 ;; from perfectstorm..
@@ -27,6 +21,8 @@
                      (format nil "~a" e))))))
     eval-result))
 
+;; -- callbacks --------------
+
 (cffi:defcallback console-char-callback :void ((key :int) (action :int))
   ;; (format t "Char ~A " key)
   (when (and *console* (= action glfw:+press+))
diff --git a/package.lisp b/package.lisp
index e0c7dbc..8631c19 100644
--- a/package.lisp
+++ b/package.lisp
@@ -6,7 +6,7 @@
            *font-pathname* 
            *font-data* 
            *font-images* 
-           *gl-window*
+           *glwindow*
            *console*
            with-opengl
            name-of
-- 
2.11.4.GIT