From f10cae556391f36600d1125a65c56b64d7dfd482 Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Fri, 9 May 2008 07:47:43 +0000
Subject: [PATCH] GCC does not have "inline" extension when invoked in ANSI or
 STRICT mode.

---
 src/h/object.h | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/h/object.h b/src/h/object.h
index 2b7cc2c0c..ff0947d88 100644
--- a/src/h/object.h
+++ b/src/h/object.h
@@ -701,7 +701,7 @@ union cl_lispunion {
 /*
 	Type_of.
 */
-#if defined(__cplusplus) || defined(__GNUC__)
+#if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
 static inline cl_type type_of(cl_object o) {
 	int i = IMMEDIATE(o);
 	return (i? (cl_type)i : (cl_type)(o->d.t));