mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-15 13:52:16 -08:00
Code Issues Projects Releases Packages Wiki Activity

Wrong # of arguments to c2call-global in c2fset.

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

2
src/cmp/cmptop.lsp
View file

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