;; SLIME REPL version of <URL:http://www.eurogaran.com/downloads/lisp/emacs/lispmstyle.el> posted on <URL:http://groups.google.com/group/comp.lang.lisp/msg/acc4a822fd814f55?dmode=source>

(defun slime-lispmstyle-close-paren (&optional N)
  (interactive "P")
  (if (not N) (setq N 1))
  (self-insert-command N)
  (if (slime-input-complete-p
       slime-repl-input-start-mark
       (ecase slime-repl-return-behaviour
	 (:send-only-if-after-complete
	  (min (point) slime-repl-input-end-mark))
	 (:send-if-complete slime-repl-input-end-mark)))
      (slime-repl-send-input t)))
  
(define-key slime-repl-mode-map ")" 'slime-lispmstyle-close-paren)