mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 01:10:53 -07:00
Code Issues Projects Releases Packages Wiki Activity

Do not pass a location to CALL-UNKNOWN-GLOBAL when we do not have a function object.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-04-01 18:22:10 +02:00
parent 989990e7e7
commit 0424caf763
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/cmp/cmpcall.lsp
View file

@ -135,7 +135,7 @@
;; Call to a global (SETF ...) function
((not (symbolp fname))
(call-unknown-global-loc fname fun args))
(call-unknown-global-loc fname nil args))
;; Call to a function whose C language function name is known,
;; either because it has been proclaimed so, or because it belongs
@ -150,7 +150,7 @@
((multiple-value-setq (found fd minarg maxarg) (si::mangle-name fname t))
(call-exported-function-loc fname args fd minarg maxarg t))
(t (call-unknown-global-loc fname fun args))))
(t (call-unknown-global-loc fname nil args))))
(defun call-loc (fname fun args)
`(CALL-NORMAL ,fun ,(coerce-locs args)))