Changeset 789

Timestamp:

Apr 19, 2004, 12:30:10 PM (21 years ago)

Author:

Gary Byers

Message:

Event-queue-node constructor.

File:

• trunk/ccl/hemlock/src/cocoa-hemlock.lisp (modified) (3 diffs)

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

@@ -13 +13 @@
   (thunk nil))
 
-(defstruct (event-queue-node (:include ccl::dll-node))
+(defstruct (event-queue-node (:include ccl::dll-node)
+                             (:constructor make-event-queue-node (event)))
   event)
 
@@ -21 +22 @@
 
 (defun enqueue-key-event (q event)
-  (event-queue-insert q (make-event-queue-node :event event)))
+  (event-queue-insert q (make-event-queue-node event)))
 
 (defun dequeue-key-event (q)
@@ -34 +35 @@
 (defun unget-key-event (event q)
   (ccl::with-locked-dll-header (q)
-    (ccl::insert-dll-node-after (make-event-queue-node event) q))
+    (ccl::insert-dll-node-after (make-event-queue-node  event) q))
   (ccl::signal-semaphore (frame-event-queue-signal q)))