diff src/symbols.c @ 906:7f5ac0d2a71f

[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
line wrap: on
line diff
--- a/src/symbols.c	Sat Jul 06 21:05:58 2002 +0000
+++ b/src/symbols.c	Mon Jul 08 08:22:00 2002 +0000
@@ -3362,6 +3362,8 @@
 static void
 check_sane_subr (Lisp_Subr *subr, Lisp_Object sym)
 {
+  Lisp_Object f;
+
   assert (subr->min_args >= 0);
   assert (subr->min_args <= SUBR_MAX_ARGS);
 
@@ -3373,7 +3375,8 @@
       assert (subr->min_args <= subr->max_args);
     }
 
-  assert (UNBOUNDP (XSYMBOL (sym)->function));
+  f = XSYMBOL (sym)->function;
+  assert (UNBOUNDP (f) || (CONSP (f) && EQ (XCAR (f), Qautoload)));
 }
 #else
 #define check_sane_subr(subr, sym) /* nothing */