[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

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

Modified Files:
	ChangeLog slime-repl.el 
Log Message:
* swank.lisp (clear-repl-variables): New functions, clears *, /,
and + variables.

* contrib/slime-repl.el (slime-clear-repl-variables): New function, clears *, /,
and + variables.
(slime-repl-clear-buffer-hook): Add `slime-clear-repl-variables'
to it, now C-c M-o clears variables, allowing bound objects to be GCed.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/05 11:21:40	1.496
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2011/10/05 11:58:00	1.497
@@ -1,3 +1,10 @@
+2011-10-05  Stas Boukarev  <stassats at gmail.com>
+
+	* slime-repl.el (slime-clear-repl-variables): New function, clears *, /,
+	and + variables.
+	(slime-repl-clear-buffer-hook): Add `slime-clear-repl-variables'
+	to it, now C-c M-o clears variables, allowing bound objects to be GCed.
+
 2011-10-05  Anton Kovalenko  <anton at sw4me.com>
 
 	* swank-asdf.lisp (asdf-system-directory): preserve
--- /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/10/01 19:45:54	1.55
+++ /project/slime/cvsroot/slime/contrib/slime-repl.el	2011/10/05 11:58:00	1.56
@@ -863,8 +863,14 @@
     (goto-char slime-repl-input-start-mark)
     (line-beginning-position)))
 
+(defun slime-clear-repl-variables ()
+  (interactive)
+  (slime-eval-async `(swank:clear-repl-variables)))
+
 (defvar slime-repl-clear-buffer-hook)
 
+(add-hook 'slime-repl-clear-buffer-hook 'slime-clear-repl-variables)
+
 (defun slime-repl-clear-buffer ()
   "Delete the output generated by the Lisp process."
   (interactive)