From e27974cf76307b9dc3eefb9c1a04b7e804eb3a57 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Sat, 23 Oct 2010 00:53:35 +0200 Subject: [PATCH] Unknown FUNCALL forms must be tagged as side-effect full --- src/cmp/cmpcall.lsp | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp index 18299446e..2def3e0c9 100644 --- a/src/cmp/cmpcall.lsp +++ b/src/cmp/cmpcall.lsp @@ -24,7 +24,8 @@ (defun unoptimized-funcall (fun arguments) (let ((l (length arguments))) (if (<= l si::c-arguments-limit) - (make-c1form* 'FUNCALL :args (c1expr fun) (c1args* arguments)) + (make-c1form* 'FUNCALL :sp-change t :side-effects t + :args (c1expr fun) (c1args* arguments)) (unoptimized-long-call fun arguments)))) (defun c1funcall (args)