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

[Matthias Koeppe]

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

Modified Files:
	swank-cmucl.lisp 
Log Message:
(eval-in-emacs): Removed.
(send-to-emacs): New.
(pre-gc-hook, post-gc-hook): Use new protocol message
:background-message rather than eval-in-emacs.

Date: Mon Aug 29 21:33:26 2005
Author: mkoeppe

Index: slime/swank-cmucl.lisp
diff -u slime/swank-cmucl.lisp:1.151 slime/swank-cmucl.lisp:1.152
--- slime/swank-cmucl.lisp:1.151	Sun Aug 28 16:47:51 2005
+++ slime/swank-cmucl.lisp	Mon Aug 29 21:33:26 2005
@@ -2065,8 +2065,8 @@
 (defun sending-safe-p () (symbol-value (swank-sym :*emacs-connection*)))
 
 ;; this should probably not be here, but where else?
-(defun eval-in-emacs (form nowait)
-  (funcall (swank-sym :eval-in-emacs) form nowait))
+(defun send-to-emacs (message)
+  (funcall (swank-sym :send-to-emacs) message))
 
 (defun print-bytes (nbytes &optional stream)
   "Print the number NBYTES to STREAM in KB, MB, or GB units."
@@ -2100,7 +2100,7 @@
   (let ((msg (format nil "[Commencing GC with ~A in use.]" 
 		     (print-bytes bytes-in-use))))
     (when (sending-safe-p)
-      (eval-in-emacs `(slime-background-message "%s" ,msg) t))))
+      (send-to-emacs `(:background-message ,msg)))))
 
 (defun post-gc-hook (bytes-retained bytes-freed trigger)
   (declare (ignore trigger))
@@ -2113,7 +2113,7 @@
                      #-gencgc""
                      seconds)))
     (when (sending-safe-p)
-      (eval-in-emacs `(slime-background-message "%s" ,msg) t))))
+      (send-to-emacs `(:background-message ,msg)))))
 
 (defun install-gc-hooks ()
   (setq ext:*gc-notify-before* #'pre-gc-hook)