From a097641aff071bd15b928ec2e0769186ea314a7c Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Wed, 28 Dec 2011 15:59:13 +0100
Subject: [PATCH] In C2CALL-GLOBAL use the form primary type as expected type.

---
 src/cmp/cmpcall.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp
index b660f624c..6519cfe72 100644
--- a/src/cmp/cmpcall.lsp
+++ b/src/cmp/cmpcall.lsp
@@ -89,7 +89,7 @@
       (return-from c2call-global))
     (let* ((*inline-blocks* 0)
            (*temp* *temp*))
-      (unwind-exit (call-global-loc fname fun args (c1form-type c1form)
+      (unwind-exit (call-global-loc fname fun args (c1form-primary-type c1form)
                                     (loc-type *destination*)))
       (close-inline-blocks))))