Changeset 6762

Timestamp:

Jun 18, 2007, 1:44:09 AM (17 years ago)

Author:

Gary Byers

Message:

Remember the condition that's already been reported ...

File:

• branches/ide-1.0/ccl/examples/cocoa-window.lisp (modified) (1 diff)

branches/ide-1.0/ccl/examples/cocoa-window.lisp

@@ -122 +122 @@
                 condition)))
       (unless (member c *event-process-reported-conditions*)
+        (push c *event-process-reported-conditions*)
         (catch 'need-a-catch-frame-for-backtrace
           (let* ((*debug-in-event-process* nil)