diff options
| -rw-r--r-- | lisp/emacs-lisp/cl-macs.el | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/lisp/emacs-lisp/cl-macs.el b/lisp/emacs-lisp/cl-macs.el index 74c77128059..244029491de 100644 --- a/lisp/emacs-lisp/cl-macs.el +++ b/lisp/emacs-lisp/cl-macs.el | |||
| @@ -2175,7 +2175,12 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors. | |||
| 2175 | (symbol-name (car args)) "")))) | 2175 | (symbol-name (car args)) "")))) |
| 2176 | ((eq opt :constructor) | 2176 | ((eq opt :constructor) |
| 2177 | (if (cdr args) | 2177 | (if (cdr args) |
| 2178 | (push args constrs) | 2178 | (progn |
| 2179 | ;; If this defines a constructor of the same name as | ||
| 2180 | ;; the default one, don't define the default. | ||
| 2181 | (if (eq (car args) constructor) | ||
| 2182 | (setq constructor nil)) | ||
| 2183 | (push args constrs)) | ||
| 2179 | (if args (setq constructor (car args))))) | 2184 | (if args (setq constructor (car args))))) |
| 2180 | ((eq opt :copier) | 2185 | ((eq opt :copier) |
| 2181 | (if args (setq copier (car args)))) | 2186 | (if args (setq copier (car args)))) |