# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1020188786 0
# Node ID 184909bcbc7bc66cb21d7a5cac2d52f15b874bd3
# Parent  d38dacfdef66e7c9ffe7bdd330400fcac57277a9
(do_autoload): Error if called while preparing to dump.

diff -r d38dacfdef66 -r 184909bcbc7b src/eval.c
--- a/src/eval.c	Tue Apr 30 17:46:15 2002 +0000
+++ b/src/eval.c	Tue Apr 30 17:46:26 2002 +0000
@@ -1906,6 +1906,10 @@
   Lisp_Object fun, queue, first, second;
   struct gcpro gcpro1, gcpro2, gcpro3;
 
+  if (! NILP (Vpurify_flag))
+    error ("Attempt to autoload %s while preparing to dump",
+	   XSYMBOL (funname)->name->data);
+
   fun = funname;
   CHECK_SYMBOL (funname);
   GCPRO3 (fun, funname, fundef);