diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-07 23:33:28 -0300 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2011-05-07 23:33:28 -0300 |
| commit | c46626351cb23fdb990174ad86da00bd4e159c81 (patch) | |
| tree | a214d94da30ebd419c7647cfc277dd6785c0dbf2 /lisp/emacs-lisp | |
| parent | 605c9376615199941166d9441add6b55be23f2ce (diff) | |
| download | emacs-c46626351cb23fdb990174ad86da00bd4e159c81.tar.gz emacs-c46626351cb23fdb990174ad86da00bd4e159c81.tar.bz2 emacs-c46626351cb23fdb990174ad86da00bd4e159c81.zip | |
* lisp/emacs-lisp/eieio.el (defmethod): Fix typo in last change.
Diffstat (limited to 'lisp/emacs-lisp')
| -rw-r--r-- | lisp/emacs-lisp/eieio.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/emacs-lisp/eieio.el b/lisp/emacs-lisp/eieio.el index d71213bfac8..6abf9aa3657 100644 --- a/lisp/emacs-lisp/eieio.el +++ b/lisp/emacs-lisp/eieio.el @@ -1298,11 +1298,11 @@ Summary: (let* ((key (if (keywordp (car args)) (pop args))) (params (car args)) (arg1 (car params)) - (args (if (consp arg1) + (fargs (if (consp arg1) (cons (car arg1) (cdr params)) params)) (class (if (consp arg1) (nth 1 arg1))) - (code `(lambda ,args ,@(cdr args)))) + (code `(lambda ,fargs ,@(cdr args)))) `(progn ;; Make sure there is a generic and the byte-compiler sees it. (defgeneric ,method ,args |