[slime-cvs] CVS update: slime/slime.el

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv22618

Modified Files:
	slime.el 
Log Message:
(slime): Arguments should be optional.
Date: Sun Oct  3 14:56:10 2004
Author: heller

Index: slime/slime.el
diff -u slime/slime.el:1.407 slime/slime.el:1.408
--- slime/slime.el:1.407	Sun Oct  3 14:25:58 2004
+++ slime/slime.el	Sun Oct  3 14:56:10 2004
@@ -1157,16 +1157,17 @@
 
 ;;;;; Entry points
 
-(defun slime (command buffer)
+(defun slime (&optional command buffer)
   "Start an inferior^_superior Lisp and connect to its Swank server."
   (interactive (list (if current-prefix-arg
-			 (read-string "Run lisp: " inferior-lisp-program)
-                       inferior-lisp-program)
+			 (read-string "Run lisp: " inferior-lisp-program))
                      "*inferior-lisp*"))
-  (when (or (not (slime-bytecode-stale-p))
-            (slime-urge-bytecode-recompile))
-    (let ((proc (slime-maybe-start-lisp command buffer)))
-      (slime-inferior-connect proc nil))))
+  (let ((command (or command inferior-lisp-program))
+        (buffer (or buffer "*inferior-lisp*")))
+    (when (or (not (slime-bytecode-stale-p))
+              (slime-urge-bytecode-recompile))
+      (let ((proc (slime-maybe-start-lisp command buffer)))
+        (slime-inferior-connect proc nil)))))
 
 (defun slime-connect (host port &optional kill-old-p)
   "Connect to a running Swank server."