mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 23:50:56 -08:00
Code Issues Projects Releases Packages Wiki Activity

No need to override system()

Browse source
This commit is contained in:
jjgarcia 2001-12-20 17:18:40 +00:00
parent b285ceec15
commit 5d971b9de5
1 changed files with 3 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/c/unixsys.d
View file

@ -16,6 +16,7 @@
#include "ecl.h"
#if 0
#if !defined(__stdlib_h) && !defined(_STDLIB_H_) && !defined(__STDLIB_H__) && !defined(_STDLIB_H)
#include <signal.h>
int
@ -48,7 +49,7 @@ We use execv and supply the arg list, so execl doesn't have to realloc. CvdL */
#include <paths.h>
int
system(char *command)
system(const char *command)
{
union wait pstat;
pid_t pid;
@ -81,6 +82,7 @@ system(char *command)
return(pid == -1 ? -1 : pstat.w_status);
}
#endif
#endif
@(defun si::system (cmd)
volatile char *s;