Changeset 667

Timestamp:

Mar 18, 2004, 4:43:56 PM (21 years ago)

Author:

Gary Byers

Message:

Command-information struct moves here; add function slot.

File:

• trunk/ccl/hemlock/src/cocoa-hemlock.lisp (modified) (1 diff)

trunk/ccl/hemlock/src/cocoa-hemlock.lisp

@@ -6 +6 @@
 
 (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)