3029 |
string = XSTRING (name); |
string = XSTRING (name); |
3030 |
} |
} |
3031 |
else |
else |
3032 |
string = XSYMBOL (name)->name; |
string = XSTRING (SYMBOL_NAME (name)); |
3033 |
|
|
3034 |
tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string)); |
tem = oblookup (obarray, string->data, string->size, STRING_BYTES (string)); |
3035 |
if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem))) |
if (INTEGERP (tem) || (SYMBOLP (name) && !EQ (name, tem))) |
3054 |
obarray = check_obarray (obarray); |
obarray = check_obarray (obarray); |
3055 |
|
|
3056 |
if (SYMBOLP (name)) |
if (SYMBOLP (name)) |
3057 |
XSETSTRING (string, XSYMBOL (name)->name); |
string = SYMBOL_NAME (name); |
3058 |
else |
else |
3059 |
{ |
{ |
3060 |
CHECK_STRING (name); |
CHECK_STRING (name); |
3140 |
else |
else |
3141 |
for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next)) |
for (tail = bucket; ; XSETSYMBOL (tail, XSYMBOL (tail)->next)) |
3142 |
{ |
{ |
3143 |
if (STRING_BYTES (XSYMBOL (tail)->name) == size_byte |
if (STRING_BYTES (XSTRING (SYMBOL_NAME (tail))) == size_byte |
3144 |
&& XSYMBOL (tail)->name->size == size |
&& XSTRING (SYMBOL_NAME (tail))->size == size |
3145 |
&& !bcmp (XSYMBOL (tail)->name->data, ptr, size_byte)) |
&& !bcmp (XSTRING (SYMBOL_NAME (tail))->data, ptr, size_byte)) |
3146 |
return tail; |
return tail; |
3147 |
else if (XSYMBOL (tail)->next == 0) |
else if (XSYMBOL (tail)->next == 0) |
3148 |
break; |
break; |