From: Ken Raeburn <raeburn@raeburn.org>
Date: Mon, 20 May 2002 08:06:11 +0000 (+0000)
Subject: * lread.c (Fintern_soft, oblookup): Use SYMBOL_NAME and XSTRING
X-Git-Tag: ttn-vms-21-2-B4~14966
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d4c83cae08d9bfee1e97e4a196d54e11ebe1eaeb;p=emacs.git

* lread.c (Fintern_soft, oblookup): Use SYMBOL_NAME and XSTRING
instead of XSYMBOL and name field.
(Funintern): Use SYMBOL_NAME and assignment instead of XSYMBOL and
name field and XSETSTRING.
---

diff --git a/src/lread.c b/src/lread.c
index fd04d57507c..03ced7c4323 100644
--- a/src/lread.c
+++ b/src/lread.c
@@ -3029,7 +3029,7 @@ it defaults to the value of `obarray'.  */)
       string = XSTRING (name);
     }
   else
-    string = XSYMBOL (name)->name;
+    string = XSTRING (SYMBOL_NAME (name));
 
   tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string));
   if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem)))
@@ -3054,7 +3054,7 @@ OBARRAY defaults to the value of the variable `obarray'.  */)
   obarray = check_obarray (obarray);
 
   if (SYMBOLP (name))
-    XSETSTRING (string, XSYMBOL (name)->name);
+    string = SYMBOL_NAME (name);
   else
     {
       CHECK_STRING (name);
@@ -3140,9 +3140,9 @@ oblookup (obarray, ptr, size, size_byte)
   else
     for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next))
       {
-	if (STRING_BYTES (XSYMBOL (tail)->name) == size_byte
-	    && XSYMBOL (tail)->name->size == size
-	    && !bcmp (XSYMBOL (tail)->name->data, ptr, size_byte))
+	if (STRING_BYTES (XSTRING (SYMBOL_NAME (tail))) == size_byte
+	    && XSTRING (SYMBOL_NAME (tail))->size == size
+	    && !bcmp (XSTRING (SYMBOL_NAME (tail))->data, ptr, size_byte))
 	  return tail;
 	else if (XSYMBOL (tail)->next == 0)
 	  break;