anchor.diff:                      :package)
                 :prompt))
     (setf lem-lisp-syntax:*get-features-function* 'features)
  -  (slime-repl)
  +  (when start-repl (start-slime-repl))
     (start-thread))
   
   (defun log-message (message)
  
positive.code:                     (loop
                        (unless (connected-p)
                          (return))
                        (when (swank-protocol:message-waiting-p *connection* :timeout 3)
                          (let ((barrior t))
                            (send-event (lambda ()
                                          (unwind-protect (progn (pull-events)
  
negative.code:                             (sleep 0.1))))))
                    :name "slime-wait-message"))
  
  (define-command slime-connect (hostname port &optional (start-repl t))
      ((list (prompt-for-string "Hostname: " "localhost")
             (parse-integer (prompt-for-string "Port: " (princ-to-string *default-port*)))
             t))
    (setf *connection* (make-instance 'swank-protocol:connection :hostname hostname :port port))
    (message "Connecting...")
    (handler-case (swank-protocol:connect *connection*)
  