[slime-cvs] CVS slime

[CVS User sboukarev]

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

Modified Files:
	ChangeLog swank.lisp 
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/ChangeLog	2011/09/28 16:49:53	1.2217
+++ /project/slime/cvsroot/slime/ChangeLog	2011/10/05 11:58:00	1.2218
@@ -1,3 +1,8 @@
+2011-10-05  Stas Boukarev  <stassats at gmail.com>
+
+	* swank.lisp (clear-repl-variables): New functions, clears *, /,
+	and + variables.
+
 2011-09-28  Stas Boukarev  <stassats at gmail.com>
 
 	* slime.el: Remove (require 'hideshow), it's not used anymore.
--- /project/slime/cvsroot/slime/swank.lisp	2011/08/17 15:40:47	1.752
+++ /project/slime/cvsroot/slime/swank.lisp	2011/10/05 11:58:00	1.753
@@ -2260,6 +2260,11 @@
            (funcall *send-repl-results-function* values))))))
   nil)
 
+(defslimefun clear-repl-variables ()
+  (let ((variables '(*** ** * /// // / +++ ++ +)))
+    (loop for variable in variables
+          do (setf (symbol-value variable) nil))))
+
 (defun track-package (fun)
   (let ((p *package*))
     (unwind-protect (funcall fun)