Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-17 10:27:41 +00:00
Code Issues Projects Releases Packages Wiki Activity

(defstruct): Don't define the default constructor if it is overridden.

Browse source
This commit is contained in:
Stefan Monnier 2005-11-27 20:59:10 +00:00
parent f679907bf2
commit 40e8a6c318
1 changed files with 6 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

7
lisp/emacs-lisp/cl-macs.el
View file

@ -2175,7 +2175,12 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
(symbol-name (car args)) ""))))
((eq opt :constructor)
(if (cdr args)
(push args constrs)
(progn
;; If this defines a constructor of the same name as
;; the default one, don't define the default.
(if (eq (car args) constructor)
(setq constructor nil))
(push args constrs))
(if args (setq constructor (car args)))))
((eq opt :copier)
(if args (setq copier (car args))))