(register Lisp_Object symbol)
{
CHECK_SYMBOL (symbol);
- return XSYMBOL (symbol)->plist;
+ return symbol_plist (symbol);
}
DEFUN ("symbol-name", Fsymbol_name, Ssymbol_name, 1, 1, 0,
(Lisp_Object symbol, Lisp_Object propname)
{
CHECK_SYMBOL (symbol);
- return Fplist_get (XSYMBOL (symbol)->plist, propname);
+ return Fplist_get (symbol_plist (symbol), propname);
}
DEFUN ("plist-put", Fplist_put, Splist_put, 3, 3, 0,
{
CHECK_SYMBOL (symbol);
set_symbol_plist
- (symbol, Fplist_put (XSYMBOL (symbol)->plist, propname, value));
+ (symbol, Fplist_put (symbol_plist (symbol), propname, value));
return value;
}
\f
scm_variable_set_x (scm_module_lookup (function_module, sym), function);
}
+INLINE Lisp_Object
+symbol_plist (Lisp_Object sym)
+{
+ return XSYMBOL (sym)->plist;
+}
+
INLINE void
set_symbol_plist (Lisp_Object sym, Lisp_Object plist)
{