From: Karl Heuer <kwzh@gnu.org>
Date: Wed, 9 Nov 1994 23:13:31 +0000 (+0000)
Subject: (Fboundp, find_symbol_value): Use type test macros instead of checking XTYPE
X-Git-Tag: emacs-19.34~5977
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=536b772adcea208de7bf6d870275a540ea978bc6;p=emacs.git

(Fboundp, find_symbol_value): Use type test macros instead of checking XTYPE
directly.
---

diff --git a/src/data.c b/src/data.c
index 545756c18a1..9414f3df2ec 100644
--- a/src/data.c
+++ b/src/data.c
@@ -464,16 +464,9 @@ DEFUN ("boundp", Fboundp, Sboundp, 1, 1, 0, "T if SYMBOL's value is not void.")
 
   valcontents = XSYMBOL (sym)->value;
 
-#ifdef SWITCH_ENUM_BUG
-  switch ((int) XTYPE (valcontents))
-#else
-  switch (XTYPE (valcontents))
-#endif
-    {
-    case Lisp_Buffer_Local_Value:
-    case Lisp_Some_Buffer_Local_Value:
-      valcontents = swap_in_symval_forwarding (sym, valcontents);
-    }
+  if (LISP_BUFFER_LOCAL_VALUEP (valcontents)
+      || LISP_SOME_BUFFER_LOCAL_VALUEP (valcontents))
+    valcontents = swap_in_symval_forwarding (sym, valcontents);
 
   return (EQ (valcontents, Qunbound) ? Qnil : Qt);
 }
@@ -765,19 +758,12 @@ find_symbol_value (sym)
   CHECK_SYMBOL (sym, 0);
   valcontents = XSYMBOL (sym)->value;
 
- retry:
-#ifdef SWITCH_ENUM_BUG
-  switch ((int) XTYPE (valcontents))
-#else
-  switch (XTYPE (valcontents))
-#endif
-    {
-    case Lisp_Buffer_Local_Value:
-    case Lisp_Some_Buffer_Local_Value:
-      valcontents = swap_in_symval_forwarding (sym, valcontents);
-      goto retry;
+  if (LISP_BUFFER_LOCAL_VALUEP (valcontents)
+      || LISP_SOME_BUFFER_LOCAL_VALUEP (valcontents))
+    valcontents = swap_in_symval_forwarding (sym, valcontents);
 
-    case Lisp_Misc:
+  if (MISCP (valcontents))
+    {
       switch (XMISC (valcontents)->type)
 	{
 	case Lisp_Misc_Intfwd: