From b285ceec15b14eb2477a8f5122758f77c735ab56 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Thu, 20 Dec 2001 11:43:16 +0000
Subject: [PATCH] Fix type problems with C++ under FreeBSD

---
 src/c/string.d   | 2 +-
 src/c/unixsys.d  | 6 +++---
 src/h/external.h | 2 +-
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/src/c/string.d b/src/c/string.d
index 8d10d5e8a..d4c190778 100644
--- a/src/c/string.d
+++ b/src/c/string.d
@@ -96,7 +96,7 @@ make_simple_string(char *s)
 }
 
 cl_object
-make_string_copy(char *s)
+make_string_copy(const char *s)
 {
 	cl_object x;
 	cl_index l = strlen(s);
diff --git a/src/c/unixsys.d b/src/c/unixsys.d
index 94789b88a..bbfdddbdd 100644
--- a/src/c/unixsys.d
+++ b/src/c/unixsys.d
@@ -41,14 +41,14 @@ We use execv and supply the arg list, so execl doesn't have to realloc. CvdL */
 #include <sys/types.h>
 #include <sys/signal.h>
 #include <sys/wait.h>
+#include <signal.h>
 #include <stdlib.h>
 #include <stddef.h>
 #include <unistd.h>
 #include <paths.h>
 
 int
-system(command)
-	const char *command;
+system(char *command)
 {
 	union wait pstat;
 	pid_t pid;
@@ -66,7 +66,7 @@ system(command)
 		pstat.w_retcode = 127;
 		return(pstat.w_status);
 	case 0:	{			/* child */
-		const char *args[] = { "sh", "-c", command, (char *)NULL };
+		char *args[] = { "sh", "-c", command, (char *)NULL };
 		(void)sigsetmask(omask);
 	        execv(_PATH_BSHELL, args);
 		_exit(127);
diff --git a/src/h/external.h b/src/h/external.h
index 5c4a687f5..effb52e83 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -751,7 +751,7 @@ extern cl_object cl_alloc_simple_string(cl_index l);
 extern cl_object cl_alloc_adjustable_string(cl_index l);
 extern cl_object make_simple_string(char *s);
 #define make_constant_string(s) (make_simple_string((char *)s))
-extern cl_object make_string_copy(char *s);
+extern cl_object make_string_copy(const char *s);
 extern cl_object copy_simple_string(cl_object x);
 extern cl_object coerce_to_string(cl_object x);
 extern cl_object coerce_to_string_designator(cl_object x);