05dfef5b8af6

--- a/src/main.lisp	Fri Aug 05 16:04:12 2016 +0000
+++ b/src/main.lisp	Fri Aug 05 16:15:15 2016 +0000
@@ -20,14 +20,20 @@
 (defparameter *cursor-x* 0)
 (defparameter *cursor-y* 0)
 
-(defvar *heightmap* (allocate-heightmap))
-
 (deftype world-coordinate ()
   `(integer 0 ,(1- +world-size+)))
 
 (deftype world-array ()
   `(simple-array single-float (,+world-size+ ,+world-size+)))
 
+(defun allocate-heightmap ()
+  (make-array (list +world-size+ +world-size+)
+    :element-type 'single-float
+    :initial-element 0.0
+    :adjustable nil))
+
+(defvar *heightmap* (allocate-heightmap))
+
 (declaim (type world-array *heightmap*))
 
 
@@ -138,11 +144,6 @@
   (/ (apply #'+ values) (length values)))
 
 
-(defun allocate-heightmap ()
-  (make-array (list +world-size+ +world-size+)
-    :element-type 'single-float
-    :initial-element 0.0
-    :adjustable nil))
 
 
 (defun hm-size (heightmap)