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:                  (setf (current-window) repl-window))))
              (t
               (kill-buffer buffer))))))
  
  (define-command sldb-default-action () ()
    (let ((action (text-property-at (current-point) 'action)))
      (when action (funcall action))))
  
  (define-command sldb-details-down () ()
    (let ((p (current-point)))
  