mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-07 21:00:39 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fixed type coercion in system()

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2013-04-02 23:11:38 +02:00
parent dab6a693b4
commit 51d0dcaaa3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpos-run.lsp
View file

@ -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)