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