[Openmcl-cvs-notifications] r13896 - /trunk/source/level-1/x86-trap-support.lisp

[gb at clozure.com]

Author: gb
Date: Mon Jun 28 11:07:23 2010
New Revision: 13896

Log:
SIGTRAP isn't defined on Win32.

Modified:
    trunk/source/level-1/x86-trap-support.lisp

Modified: trunk/source/level-1/x86-trap-support.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/level-1/x86-trap-support.lisp (original)
+++ trunk/source/level-1/x86-trap-support.lisp Mon Jun 28 11:07:23 2010
@@ -469,7 +469,7 @@
                                      :write-p (not (zerop code)))
                      ()
                      frame-ptr)))
-          ((=3D signal #$SIGTRAP)
+          ((=3D signal #-win32-target #$SIGTRAP #+win32-target 5)
            (when (=3D code 0)
              (let* ((hook *pending-gc-notification-hook*))
                (declare (special *pending-gc-notification-hook*))