mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 07:30:55 -08:00
Code Issues Projects Releases Packages Wiki Activity

In MAYBE-PUSH-ARGS, a C variable was used initialized.

Browse source
This commit is contained in:
jjgarcia 2002-12-05 09:45:38 +00:00
parent 151cf73044
commit de9f5afdaf
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

@ -172,7 +172,7 @@
(< (length args) SI::C-ARGUMENTS-LIMIT))
(return-from maybe-push-args (values nil nil nil)))
(let* ((narg `(LCL ,(next-lcl))))
(wt-nl "{cl_index " narg ";")
(wt-nl "{cl_index " narg "=0;")
(let* ((*temp* *temp*)
(temp `(TEMP ,(next-temp)))
(*destination* temp))