Mercurial > hg > xemacs-beta

comparison src/lisp.h @ 5278:d9e65b48e2bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Correct the NEW_GC non-DEBUG_XEMACS version of PARSE_KEYWORDS(). 2010-09-18 Aidan Kehoe <kehoea@parhasard.net> * lisp.h (PARSE_KEYWORDS): Correct the NEW_GC non-DEBUG_XEMACS version of this macro; under such builds S##function is a pointer, not a Lisp_Subr structure.
author Aidan Kehoe <kehoea@parhasard.net>
date Sat, 18 Sep 2010 16:46:56 +0100
parents d804e621add0
children d0bc331e433f
comparison
equal deleted inserted replaced
5277:d804e621add0 5278:d9e65b48e2bf
3552 the function may be advised. */ \ 3552 the function may be advised. */ \
3553 XINT (Ffunction_min_args \ 3553 XINT (Ffunction_min_args \
3554 (intern_massaging_name (1 + #function))), \ 3554 (intern_massaging_name (1 + #function))), \
3555 0); \ 3555 0); \
3556 assert (0 == strcmp (__func__, #function)) 3556 assert (0 == strcmp (__func__, #function))
3557 #elsif defined (NEW_GC)
3558 #define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \
3559 keyword_defaults) \
3560 PARSE_KEYWORDS_8 (intern (S##function->name), nargs, args, \
3561 keyword_count, keywords, \
3562 keyword_defaults, S##function->min_args, 0)
3557 #else 3563 #else
3558 #define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \ 3564 #define PARSE_KEYWORDS(function, nargs, args, keyword_count, keywords, \
3559 keyword_defaults) \ 3565 keyword_defaults) \
3560 PARSE_KEYWORDS_8 (intern (S##function.name), nargs, args, \ 3566 PARSE_KEYWORDS_8 (intern (S##function.name), nargs, args, \
3561 keyword_count, keywords, \ 3567 keyword_count, keywords, \