[Openmcl-cvs-notifications] r10697 - /trunk/source/lisp-kernel/windows-calls.c

[gb at clozure.com]

Author: gb
Date: Wed Sep 10 02:57:41 2008
New Revision: 10697

Log:
windows_find_symbol() handle nonsense.

Modified:
    trunk/source/lisp-kernel/windows-calls.c

Modified: trunk/source/lisp-kernel/windows-calls.c
=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/lisp-kernel/windows-calls.c (original)
+++ trunk/source/lisp-kernel/windows-calls.c Wed Sep 10 02:57:41 2008
@@ -432,7 +432,8 @@
 void *
 windows_find_symbol(void *handle, char *name)
 {
-  if (handle =3D=3D ((void *)-2L)) {
+  if ((handle =3D=3D ((void *)-2L)) ||
+      (handle =3D=3D ((void *)-1L))) {
     handle =3D NULL;
   }
   if (handle !=3D NULL) {