[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Make it easier to start a non-default Lisp from ELisp code.

* slime.el (slime): If the argument is a symbol start the
corresponding entry in slime-lisp-implementations.
Typical use is something like:
  (defun cmucl () (interactive) (slime 'cmucl))



--- /project/slime/cvsroot/slime/ChangeLog	2008/01/27 10:15:48	1.1273
+++ /project/slime/cvsroot/slime/ChangeLog	2008/01/27 15:34:27	1.1274
@@ -1,3 +1,12 @@
+2008-01-27  Helmut Eller  <heller at common-lisp.net>
+
+	Make it easier to start a non-default Lisp from ELisp code.
+	
+	* slime.el (slime): If the argument is a symbol start the
+	corresponding entry in slime-lisp-implementations.
+	Typical use is something like:
+	  (defun cmucl () (interactive) (slime 'cmucl))
+
 2008-01-22  Luís Oliveira  <loliveira at common-lisp.net>
 
 	* swank-source-path-parser.lisp (make-source-recording-readtable):
--- /project/slime/cvsroot/slime/slime.el	2008/01/27 10:15:52	1.895
+++ /project/slime/cvsroot/slime/slime.el	2008/01/27 15:34:27	1.896
@@ -1179,7 +1179,9 @@
   (interactive)
   (let ((inferior-lisp-program (or command inferior-lisp-program))
         (slime-net-coding-system (or coding-system slime-net-coding-system)))
-    (slime-start* (slime-read-interactive-args))))
+    (slime-start* (cond ((and command (symbolp command))
+                         (slime-lisp-options command))
+                        (t (slime-read-interactive-args))))))
 
 (defvar slime-inferior-lisp-program-history '()
   "History list of command strings.  Used by `slime'.")