anchor.diff:  
   (define-command slime-connect (hostname port)
       ((list (minibuf-read-string "Hostname: " "localhost")
  -           (parse-integer (minibuf-read-string "Port: " "10000"))))
  +           (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*)
  
positive.code: 
  (defvar *process* nil)
  (defvar *default-port* 4005)
  
  (define-command slime () ()
    (setf *process*
  
negative.code:    (: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)
  