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

The interface for ihs_push has changed

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-02-11 23:07:11 +01:00
parent 79006a2b8f
commit 4230533d58
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmplam.lsp
View file

@ -407,7 +407,7 @@ The function thus belongs to the type of functions that cl_make_cfun accepts."
(when fname-in-ihs-p
(push 'IHS *unwind-exit*)
(wt-nl "ihs_push(&ihs," (add-symbol fname) ",Cnil);"))
(wt-nl "ecl_ihs_push(cl_env_copy,&ihs," (add-symbol fname) ",Cnil);"))
;; Bind required parameters.
(do ((reqs requireds (cdr reqs))