Mercurial > hg > xemacs-beta

comparison src/symbols.c @ 906:7f5ac0d2a71f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2002-07-08 08:21:47 by youngs] 2002-06-26 John Paul Wallington <jpw@shootybangbang.com> * derived.el (define-derived-mode): Put `derived-mode-parent' property on child. (derived-mode-p): New function; sync with GNU Emacs 21. 2002-06-26 Jerry James <james@xemacs.org> * symbols.c (check_sane_subr): Let the symbol be bound if it is an autoload cookie.
author youngs
date Mon, 08 Jul 2002 08:22:00 +0000
parents 79c6ff3eef26
children eaedf30d9d76
comparison
equal deleted inserted replaced
905:c15f25529e61 906:7f5ac0d2a71f
3360 #ifdef DEBUG_XEMACS 3360 #ifdef DEBUG_XEMACS
3361 /* Check that nobody spazzed writing a DEFUN. */ 3361 /* Check that nobody spazzed writing a DEFUN. */
3362 static void 3362 static void
3363 check_sane_subr (Lisp_Subr *subr, Lisp_Object sym) 3363 check_sane_subr (Lisp_Subr *subr, Lisp_Object sym)
3364 { 3364 {
3365 Lisp_Object f;
3366
3365 assert (subr->min_args >= 0); 3367 assert (subr->min_args >= 0);
3366 assert (subr->min_args <= SUBR_MAX_ARGS); 3368 assert (subr->min_args <= SUBR_MAX_ARGS);
3367 3369
3368 if (subr->max_args != MANY && 3370 if (subr->max_args != MANY &&
3369 subr->max_args != UNEVALLED) 3371 subr->max_args != UNEVALLED)
3371 /* Need to fix lisp.h and eval.c if SUBR_MAX_ARGS too small */ 3373 /* Need to fix lisp.h and eval.c if SUBR_MAX_ARGS too small */
3372 assert (subr->max_args <= SUBR_MAX_ARGS); 3374 assert (subr->max_args <= SUBR_MAX_ARGS);
3373 assert (subr->min_args <= subr->max_args); 3375 assert (subr->min_args <= subr->max_args);
3374 } 3376 }
3375 3377
3376 assert (UNBOUNDP (XSYMBOL (sym)->function)); 3378 f = XSYMBOL (sym)->function;
3379 assert (UNBOUNDP (f) || (CONSP (f) && EQ (XCAR (f), Qautoload)));
3377 } 3380 }
3378 #else 3381 #else
3379 #define check_sane_subr(subr, sym) /* nothing */ 3382 #define check_sane_subr(subr, sym) /* nothing */
3380 #endif 3383 #endif
3381 3384