* lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.

2 files changed, 16 insertions, 2 deletions

diff --git a/src/ChangeLog b/src/ChangeLog
index 1d09e191d7d..9f673eb7529 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,5 +1,7 @@
 2000-03-30  Ken Raeburn  <raeburn@gnu.org>
 
+        * lisp.h (NO_UNION_TYPE) [ENABLE_CHECKING]: Undef.
+
         * lisp.h (XCONS, XSTRING, XSYMBOL, XFLOAT, XPROCESS, XWINDOW,
         XSUBR, XBUFFER): Verify correct object type before returning
         pointer, using eassert.
diff --git a/src/lisp.h b/src/lisp.h
index 13e734a73ea..10749473be7 100644
--- a/src/lisp.h
+++ b/src/lisp.h
@@ -48,13 +48,25 @@ Boston, MA 02111-1307, USA.  */
 
 /* Extra internal type checking?  */
 extern int suppress_checking;
-#ifdef ENABLE_CHECKING
 extern void die P_((const char *, const char *, int));
-#define CHECK(check,msg) ((check || suppress_checking ? 0 : die (msg, __FILE__, __LINE__)), 0)
+
+#ifdef ENABLE_CHECKING
+
+#define CHECK(check,msg) ((check || suppress_checking           \
+                           ? 0                                  \
+                           : die (msg, __FILE__, __LINE__)),    \
+                          0)
+
+/* Let's get some compile-time checking too.  */
+#undef NO_UNION_TYPE
+
 #else
+
 /* Produce same side effects and result, but don't complain.  */
 #define CHECK(check,msg) ((check),0)
+
 #endif
+
 /* Define an Emacs version of "assert", since some system ones are
    flaky.  */
 #if defined (__GNUC__) && __GNUC__ >= 2 && defined (__STDC__)