# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1120880563 0
# Node ID c6d6fa805aadec299dc087e0697d6f8690a1491b
# Parent  a0570a2818b2ed0ddc53654820d827e681c51f78
(Fdefvar): Allow defvaring a constant to itself quoted.

diff -r a0570a2818b2 -r c6d6fa805aad src/eval.c
--- a/src/eval.c	Sat Jul 09 03:41:40 2005 +0000
+++ b/src/eval.c	Sat Jul 09 03:42:43 2005 +0000
@@ -807,8 +807,16 @@
 
   sym = Fcar (args);
   if (SYMBOL_CONSTANT_P (sym))
-    error ("Constant symbol `%s' specified in defvar",
-           SDATA (SYMBOL_NAME (sym)));
+    {
+      /* For updward compatibility, allow (defvar :foo (quote :foo)).  */
+      tem = Fcar (Fcdr (args));
+      if (! (CONSP (tem)
+	     && EQ (XCAR (tem), Qquote)
+	     && CONSP (XCDR (tem))
+	     && EQ (XCAR (XCDR (tem)), sym)))
+	error ("Constant symbol `%s' specified in defvar",
+	       SDATA (SYMBOL_NAME (sym)));
+    }
 
   tail = Fcdr (args);
   if (!NILP (Fcdr (Fcdr (tail))))