From e2fe75e9c6ca073c415c4e654ba33357d5e91361 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@juanjo-imac.local>
Date: Wed, 1 Apr 2009 12:52:36 +0200
Subject: [PATCH] The code generated by cmpcbk.lsp passed a wrong # of
 arguments to ecl_apply_from_stack_frame().

---
 src/cmp/cmpcbk.lsp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/cmp/cmpcbk.lsp b/src/cmp/cmpcbk.lsp
index f3b1891f6..ad2f29bb1 100644
--- a/src/cmp/cmpcbk.lsp
+++ b/src/cmp/cmpcbk.lsp
@@ -110,7 +110,7 @@
                      n "," ct "));")
 	      (wt-nl "ecl_stack_frame_push(frame,ecl_make_foreign_data(&var"
                      n "," ct "," (ffi:size-of-foreign-type type) "));")))
-    (wt-nl "aux = ecl_apply_from_stack_frame(cl_env_copy,frame,"
+    (wt-nl "aux = ecl_apply_from_stack_frame(frame,"
            "ecl_fdefinition(" c-name-constant "));")
     (wt-nl "ecl_stack_frame_close(frame);")
     (when return-p