2175 |
(symbol-name (car args)) "")))) |
(symbol-name (car args)) "")))) |
2176 |
((eq opt :constructor) |
((eq opt :constructor) |
2177 |
(if (cdr args) |
(if (cdr args) |
2178 |
(push args constrs) |
(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)) |
2184 |
(if args (setq constructor (car args))))) |
(if args (setq constructor (car args))))) |
2185 |
((eq opt :copier) |
((eq opt :copier) |
2186 |
(if args (setq copier (car args)))) |
(if args (setq copier (car args)))) |