Debugger breakpoint improvements and integration tests

sources/environment/dfmc/application/app-server.dylan

@@ -58,6 +58,8 @@ define sealed class <dfmc-application> (<application>)
 
   slot application-stop-reason :: false-or(<stop-reason>) = #f;
 
+  sealed slot application-stop-reason-message :: false-or(<string>) = #f;
+
   // phoward added the following slots
 
   slot application-tether-status :: <application-startup-option> = #"start";

sources/environment/dfmc/application/control-protocols.dylan

@@ -152,10 +152,11 @@ define method run-application
           else
             dll-project? & dll-wrap? & phase == #"end"
           end;
-      debug-target-message(target, $debug-level,
-                           "Preparing %=: top? %=, dll? %=, dll-wrap? %=, phase %=",
-                           prepare-for-interaction?, top-level?,
-                           dll-project?, dll-wrap?, phase);
+      debug-target-message
+        (target, $debug-level,
+         "Preparing %=: for-interaction? %= top? %=, dll? %=, dll-wrap? %=, phase %=",
+         lib, prepare-for-interaction?, top-level?,
+         dll-project?, dll-wrap?, phase);
       if (prepare-for-interaction?)
         initialize-interactive-threads(application, thread);
         maybe-initialize-allocation-profiling(application)

sources/environment/dfmc/application/stop-reason-handlers.dylan

@@ -410,6 +410,7 @@ define method note-application-thread-message
   let thread :: false-or(<thread-object>)
     = stop-reason-thread-object(application, stop-reason);
   let message :: <string> = compose-application-message(application, stop-reason);
+  application.application-stop-reason-message := message;
   invoke-application-callback
     (application, application-thread-message-callback,
      thread, message)
@@ -437,13 +438,6 @@ end method note-application-process-finished;
 
 define constant $depth-indentation = 2;
 
-define sealed method application-stop-reason-message
-    (application :: <dfmc-application>)
- => (message :: false-or(<string>))
-  let stop-reason = application.application-stop-reason;
-  stop-reason & compose-application-message(application, stop-reason)
-end method application-stop-reason-message;
-
 define method compose-application-message
     (application :: <dfmc-application>, stop-reason :: <stop-reason>)
  => (message :: <string>)
@@ -1044,6 +1038,7 @@ define function finish-debugging-transaction
     (application :: <dfmc-application>, stop-reason :: <stop-reason>)
  => ()
   application.application-stop-reason := #f;
+  application.application-stop-reason-message := #f;
   application.application-just-initialized? := #f;
   application.application-reached-interaction-point? := #f;
   application.application-just-finished-execution? := #f;

sources/environment/dfmc/application/thread-objects.dylan

@@ -672,7 +672,10 @@ end method;
 
 define method initialize-interactive-threads
     (application :: <dfmc-application>, thread :: <remote-thread>)
-  => ()
+ => ()
+  assert(application.application-initialized-interactive-threads? == #f,
+         "the interactive threads should only be spawned once");
+
   // Spawn these three interactive threads after
   // library initialization is complete
   let target = application.application-target-app;

sources/environment/protocols/project-objects.dylan

@@ -1224,7 +1224,7 @@ define method %find-environment-object
 end method %find-environment-object;
 
 define method find-environment-object
-    (project :: <project-object>, id :: <definition-id>,
+    (project :: <project-object>, id :: <id>,
      #rest keys,
      #key, #all-keys)
  => (object :: false-or(<environment-object>))