# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 1026495660 0
# Node ID 606fc43dc51eff4493bb13d0811a8590f1155188
# Parent  d992f5698971d0108baa52cd4a751ca7ff5c8c3f
(multiple-value-call): Add alias.

diff -r d992f5698971 -r 606fc43dc51e lisp/emacs-lisp/cl.el
--- a/lisp/emacs-lisp/cl.el	Fri Jul 12 17:39:45 2002 +0000
+++ b/lisp/emacs-lisp/cl.el	Fri Jul 12 17:41:00 2002 +0000
@@ -229,6 +229,8 @@
 one value."
   (apply function expression))
 
+(defalias 'multiple-value-call 'apply)  ; only works for one arg
+
 (defsubst nth-value (n expression)
   "Evaluate EXPRESSION to get multiple values and return the Nth one.
 This handles multiple values in Common Lisp style, but it does not work