From 989990e7e7b5f878a6fccffdc86af759d0e29628 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 1 Apr 2009 18:21:40 +0200 Subject: [PATCH] Wrong # of arguments to c2call-global in c2fset. --- src/cmp/cmptop.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmptop.lsp b/src/cmp/cmptop.lsp index de5d34d59..d6879a67c 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -681,7 +681,7 @@ (unless (and (not (fun-closure fun)) (eq *destination* 'TRASH)) (return-from c2fset - (c2call-global 'SI:FSET c1forms 'NIL (c1form-primary-type (second c1forms))))) + (c2call-global 'SI:FSET c1forms (c1form-primary-type (second c1forms))))) (let ((*inline-blocks* 0) (loc (data-empty-loc))) (push (list loc fname fun) *global-cfuns-array*)