martin/emacs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* lread.c (Fintern_soft, oblookup): Use SYMBOL_NAME and XSTRING

Browse Source 
instead of XSYMBOL and name field.
(Funintern): Use SYMBOL_NAME and assignment instead of XSYMBOL and
name field and XSETSTRING.
This commit is contained in:
Ken Raeburn
2002-05-20 08:06:11 +00:00
parent 74d7008596
commit d4c83cae08
1 changed files with 5 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/lread.c
View File

@@ -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;