From 51d0dcaaa3636bd7556062653d8e809acacbf65a Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 2 Apr 2013 23:11:38 +0200 Subject: [PATCH] Fixed type coercion in system() --- src/cmp/cmpos-run.lsp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/cmp/cmpos-run.lsp b/src/cmp/cmpos-run.lsp index 50e70baf9..2ecbba13c 100755 --- a/src/cmp/cmpos-run.lsp +++ b/src/cmp/cmpos-run.lsp @@ -45,7 +45,7 @@ (let* ((command (format nil "~S~{ ~S~}" program args)) (base-string-command (si:copy-to-simple-base-string command)) (code (ffi:c-inline (base-string-command) (:object) :int - "system(#0->base_string.self)":one-liner t))) + "system((const char*)(#0->base_string.self))":one-liner t))) (values nil code nil))) (defun safe-run-program (program args)