(debug_print): New function.

src/print.c

@@ -598,6 +598,15 @@ to make it write to the debugging output.\n")
   
   return character;
 }
+
+/* This is the interface for debugging printing.  */
+
+void
+debug_print (arg)
+     Lisp_Object arg;
+{
+  Fprin1 (arg, Qexternal_debugging_output);
+}
 
 #ifdef LISP_FLOAT_TYPE