mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-17 06:42:18 -08:00
Code Issues Projects Releases Packages Wiki Activity

In C2CALL-GLOBAL use the form primary type as expected type.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-28 15:59:13 +01:00
parent 6ac809efba
commit a097641aff
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcall.lsp
View file

@ -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))))