From 35fa30dc2242ddede17b496caf17328bc50c4383 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 13 Oct 2008 22:57:46 +0200 Subject: [PATCH] There was one occurrence of ihs_push->ecl_ihs_push left --- 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 7c5648946..256e5e85a 100644 --- a/src/cmp/cmptop.lsp +++ b/src/cmp/cmptop.lsp @@ -626,7 +626,7 @@ ;; name into the invocation stack (when (>= (fun-debug fun) 2) (push 'IHS *unwind-exit*) - (wt-nl "ihs_push(cl_env_copy,&ihs," (add-symbol (fun-name fun)) ",Cnil);")) + (wt-nl "ecl_ihs_push(cl_env_copy,&ihs," (add-symbol (fun-name fun)) ",Cnil);")) (c2lambda-expr (c1form-arg 0 lambda-expr) (c1form-arg 2 lambda-expr)