diff options
| author | BT Templeton <[email protected]> | 2012-08-03 00:43:03 -0400 |
|---|---|---|
| committer | Robin Templeton <[email protected]> | 2015-04-18 18:49:09 -0400 |
| commit | 72aa8b2ebc03fa1000ddbbd4cf5d68013eaf0e0e (patch) | |
| tree | 72e3c2ef38561af759d3a4441c63e886d488a35e | |
| parent | ac57c3e728c65378f2c70b76ac4df6279189d528 (diff) | |
defsubr snarfing
* src/lisp.h (DEFUN): Use `SCM_SNARF_INIT' to generate a defsubr call.
| -rw-r--r-- | src/lisp.h | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/lisp.h b/src/lisp.h index d830cf4aab..0900c88ca3 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -2401,6 +2401,7 @@ CHECK_NUMBER_CDR (Lisp_Object x) #else /* not _MSC_VER */ #define DEFUN(lname, fnname, sname, minargs, maxargs, intspec, doc) \ SCM_SNARF_INIT (defsubr (&sname);) \ + Lisp_Object fnname DEFUN_ARGS_ ## maxargs ; \ static struct Lisp_Subr alignas (GCALIGNMENT) sname = \ { { .self = NULL, \ .size = PVEC_SUBR << PSEUDOVECTOR_AREA_BITS }, \ |