From eb8dbf74d71b630a9645692c021a7b6c35c71a48 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sun, 27 Dec 2009 23:24:17 +0100 Subject: [PATCH] Fixed typos in the generation of code for stack-push and stack-push-values. --- src/new-cmp/cmpstack.lsp | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/src/new-cmp/cmpstack.lsp b/src/new-cmp/cmpstack.lsp index 5a9e80239..2f0c47a0a 100644 --- a/src/new-cmp/cmpstack.lsp +++ b/src/new-cmp/cmpstack.lsp @@ -38,16 +38,16 @@ (defun c1stack-push (destination args) (let* ((var (c1vref (first args))) (value (second args))) - (c1translate 'VALUE0 value) - (c1stack-frame-push var 'VALUE0))) + (nconc (c1translate 'VALUE0 value) + (c1stack-frame-push var 'VALUE0)))) (defun c1stack-push-values (destination args) (unless (eq destination 'TRASH) (error "In C1STACK-PUSH-VALUES, destination should be TRASH")) (let* ((frame-var (pop args)) (form (pop args))) - (c1translate 'VALUES form) - (c1stack-frame-push-values (c1vref frame-var)))) + (nconc (c1translate 'VALUES form) + (c1stack-frame-push-values (c1vref frame-var))))) (defun c1stack-pop (destination args) (let* ((frame-var-name (pop args))