From 903aea5b9f16651e41527340c551d088defaebaf Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 5 Jun 2010 07:50:47 +0000
Subject: 	* driver/utils.c (openaxiom_execute_core): Don't let CLISP
 fool 	itself.

---
 src/driver/Makefile.in | 2 +-
 src/driver/utils.c     | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

(limited to 'src/driver')

diff --git a/src/driver/Makefile.in b/src/driver/Makefile.in
index 3862dfba..75e67763 100644
--- a/src/driver/Makefile.in
+++ b/src/driver/Makefile.in
@@ -64,7 +64,7 @@ open-axiom$(EXEEXT): $(open_axiom_objects)
 	$(LINK) -o $@ $(open_axiom_objects) $(open_axiom_LDADD)
 
 mostlyclean-local:
-	@rm -f $(axiom_objects)
+	@rm -f $(open_axiom_objects)
 	@rm -f *~ core
 
 clean-local: mostlyclean-local
diff --git a/src/driver/utils.c b/src/driver/utils.c
index d0d4ca86..ea8c4faf 100644
--- a/src/driver/utils.c
+++ b/src/driver/utils.c
@@ -392,6 +392,10 @@ openaxiom_execute_core(const openaxiom_command* command,
       something to tell about what GCL's own runtime is.  Silly.  */
    if (OPENAXIOM_BASE_RTS == openaxiom_gcl_runtime)
       args[0] = "";
+   /* And CLISP wants to believe that argv[0] is where it hides stuff
+      from the saved image.  */
+   else if (OPENAXIOM_BASE_RTS == openaxiom_clisp_runtime)
+      args[0] = execpath;
    else
       args[0] = command->core.argv[0];
    /* Now, make sure we copy whatever arguments are required by the
-- 
cgit v1.2.3