[Openmcl-cvs-notifications] r11192 - /trunk/source/level-1/x86-callback-support.lisp

[gb at clozure.com]

Author: gb
Date: Tue Oct 21 19:55:22 2008
New Revision: 11192

Log:
fix more typos ...

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

Modified: trunk/source/level-1/x86-callback-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-callback-support.lisp (original)
+++ trunk/source/level-1/x86-callback-support.lisp Tue Oct 21 19:55:22 2008
@@ -46,7 +46,7 @@
           (%get-unsigned-byte p 1) (ldb (byte 8 0) index)
           (%get-unsigned-byte p 2) (ldb (byte 8 8) index)
           (%get-unsigned-byte p 3) (ldb (byte 8 16) index)
-          (%get-unsigned-byte p 4) (ldb (byte 8 24) (ash discard-stack (- =
x8632::word-shift)))
+          (%get-unsigned-byte p 4) (ldb (byte 8 24) (ash (or discard-stack=
-bytes 0) (- x8632::word-shift)))
           (%get-unsigned-byte p 5) #xff  ; jmp *
           (%get-unsigned-byte p 6) #x24
           (%get-unsigned-byte p 7) #x25