Changeset 15164

Timestamp:

Jan 18, 2012, 12:09:59 PM (13 years ago)

Author:

R. Matthew Emerson

Message:

On Windows, treat typing Control-Break in a console window
as a user-generated quit signal.

File:

• trunk/source/lisp-kernel/x86-exceptions.c (modified) (1 diff)

trunk/source/lisp-kernel/x86-exceptions.c

@@ -1848 +1848 @@
     return TRUE;
     break;
+  case CTRL_BREAK_EVENT:
+    lisp_global(INTFLAG) = (2 << fixnumshift);
+    return TRUE;
+    break;
   default:
     return FALSE;