anchor.diff:     (:lime :lem-slime.lime)
      (:swank-protocol :lem-slime.swank-protocol)))
   (in-package :lem-slime)
  +
  +(defparameter *default-port* 4005)
   
   (defvar *slime-prompt-string*)
   (defvar *connection* nil)
  
positive.code: 
  (define-command slime-connect (hostname port)
      ((list (minibuf-read-string "Hostname: " "localhost")
             (parse-integer (minibuf-read-string "Port: " "10000"))))
    (setf *connection* (lime:make-connection hostname port))
    (message "Connecting...")
    (handler-case (lime:connect *connection*)
  
negative.code: 
  (defvar *process* nil)
  
  (define-command slime () ()
    (setf *process*
  