(Ffset): Don't call Fget unless SYM's plist is consp.

5e84269a · Roland McGrath · 60f312e2 · 5e84269a
Commit 5e84269a authored Aug 01, 1994 by Roland McGrath
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

src/data.c src/data.c +1 -1

No files found.
--- a/src/data.c
+++ b/src/data.c
@@ -556,7 +556,7 @@ DEFUN ("fset", Ffset, Sfset, 2, 2, 0,
 			     Vautoload_queue);
  XSYMBOL (sym)->function = newdef;
  /* Handle automatic advice activation */
-  if (!NILP (Fget (sym, Qadvice_info)))
+  if (CONSP (XSYMBOL (sym)->plist) && !NILP (Fget (sym, Qadvice_info)))
    {
      call2 (Qactivate_advice, sym, Fbyte_code_function_p (newdef));
      newdef = XSYMBOL (sym)->function;