[slime-cvs] CVS slime

[alendvai]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv12557

Modified Files:
	slime.el 
Log Message:
Fix slime-repl-defparameter by Kilian Sprotte


--- /project/slime/cvsroot/slime/slime.el	2007/01/17 15:44:29	1.748
+++ /project/slime/cvsroot/slime/slime.el	2007/01/20 14:15:17	1.749
@@ -4473,10 +4473,11 @@
 (defslime-repl-shortcut slime-repl-defparameter ("defparameter" "!")
   (:handler (lambda (name value)
               (interactive (list (slime-read-symbol-name "Name (symbol): " t)
-                                 (slime-read-from-minibuffer "Value: " "*")))
+                                 (slime-read-from-minibuffer "Value: "
+                                                             :initial-value "*")))
               (insert "(cl:defparameter " name " " value 
                       " \"REPL generated global variable.\")")
-              (slime-repl-send-input)))
+              (slime-repl-send-input t)))
   (:one-liner "Define a new global, special, variable."))
 
 (defslime-repl-shortcut slime-repl-compile-and-load ("compile-and-load" "cl")