From 93586f613ca7779e547752c3b32e5dc06af49019 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 9 Jun 2008 18:40:23 +0200 Subject: [PATCH] Only use OP_VBIND[S] for values other than 0-th --- src/c/compiler.d | 12 ++++++++++-- 1 file changed, 10 insertions(+), 2 deletions(-) diff --git a/src/c/compiler.d b/src/c/compiler.d index 0a1dfc26a..cee4b4476 100644 --- a/src/c/compiler.d +++ b/src/c/compiler.d @@ -1402,10 +1402,18 @@ c_multiple_value_bind(cl_object args, int flags) FEillegal_variable_name(var); if (c_declared_special(var, specials)) { c_register_var(var, FLAG_PUSH, TRUE); - asm_op2(OP_VBINDS, n); + if (n) { + asm_op2(OP_VBINDS, n); + } else { + asm_op(OP_BINDS); + } } else { c_register_var(var, FALSE, TRUE); - asm_op2(OP_VBIND, n); + if (n) { + asm_op2(OP_VBIND, n); + } else { + asm_op(OP_BIND); + } } asm_c(var); }