Index: main/input.lisp
===================================================================
--- main/input.lisp	(revision main,28)
+++ main/input.lisp	(revision main,30)
@@ -146,6 +146,7 @@
         (t (error "Should not be here."))))))
 
-(defun read-key (window)
-  (%wget-wch (window-pointer window)))
+(defgeneric read-key (window)
+  (:method ((window window))
+    (%wget-wch (window-pointer window))))