diff options
| author | Richard M. Stallman | 2002-07-12 17:41:00 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 2002-07-12 17:41:00 +0000 |
| commit | f988b5415433340ac4cf4a67b3f10ce1c4740bf7 (patch) | |
| tree | da0a9fde5a1c27cd58d0cfcb1c733b8880bb2e02 | |
| parent | 56ce04a35198766b37026a546b79963dfc21579c (diff) | |
| download | emacs-f988b5415433340ac4cf4a67b3f10ce1c4740bf7.tar.gz emacs-f988b5415433340ac4cf4a67b3f10ce1c4740bf7.zip | |
(multiple-value-call): Add alias.
| -rw-r--r-- | lisp/emacs-lisp/cl.el | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/lisp/emacs-lisp/cl.el b/lisp/emacs-lisp/cl.el index 9a5677237a8..6242096df88 100644 --- a/lisp/emacs-lisp/cl.el +++ b/lisp/emacs-lisp/cl.el | |||
| @@ -229,6 +229,8 @@ right when EXPRESSION calls an ordinary Emacs Lisp function that returns just | |||
| 229 | one value." | 229 | one value." |
| 230 | (apply function expression)) | 230 | (apply function expression)) |
| 231 | 231 | ||
| 232 | (defalias 'multiple-value-call 'apply) ; only works for one arg | ||
| 233 | |||
| 232 | (defsubst nth-value (n expression) | 234 | (defsubst nth-value (n expression) |
| 233 | "Evaluate EXPRESSION to get multiple values and return the Nth one. | 235 | "Evaluate EXPRESSION to get multiple values and return the Nth one. |
| 234 | This handles multiple values in Common Lisp style, but it does not work | 236 | This handles multiple values in Common Lisp style, but it does not work |