From 4230533d58efbc346630fd9eb5232efd2faf135b Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Wed, 11 Feb 2009 23:07:11 +0100 Subject: [PATCH] The interface for ihs_push has changed --- src/cmp/cmplam.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmplam.lsp b/src/cmp/cmplam.lsp index c6779b3ec..08fe6993f 100644 --- a/src/cmp/cmplam.lsp +++ b/src/cmp/cmplam.lsp @@ -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))