From 5dc0561826f0574327f69116f5ef54362d8ec92f Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Wed, 14 Apr 2004 20:45:02 +0000 Subject: [PATCH] (fix_command): Use XDCR. --- src/callint.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/callint.c b/src/callint.c index 1d7d6f9f89f..50090db8b28 100644 --- a/src/callint.c +++ b/src/callint.c @@ -209,7 +209,7 @@ fix_command (input, values) Lisp_Object intail, valtail; for (intail = Fcdr (input), valtail = values; CONSP (valtail); - intail = Fcdr (intail), valtail = Fcdr (valtail)) + intail = Fcdr (intail), valtail = XCDR (valtail)) { Lisp_Object elt; elt = Fcar (intail); -- 2.39.2