[slime-cvs] CVS update: slime/swank.lisp

[Helmut Eller]

Update of /project/slime/cvsroot/slime
In directory common-lisp.net:/tmp/cvs-serv6244

Modified Files:
	swank.lisp 
Log Message:
(commit-edited-value): Use buffer syntax.

(compile-file-for-emacs, compile-string-for-emacs): Bind
*compile-print* to nil.

Date: Mon Mar 21 01:58:47 2005
Author: heller

Index: slime/swank.lisp
diff -u slime/swank.lisp:1.288 slime/swank.lisp:1.289
--- slime/swank.lisp:1.288	Wed Mar 16 23:03:18 2005
+++ slime/swank.lisp	Mon Mar 21 01:58:46 2005
@@ -1784,8 +1784,9 @@
 (defslimefun commit-edited-value (form value)
   "Set the value of a setf'able FORM to VALUE.
 FORM and VALUE are both strings from Emacs."
-  (eval `(setf ,(read-from-string form) ',(read-from-string value)))
-  t)
+  (with-buffer-syntax ()
+    (eval `(setf ,(read-from-string form) ',(read-from-string value)))
+    t))
 
 
 ;;;; Debugger
@@ -2071,7 +2072,8 @@
   "Compile FILENAME and, when LOAD-P, load the result.
 Record compiler notes signalled as `compiler-condition's."
   (with-buffer-syntax ()
-    (swank-compiler (lambda () (swank-compile-file filename load-p)))))
+    (let ((*compile-print* nil))
+      (swank-compiler (lambda () (swank-compile-file filename load-p))))))
 
 (defslimefun compile-string-for-emacs (string buffer position directory)
   "Compile STRING (exerpted from BUFFER at POSITION).
@@ -2079,8 +2081,9 @@
   (with-buffer-syntax ()
     (swank-compiler
      (lambda () 
-       (swank-compile-string string :buffer buffer :position position 
-                             :directory directory)))))
+       (let ((*compile-print* nil) (*compile-verbose* t))
+         (swank-compile-string string :buffer buffer :position position 
+                               :directory directory))))))
 
 (defslimefun operate-on-system-for-emacs (system-name operation &rest keywords)
   "Compile and load SYSTEM using ASDF.