From 4332cd2a4eb235fcee6c9c963704503cc571f6f0 Mon Sep 17 00:00:00 2001
From: John Connors <johnc@yagc.ndo.co.uk>
Date: Thu, 21 Aug 2008 03:07:06 +0100
Subject: [PATCH] Say hello to the dalek.

---
 main.lisp   |  7 -------
 repl.lisp   |  3 ++-
 turtle.lisp | 10 +++++-----
 3 files changed, 7 insertions(+), 13 deletions(-)

diff --git a/main.lisp b/main.lisp
index a77df7c..963227c 100644
--- a/main.lisp
+++ b/main.lisp
@@ -219,13 +219,6 @@
         (add-line glrepl:*glwindow*)
         (add-line glrepl:*glwindow*)
         (add-string glrepl:*glwindow* "(format nil \"Hello World\")")
-        (setf *dalek*
-              (with-open-file 
-                  (dalek-md2
-                  (merge-pathnames #P"dalekx/tris.md2") 
-                    :direction :input 
-                    :element-type '(unsigned-byte 8))
-                (lodematron:parse-md2-file dalek-md2)))
         (if (glfw:open-window 
              (win-width-of *glwindow*) 
              (win-height-of *glwindow*) 
diff --git a/repl.lisp b/repl.lisp
index b9239f4..44b93fa 100644
--- a/repl.lisp
+++ b/repl.lisp
@@ -29,10 +29,11 @@
               :name 
               (concatenate 'string "Swank " 
                                       (princ-to-string port)))))
+    (setf (getf *listener-sockets* port) (list :sigio socket))
     local-port))
 
 (defun end-session (port)
-  "Stop server running on PORT."
+  "Stop server running on PORT. Equivalent to swank::stop-server"
   (let* ((socket-description (getf *listener-sockets* port))
          (socket (second socket-description)))
        (let ((thread-position
diff --git a/turtle.lisp b/turtle.lisp
index 486ea5a..450e680 100644
--- a/turtle.lisp
+++ b/turtle.lisp
@@ -101,11 +101,11 @@
              (x y z)
            (gl:vertex-3f x y z))))
        
-       
-       (gl:with-begin gl:+lines+
-         (render-x-axis)
-         (render-y-axis)
-         (render-z-axis))))
+
+    (gl:with-begin gl:+lines+
+      (render-x-axis)
+      (render-y-axis)
+      (render-z-axis))))
 
 
 (defun make-turtle (x y z)
-- 
2.11.4.GIT