From 50caf4c324f66f1bc978792a48901822f3cff591 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@sift.net>
Date: Tue, 15 Apr 2014 08:40:40 -0500
Subject: [PATCH] Explicitly do not CROSS-COMPILE when invoking sub-lisps.

---
 test/test-program.script | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/test/test-program.script b/test/test-program.script
index 7a09a78a..70d51ee3 100644
--- a/test/test-program.script
+++ b/test/test-program.script
@@ -36,6 +36,7 @@
      (symbol-call
       :lisp-invocation :lisp-invocation-arglist
       #+allegro :lisp-path #+allegro *lisp*
+      :cross-compile nil
       :load (native-namestring (subpathname *test-directory* "make-hello-world.lisp"))
       :eval (format nil "(asdf-test::make-hello-~a)" kind))
      :input nil :ignore-error-status t
@@ -61,6 +62,7 @@
      (symbol-call
       :lisp-invocation :lisp-invocation-arglist
       #+allegro :lisp-path #+allegro *lisp*
+      :cross-compile nil
       :image-path (native-namestring img)
       :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)")
      :output :lines :error-output t))
@@ -74,6 +76,7 @@
      :lisp-invocation :lisp-invocation-arglist
      #+allegro :lisp-path #+allegro *lisp*
      :image-path (native-namestring img)
+     :cross-compile nil
      :eval "(uiop:restore-image :entry-point 'hello:entry-point :lisp-interaction nil)"
      :arguments '("a" "b c" "d"))
     :output :lines :error-output t)
-- 
GitLab