anchor.diff:                              (sleep 0.1))))))
                     :name "slime-wait-message"))
   
  -(define-command slime-connect (hostname port)
  +(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*)))))
  +           (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*)
  
positive.code: (defun connected-p ()
    (not (null *connection*)))
  
  (defun check-connection ()
    (unless (connected-p)
      (editor-error "Not connected.")))
  
  (defun buffer-package (buffer &optional default)
    (or (lem.lisp-mode::lisp-buffer-package buffer)
  
negative.code:                     (loop
                        (unless (connected-p)
                          (return))
                        (when (swank-protocol:message-waiting-p *connection* :timeout 10)
                          (let ((barrior t))
                            (send-event (lambda ()
                                          (unwind-protect (progn (pull-events)
  