X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fdyncount.lisp;h=a8071c070f40cf8a8c8dd7cd4d8e0e0f1f65b4aa;hb=01044af1b8d69fc3899dc0417064c1512223223d;hp=76a03997aec45496228cc5e6de7960323c1095ad;hpb=34dd23563d2f5cf05c72b971da0d0b065a09bf2a;p=sbcl.git

diff --git a/src/code/dyncount.lisp b/src/code/dyncount.lisp
index 76a0399..a8071c0 100644
--- a/src/code/dyncount.lisp
+++ b/src/code/dyncount.lisp
@@ -531,8 +531,7 @@ comments from CMU CL:
 	     classes)))
 	 (compared (if compare
 		       (compare-stats compensated compare)
-		       compensated))
-	 (*gc-notify-stream* nil))
+		       compensated)))
     (multiple-value-bind (total-count total-cost) (cost-summary compensated)
       (multiple-value-bind (compare-total-count compare-total-cost)
 	  (when compare (cost-summary compare))