/[emacs]/emacs/lisp/emacs-lisp/cl-macs.el
ViewVC logotype

Diff of /emacs/lisp/emacs-lisp/cl-macs.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.55 by eliz, Sat Jul 16 11:53:25 2005 UTC revision 1.56 by monnier, Sun Nov 27 20:59:10 2005 UTC
# Line 2175  copier, a `NAME-p' predicate, and setf-a Line 2175  copier, a `NAME-p' predicate, and setf-a
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))))

Legend:
Removed from v.1.55  
changed lines
  Added in v.1.56

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26