From: Christophe Rhodes Date: Tue, 30 Mar 2004 11:19:52 +0000 (+0000) Subject: 0.8.9.8: X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;ds=sidebyside;h=8c81c0972f9e70f124b57394b5be29d9e661a0c7;p=sbcl.git 0.8.9.8: Remove some warnings (Perry Metzinger sbcl-devel 2004-03-30 "some anti-warning patches") ... also improve the comment above extern char **environ Add required exit clause to load.impure.lisp --- diff --git a/src/runtime/coreparse.c b/src/runtime/coreparse.c index e01bf33..5cb6c64 100644 --- a/src/runtime/coreparse.c +++ b/src/runtime/coreparse.c @@ -16,6 +16,7 @@ #include #include +#include #include #include #include diff --git a/src/runtime/dynbind.c b/src/runtime/dynbind.c index 7b410c3..024b2fd 100644 --- a/src/runtime/dynbind.c +++ b/src/runtime/dynbind.c @@ -35,7 +35,9 @@ void bind_variable(lispobj symbol, lispobj value, void *th) lispobj old_tl_value; struct binding *binding; struct thread *thread=(struct thread *)th; +#ifdef LISP_FEATURE_SB_THREAD struct symbol *sym=(struct symbol *)native_pointer(symbol); +#endif binding = GetBSP(); SetBSP(binding+1); #ifdef LISP_FEATURE_SB_THREAD diff --git a/src/runtime/run-program.c b/src/runtime/run-program.c index 241db7f..5e3bd8f 100644 --- a/src/runtime/run-program.c +++ b/src/runtime/run-program.c @@ -19,9 +19,7 @@ #include #include #include -#if defined(SVR4) || defined(__linux__) #include -#endif #include #include diff --git a/src/runtime/save.c b/src/runtime/save.c index e901d98..ec630d5 100644 --- a/src/runtime/save.c +++ b/src/runtime/save.c @@ -11,6 +11,7 @@ #include #include +#include #include #include diff --git a/src/runtime/thread.c b/src/runtime/thread.c index e4e5664..3cfab33 100644 --- a/src/runtime/thread.c +++ b/src/runtime/thread.c @@ -1,5 +1,6 @@ #include #include +#include #include #include #include diff --git a/src/runtime/wrap.c b/src/runtime/wrap.c index c472309..f12e896 100644 --- a/src/runtime/wrap.c +++ b/src/runtime/wrap.c @@ -36,8 +36,10 @@ #include "sbcl.h" #include "util.h" -/* KLUDGE: Neither the OpenBSD nor the Linux man page give a header - * file to find this in (?). -- WHN 2002-02-07 */ +/* Although it might seem as though this should be in some standard + Unix header, according to Perry E. Metzger, in a message on + sbcl-devel dated 2004-03-29, this is the POSIXly-correct way of + using environ: by an explicit declaration. -- CSR, 2004-03-30 */ extern char **environ; /* diff --git a/tests/load.impure.lisp b/tests/load.impure.lisp index b54b374..c9eab11 100644 --- a/tests/load.impure.lisp +++ b/tests/load.impure.lisp @@ -33,3 +33,5 @@ (assert (not (array-has-fill-pointer-p *array*))))) (when tmp-fasl (delete-file tmp-fasl)) (delete-file *tmp-filename*)))) + +(quit :unix-status 104) diff --git a/version.lisp-expr b/version.lisp-expr index f1efc86..e880698 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"0.8.9.7" +"0.8.9.8"