(defun edit ()
  (cond ((null (cadr (get-process-information "LISP_EDIT")))
         (spawn
          :command-string (car (translate-logical-name "lisp_editor"))
          :process-name "LISP_EDIT" ))
        (t (attach "LISP_EDIT")) ))
         
(defun dcl ()
  (let ((pid (cadr (get-process-information nil :owner-pid))))
       (cond ((zerop pid)
              (format t "You are not running lisp in a subprocess."))
             (t (attach pid)) )))