Index: main/grid/display.lisp
===================================================================
--- main/grid/display.lisp	(revision main,71)
+++ main/grid/display.lisp	(revision main,77)
@@ -94,5 +94,5 @@
           (draw-cell grid row column y x))))))
 
-(defun draw (grid)
+(defmethod draw ((grid grid))
   (with-slots (data window column-scroll) grid
     (let ((header-columns (header-columns data)))