From eb2260df71bda5b948af060e5cdc1c2372d4eafb Mon Sep 17 00:00:00 2001
From: chiles <chiles>
Date: Thu, 13 Jun 1991 15:05:31 +0000
Subject: [PATCH] Eliminated some silly shit, so William could compile this
 file to build a new RT system.

---
 hemlock/debug.lisp | 79 ++++++++++++++++++++--------------------------
 1 file changed, 35 insertions(+), 44 deletions(-)

diff --git a/hemlock/debug.lisp b/hemlock/debug.lisp
index 1fef800aa..94bac73a9 100644
--- a/hemlock/debug.lisp
+++ b/hemlock/debug.lisp
@@ -6,10 +6,8 @@
 ;;; If you want to use this code or any part of CMU Common Lisp, please contact
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
-#|
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/debug.lisp,v 1.2 1991/05/29 11:40:48 chiles Exp $")
-|#
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/debug.lisp,v 1.3 1991/06/13 15:05:31 chiles Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -23,7 +21,7 @@
 
 
 
-;;;; Commands for slave buffers.
+;;;; DEFINE-DEBUGGER-COMMAND.
 
 (defmacro define-debugger-command (name doc cmd &key uses-argument)
   `(defcommand ,(concatenate 'simple-string "Debug " name) (p)
@@ -41,9 +39,9 @@
 	       cmd)))
        (wire:wire-force-output wire))))
 
-;;;
-;;; Frame changing commands.
-;;;
+
+
+;;;; Frame changing commands.
 
 (define-debugger-command "Up"
   "Moves the \"Current Eval Server\" up one debugger frame."
@@ -67,9 +65,9 @@
   :frame
   :uses-argument t)
 
-;;;
-;;; In and Out commands.
-;;;
+
+
+;;;; In and Out commands.
 
 (define-debugger-command "Quit"
   "In the \"Current Eval Server\", throws to top level out of the debugger."
@@ -89,9 +87,9 @@
   :restart
   :uses-argument t)
 
-;;;
-;;; Information commands.
-;;;
+
+
+;;;; Information commands.
 
 (define-debugger-command "Help"
   "In the \"Current Eval Server\", prints the debugger's help text."
@@ -121,9 +119,6 @@
    current frame."
   :list-locals)
 
-;;; This should probably take you to the source in the editor.
-;;; Maybe split the windows?
-;;;
 (define-debugger-command "Source"
   "In the \"Current Eval Server\", prints the source form for the debugger's
    current frame."
@@ -134,33 +129,16 @@
    current frame with surrounding forms for context."
   :vsource)
 
-;;; Okay, the :edit-source command in the debugger initiates a synchronous RPC
-;;; into the editor via the wire in *termina-io*, a typescript stream.  This
-;;; routine takes the necessary values, a file and source-path, and changes
-;;; the editor's state to edit that.
-;;;
-;;; This command has to wait on SERVE-EVENT until some special is set by the
-;;; RPC routine saying it is okay to return to the editor's top level.
-;;;
-(defcommand "Debug Edit Source" (p)
-  "Give the \"Current Eval Server\"'s current debugger frame, place the user
-   at the location's source in the editor."
-  "Give the \"Current Eval Server\"'s current debugger frame, place the user
-   at the location's source in the editor."
-  (declare (ignore p))
-  (let* ((server-info (get-current-eval-server t))
-	 (wire (server-info-wire server-info)))
-    (wire:remote wire
-      (ts-stream-accept-input
-       (ts-data-stream (server-info-slave-info server-info))
-       :edit-source))
-    (wire:wire-force-output wire))))
 
+
+;;;; Source editing.
 
-;;; Okay, the :edit-source command in the slave debugger initiates a
-;;; synchronous RPC into the editor via the wire in *termina-io*, a typescript
-;;; stream.  This routine takes the necessary values, a file and source-path,
-;;; and changes the editor's state to edit that.
+;;; "Debug Edit Source" -- Command.
+;;;
+;;; The :edit-source command in the slave debugger initiates a synchronous RPC
+;;; into the editor via the wire in *terminal-io*, a typescript stream.  This
+;;; routine takes the necessary values, a file and source-path, and changes the
+;;; editor's state to display that location.
 ;;;
 ;;; This command has to wait on SERVE-EVENT until some special is set by the
 ;;; RPC routine saying it is okay to return to the editor's top level.
@@ -292,9 +270,22 @@
 (defun cannot-edit-source-location ()
   (throw 'editor-top-level nil))
 
-;;;
-;;; Miscellaneous commands.
-;;;
+#|
+(defcommand "Debug Breakpoint" (p)
+  "This tries to set a breakpoint in the \"Current Eval Server\" at the
+   location designated by the current point.  If there is no known code
+   location at the point, then this moves the point to the closest location
+   before the point."
+  "This tries to set a breakpoint in the \"Current Eval Server\" at the
+   location designated by the current point.  If there is no known code
+   location at the point, then this moves the point to the closest location
+   before the point."
+  (declare (ignore p))
+  (with-mark ((m (current-point)))
+    (
+|#
+
+;;;; Miscellaneous commands.
 
 (define-debugger-command "Flush Errors"
   "In the \"Current Eval Server\", toggles whether the debugger ignores errors
-- 
GitLab