X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fprint.c;h=67a7c207dae45e244b4e6a084523ef4514bad2eb;hb=d90c8a75da90925a51a587f7bd4d9c494256f68a;hp=33c54893323ccaa2829039722f687757921dab3c;hpb=89d479da5c74575f21a52af0055e8f6dd85edc30;p=sbcl.git diff --git a/src/runtime/print.c b/src/runtime/print.c index 33c5489..67a7c20 100644 --- a/src/runtime/print.c +++ b/src/runtime/print.c @@ -77,7 +77,9 @@ dyndebug_init() if (n != DYNDEBUG_NFLAGS) fprintf(stderr, "Bug in dyndebug_init\n"); +#if defined(LISP_FEATURE_GENCGC) gencgc_verbose = dyndebug_config.dyndebug_gencgc_verbose; +#endif char *featurelist = getenv("SBCL_DYNDEBUG"); if (featurelist) { @@ -213,6 +215,9 @@ fshow_fun(void __attribute__((__unused__)) *ignored, #ifdef LISP_FEATURE_GENCGC #include "gencgc-alloc-region.h" /* genesis/thread.h needs this */ #endif +#if defined(LISP_FEATURE_WIN32) +# include "win32-thread-private-events.h" /* genesis/thread.h needs this */ +#endif #include "genesis/static-symbols.h" #include "genesis/primitive-objects.h" #include "genesis/static-symbols.h"