# HG changeset patch
# User Johan Bockg���rd <bojohan@gnu.org>
# Date 1246140579 0
# Node ID e7c02c708bb11942d332619820607798af100e96
# Parent  d6ac90c70d24093e2340762aa1fe3e84d0b6d8ba
(defstruct): Fix :conc-name spec.

diff -r d6ac90c70d24 -r e7c02c708bb1 lisp/ChangeLog
--- a/lisp/ChangeLog	Sat Jun 27 21:27:51 2009 +0000
+++ b/lisp/ChangeLog	Sat Jun 27 22:09:39 2009 +0000
@@ -1,3 +1,7 @@
+2009-06-27  Johan Bockgård  <bojohan@gnu.org>
+
+	* emacs-lisp/cl-specs.el (defstruct): Fix :conc-name spec.
+
 2009-06-27  Chong Yidong  <cyd@stupidchicken.com>
 
 	* faces.el (x-handle-named-frame-geometry): Ensure that we have
diff -r d6ac90c70d24 -r e7c02c708bb1 lisp/emacs-lisp/cl-specs.el
--- a/lisp/emacs-lisp/cl-specs.el	Sat Jun 27 21:27:51 2009 +0000
+++ b/lisp/emacs-lisp/cl-specs.el	Sat Jun 27 22:09:39 2009 +0000
@@ -292,7 +292,7 @@
    [&or symbolp
 	(gate
 	 symbolp &rest
-		 (&or [":conc-name" &or stringp "nil"]
+		 (&or [":conc-name" symbolp]
 		      [":constructor" symbolp &optional cl-lambda-list]
 		      [":copier" symbolp]
 		      [":predicate" symbolp]