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