[slime-cvs] CVS slime

[CVS User alendvai]

Update of /project/slime/cvsroot/slime
In directory cl-net:/tmp/cvs-serv26654

Modified Files:
	slime.el 
Log Message:
slime-lookup-lisp-implementation has better error reporting and allows using a functionp to generate the arguments

--- /project/slime/cvsroot/slime/slime.el	2010/10/15 16:21:32	1.1345
+++ /project/slime/cvsroot/slime/slime.el	2010/10/15 16:25:50	1.1346
@@ -1129,8 +1129,14 @@
                (list :program program :program-args args))))))
 
 (defun slime-lookup-lisp-implementation (table name)
-  (destructuring-bind (name (prog &rest args) &rest keys) (assoc name table)
-    (list* :name name :program prog :program-args args keys)))
+  (let ((arguments (rest (assoc name table))))
+    (unless arguments
+      (error "Could not find lisp implementation with the name '%S'" name))
+    (when (and (= (length arguments) 1)
+               (functionp (first arguments)))
+      (setf arguments (funcall (first arguments))))
+    (destructuring-bind ((prog &rest args) &rest keys) arguments
+      (list* :name name :program prog :program-args args keys))))
 
 (defun* slime-start (&key (program inferior-lisp-program) program-args 
                           directory