Index: /trunk/ccl/hemlock/src/cocoa-hemlock.lisp
===================================================================
--- /trunk/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 666)
+++ /trunk/ccl/hemlock/src/cocoa-hemlock.lisp	(revision 667)
@@ -6,4 +6,17 @@
 
 (in-package :hemlock-internals)
+
+(defstruct command-interpreter-info
+  (current-command (make-array 10 :fill-pointer 0 :adjustable t))
+  (current-translation (make-array 10 :fill-pointer 0 :adjustable t))
+  (last-command-type nil)
+  (command-type-set nil)
+  (prefix-argument nil)
+  (prefix-argument-supplied nil)
+  frame
+  (function nil)
+  )
+
+(defvar *current-command-info* nil)
 
 (defun buffer-windows (buffer)