Question

我写了一个新的Emacs原语（macroexpand-once）并重新编译了Emacs

现在(macroexpand-once)失败，“符号的函数定义无效”。

我该怎么办？

更新：这是代码：

DEFUN ("macroexpand-once", Fmacroexpand_once, Smacroexpand_once, 1, 2, 0,
       doc: /* Return result of expanding macros at top level of FORM.
               If FORM is not a macro call, it is returned unchanged.
               Otherwise, the macro is expanded and the expansion is returned.
               The second optional arg ENVIRONMENT specifies an environment of macro
               definitions to shadow the loaded ones for use in file byte-compilation.  */)
     (Lisp_Object form, Lisp_Object environment)
{
  /* With cleanups from Hallvard Furuseth.  */
  register Lisp_Object expander, sym, def, tem;

  do
    {
      /* Come back here each time we expand a macro call,
     in case it expands into another macro call.  */
      if (!CONSP (form))
    break;
      /* Set SYM, give DEF and TEM right values in case SYM is not a symbol. */
      def = sym = XCAR (form);
      tem = Qnil;
      /* Trace symbols aliases to other symbols
     until we get a symbol that is not an alias.  */
      while (SYMBOLP (def))
    {
      QUIT;
      sym = def;
      tem = Fassq (sym, environment);
      if (NILP (tem))
        {
          def = XSYMBOL (sym)->function;
          if (!EQ (def, Qunbound))
        continue;
        }
      break;
    }
      /* Right now TEM is the result from SYM in ENVIRONMENT,
     and if TEM is nil then DEF is SYM's function definition.  */
      if (NILP (tem))
    {
      /* SYM is not mentioned in ENVIRONMENT.
         Look at its function definition.  */
      struct gcpro gcpro1;
      GCPRO1 (form);
      def = Fautoload_do_load (def, sym, Qmacro);
      UNGCPRO;
      if (EQ (def, Qunbound) || !CONSP (def))
        /* Not defined or definition not suitable.  */
        break;
      if (!EQ (XCAR (def), Qmacro))
        break;
      else expander = XCDR (def);
    }
      else
    {
      expander = XCDR (tem);
      if (NILP (expander))
        break;
    }
      {
    Lisp_Object newform = apply1 (expander, XCDR (form));
    if (EQ (form, newform))
      break;
    else
      form = newform;
      }
    } while (0);
  return form;
}

它只是macroexpand的代码，但是使用do-while（0）而不是while（1）。

Answer 1

您需要致电defsubr。搜索Smacroexpand以查看我的意思。

新的Emacs原语不会显示

1 个答案: