anchor.diff:    (or (get-sldb-buffer thread)
         (get-buffer-create (format nil "*sldb ~D*" thread))))
   
  +(defun sldb-frame.number (frame) (first frame))
  +(defun sldb-frame.string (frame) (second frame))
  +(defun sldb-frame.plist (frame) (third frame))
  +
   (defun prune-initial-frames (frames)
     (or (loop :for frame :in frames
               :for (n form) := frame
  
positive.code: 
  (defun sldb-setup (thread level condition restarts frames conts)
    (let ((buffer (get-sldb-buffer-create thread)))
      (setf (buffer-read-only-p buffer) nil)
      (change-buffer-mode buffer 'sldb-mode)
      ;(setf (swank-protocol:connection-thread *connection*) thread)
      (setf (buffer-value buffer 'thread)
            thread
            (buffer-value buffer 'level)
  
negative.code:                                   (editor-error "Synchronous Lisp Evaluation aborted"))))
                 :package package
                 :thread (current-swank-thread))
        (loop (sit-for 10 nil)))))
  
  (defun lisp-eval-from-string (string &optional (package (current-package)))
    (lisp-eval-internal 'swank-protocol:emacs-rex-string string package))
  