[Openmcl-cvs-notifications] r11624 - in /trunk/source/lisp-kernel: lisp-debug.c pmcl-kernel.c

[gb at clozure.com]

Author: gb
Date: Sun Jan 18 07:51:21 2009
New Revision: 11624

Log:
Initialize dbgout in main().

Modified:
    trunk/source/lisp-kernel/lisp-debug.c
    trunk/source/lisp-kernel/pmcl-kernel.c

Modified: trunk/source/lisp-kernel/lisp-debug.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/lisp-debug.c (original)
+++ trunk/source/lisp-kernel/lisp-debug.c Sun Jan 18 07:51:21 2009
@@ -33,7 +33,7 @@
 #endif
 #include <sys/stat.h>
 =

-FILE *dbgout =3D stderr;
+FILE *dbgout =3D NULL;
 =

 typedef enum {
   debug_continue,		/* stay in the repl */

Modified: trunk/source/lisp-kernel/pmcl-kernel.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/pmcl-kernel.c (original)
+++ trunk/source/lisp-kernel/pmcl-kernel.c Sun Jan 18 07:51:21 2009
@@ -1500,6 +1500,8 @@
   init_windows_io();
 #endif
 =

+  dbgout =3D stderr;
+
   check_os_version(argv[0]);
   real_executable_name =3D determine_executable_name(argv[0]);
   page_size =3D getpagesize(); /* Implement with GetSystemInfo on Windows =
w/o MinGW */