[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime.el swank.lisp 
Log Message:
* slime.el (slime-dispatch-event): :eval-no-wait, lisp sends a
form in a string, not a function name and arguments. Add
slime-check-eval-in-emacs-enabled.
* swank.lisp (defpackage): export eval-for-emacs.


--- /project/slime/cvsroot/slime/ChangeLog	2010/07/30 16:14:50	1.2117
+++ /project/slime/cvsroot/slime/ChangeLog	2010/08/04 18:20:22	1.2118
@@ -1,3 +1,10 @@
+2010-08-04  Stas Boukarev  <stassats at gmail.com>
+
+	* slime.el (slime-dispatch-event): :eval-no-wait, lisp sends a
+	form in a string, not a function name and arguments. Add
+	slime-check-eval-in-emacs-enabled.
+	* swank.lisp (defpackage): export eval-for-emacs.
+
 2010-07-30  Helmut Eller  <heller at common-lisp.net>
 
 	Don't get confused by END-OF-FILE on unrelated streams.
--- /project/slime/cvsroot/slime/slime.el	2010/07/30 16:14:50	1.1330
+++ /project/slime/cvsroot/slime/slime.el	2010/08/04 18:20:22	1.1331
@@ -2270,8 +2270,9 @@
            (setf (slime-lisp-features) features))
           ((:indentation-update info)
            (slime-handle-indentation-update info))
-          ((:eval-no-wait fun args)
-           (apply (intern fun) args))
+          ((:eval-no-wait form)
+           (slime-check-eval-in-emacs-enabled)
+           (eval (read form)))
           ((:eval thread tag form-string)
            (slime-check-eval-in-emacs-enabled)
            (slime-eval-for-lisp thread tag form-string))
--- /project/slime/cvsroot/slime/swank.lisp	2010/07/30 16:14:50	1.722
+++ /project/slime/cvsroot/slime/swank.lisp	2010/08/04 18:20:22	1.723
@@ -63,7 +63,8 @@
            #:profile-package
            #:default-directory
            #:set-default-directory
-           #:quit-lisp))
+           #:quit-lisp
+           #:eval-for-emacs))
 
 (in-package :swank)