tests.at: Add a test confirming that expressions are printed escapily.

[runlisp] / runlisp.c

diff --git a/runlisp.c b/runlisp.c
index b2708d742177879b7261c63f43239a6ff3a33417..5cd132077bedc5600414252828064e7c0a6c93ac 100644 (file)
--- a/runlisp.c
+++ b/runlisp.c
@@ -303,6 +303,9 @@ static void parse_options(int argc, char *argv[])
       default: flags |= AF_BOGUS; break;
     }
   }
+
+#undef FLAGOPT
+#undef CMDL
 }
 
 /* Extract and process the embedded options from a SCRIPT. */
@@ -495,11 +498,10 @@ int main(int argc, char *argv[])
 
   /* If we're in eval mode, then find the `eval.lisp' script. */
   if (!script)
-    script = config_subst_string_alloc
-      (&config, common, "<internal>",
-       "${@ENV:RUNLISP_EVAL?"
-        "${@CONFIG:eval-script?"
-          "${@data-dir}/eval.lisp}}");
+    script = config_subst_string_alloc(&config, common, "<internal>",
+                                      "${@ENV:RUNLISP_EVAL?"
+                                        "${@CONFIG:eval-script?"
+                                          "${@data-dir}/eval.lisp}}");
 
   /* We now have the script name, so publish it for `uiop'.
    *