diff options
| -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 |