(defstruct): Fix :conc-name spec.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index bb3c17e..af4e904 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -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 --git a/lisp/emacs-lisp/cl-specs.el b/lisp/emacs-lisp/cl-specs.el
index 4c07bdb..31a42b1 100644 (file)
--- a/lisp/emacs-lisp/cl-specs.el
+++ b/lisp/emacs-lisp/cl-specs.el
@@ -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]