Skip to content
Snippets Groups Projects
Commit d2b449c4 authored by chiles's avatar chiles
Browse files

Deleted old, unusable command "Connect to Registered Eval Server".
parent 8336eae9
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.3 1991/02/08 16:36:11 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.4 1991/04/26 17:37:11 chiles Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -570,18 +570,6 @@ ...@@ -570,18 +570,6 @@
:buffer (current-buffer) :buffer (current-buffer)
:value (maybe-create-server)))) :value (maybe-create-server))))
#+ :IGNORETHIS
(defcommand "Connect Registered Eval Server" (p)
"Tries to connect to a registered eval server. Prompts for name."
"Tries to connect to a registered eval server. Prompts for name."
(declare (ignore p))
(connect-registered-eval-server
(prompt-for-string :prompt "Name to lookup: "
:help "Registered eval server to connect to.")
(prompt-for-string
:prompt "Local server name: "
:help "Editor's name for server and \"Background <name>\" buffer.")))
(defcommand "Evaluate Defun" (p) (defcommand "Evaluate Defun" (p)
"Evaluates the current or next top-level form. "Evaluates the current or next top-level form.
If the current region is active, then evaluate it." If the current region is active, then evaluate it."
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment