--- gp-parse.l.orig	Fri Aug  5 03:56:45 2005
+++ gp-parse.l	Fri Nov 11 21:56:26 2005
@@ -269,6 +269,13 @@
   ImportName = ImportFile = NULL;
 }
 
+#define YY_USER_ACTION UserAction ();
+static inline void UserAction (void)
+{
+  if ((*mp_yytext == 'I' || *mp_yytext == 'i') && !strcasecmp (mp_yytext, "implementation"))
+    SetImplementation ();
+}
+
 %}
 
 WS        [ \t\n]
@@ -338,8 +345,6 @@
                                         case 'i':
                                         case 'I': if (!strcasecmp (mp_yytext, "import"))
                                                     BEGIN (Import1);
-                                                  else if (!strcasecmp (mp_yytext, "implementation"))
-                                                    SetImplementation ();
                                                   break;
                                         case 'e':
                                         case 'E': if (!strcasecmp (mp_yytext, "export"))