From 0424caf76356e4f43371f8074da2844c0e06e1b7 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 1 Apr 2009 18:22:10 +0200 Subject: [PATCH] Do not pass a location to CALL-UNKNOWN-GLOBAL when we do not have a function object. --- src/cmp/cmpcall.lsp | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/cmp/cmpcall.lsp b/src/cmp/cmpcall.lsp index fc7698c10..72196e180 100644 --- a/src/cmp/cmpcall.lsp +++ b/src/cmp/cmpcall.lsp @@ -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)))