[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
Log Message:
* swank.lisp (eval-in-emacs): Export it.


--- /project/slime/cvsroot/slime/ChangeLog	2011/01/28 19:19:30	1.2171
+++ /project/slime/cvsroot/slime/ChangeLog	2011/02/02 09:22:33	1.2172
@@ -1,3 +1,7 @@
+2011-02-02  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (eval-in-emacs): Export it.
+
 2011-01-28  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el (slime-check-location-filename-sanity): Guard
--- /project/slime/cvsroot/slime/swank.lisp	2011/01/26 07:17:51	1.735
+++ /project/slime/cvsroot/slime/swank.lisp	2011/02/02 09:22:33	1.736
@@ -64,7 +64,8 @@
            #:default-directory
            #:set-default-directory
            #:quit-lisp
-           #:eval-for-emacs))
+           #:eval-for-emacs
+           #:eval-in-emacs))
 
 (in-package :swank)
 
@@ -1818,7 +1819,8 @@
               (princ-to-string form)))))
 
 (defun eval-in-emacs (form &optional nowait)
-  "Eval FORM in Emacs."
+  "Eval FORM in Emacs. 
+`slime-enable-evaluate-in-emacs' should be set to T on the Emacs side."
   (cond (nowait 
          (send-to-emacs `(:eval-no-wait ,(process-form-for-emacs form))))
         (t