[slime-cvs] CVS slime

[heller]

Update of /project/slime/cvsroot/slime
In directory clnet:/tmp/cvs-serv16913

Modified Files:
	swank-cmucl.lisp 
Log Message:
(remove-gc-hooks): The variables EXT:*GC-NOTIFY-AFTER* and
EXT:*NOTIFY-BEFORE* should hold functions and should be NIL. This
affects the function REMOVE-GC-HOOKS in swank-cmucl.lisp which sets
them to NIL, (should one happen to use it).  Set them back to the
original parameters.  Patch by Madhu <enometh at meer.net>


--- /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/11/23 23:13:27	1.168
+++ /project/slime/cvsroot/slime/swank-cmucl.lisp	2006/12/14 16:08:35	1.169
@@ -2178,8 +2178,8 @@
   (setq ext:*gc-notify-after* #'post-gc-hook))
 
 (defun remove-gc-hooks ()
-  (setq ext:*gc-notify-before* nil)
-  (setq ext:*gc-notify-after* nil))
+  (setq ext:*gc-notify-before* #'lisp::default-gc-notify-before)
+  (setq ext:*gc-notify-after* #'lisp::default-gc-notify-after))
 
 (defvar *install-gc-hooks* t
   "If non-nil install GC hooks")