[Openmcl-cvs-notifications] r12769 - /trunk/source/lib/dumplisp.lisp

[palter at clozure.com]

Author: palter
Date: Sun Sep  6 14:11:54 2009
New Revision: 12769

Log:
The field is named E_LFANEW not LFANEW

Modified:
    trunk/source/lib/dumplisp.lisp

Modified: trunk/source/lib/dumplisp.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/lib/dumplisp.lisp (original)
+++ trunk/source/lib/dumplisp.lisp Sun Sep  6 14:11:54 2009
@@ -213,7 +213,7 @@
               (let* ((application-byte (ecase application-type
                                          (:console #$IMAGE_SUBSYSTEM_WINDO=
WS_CUI)
                                          (:gui #$IMAGE_SUBSYSTEM_WINDOWS_G=
UI)))
-                     (offset (%get-long buf (get-field-offset #>IMAGE_DOS_=
HEADER.lfanew))))
+                     (offset (%get-long buf (get-field-offset #>IMAGE_DOS_=
HEADER.e_lfanew))))
                 (assert (< offset bufsize) () "PE header not within first =
~D bytes" bufsize)
                 (assert (=3D (%get-byte buf (+ offset 0)) (char-code #\P))=
 ()
                         "File does not appear to be a PE file")