[slime-cvs] CVS slime

[heller]

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

Modified Files:
	ChangeLog slime.el 
Log Message:
Remove define-slime-dialect.

* slime.el (define-slime-dialect): Deleted. Use
slime-lisp-implementations instead.



--- /project/slime/cvsroot/slime/ChangeLog	2007/09/19 11:30:31	1.1223
+++ /project/slime/cvsroot/slime/ChangeLog	2007/09/19 11:32:35	1.1224
@@ -1,5 +1,10 @@
 2007-09-19  Helmut Eller  <heller at common-lisp.net>
 
+	Remove define-slime-dialect.
+
+	* slime.el (define-slime-dialect): Deleted. Use
+	slime-lisp-implementations instead.
+
 	Introduce a slime-start-and-init function.
 
 	* slime.el (slime-start-and-init, slime-lisp-options): New
--- /project/slime/cvsroot/slime/slime.el	2007/09/19 11:29:49	1.867
+++ /project/slime/cvsroot/slime/slime.el	2007/09/19 11:32:35	1.868
@@ -1437,23 +1437,6 @@
                         (when package
                           (slime-repl-set-package (second package)))))))
 
-(defmacro define-slime-dialect (name &optional program hook)
-  "Define a command slime-dialect-NAME to start a specific Lisp.
-PROGRAM is the command to start the inferior process.
-HOOK is function which is run before the process is started."
-  (let ((funsym (intern (format "slime-dialect-%s" name)))
-        (hooksym (intern (format "slime-dialect-%s-hook" name)))
-        (progsym (intern (format "slime-dialect-%s-program" name))))
-    `(progn
-       (defvar ,progsym ,program)
-       (defvar ,hooksym ,hook)
-       (defun ,funsym ()
-         ,(format "Start up slime according to `%s'." progsym)
-         (interactive)
-         (let ((inferior-lisp-program ,progsym))
-           (run-hooks ',hooksym)
-           (call-interactively 'slime))))))
-
 ;;;;; Start inferior lisp
 ;;;
 ;;; Here is the protocol for starting SLIME: