move clearing of *FREE-FUNS* &co to WITH-IR1-NAMESPACE where they're …

…bound
akovalenko · Oct 3, 2012 · e49315b · e49315b
1 parent 1fd7c4a
commit e49315b
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 10 deletions.
diff --git a/src/compiler/macros.lisp b/src/compiler/macros.lisp
@@ -692,10 +692,15 @@
          (*free-funs* (make-hash-table :test 'equal))
          (*constants* (make-hash-table :test 'equal))
          (*source-paths* (make-hash-table :test 'eq)))
-     (handler-bind ((compiler-error #'compiler-error-handler)
+     (unwind-protect
-                    (style-warning #'compiler-style-warning-handler)
+          (handler-bind ((compiler-error #'compiler-error-handler)
-                    (warning #'compiler-warning-handler))
+                         (style-warning #'compiler-style-warning-handler)
-       ,@forms)))
+                         (warning #'compiler-warning-handler))
+            ,@forms)
+       (clrhash *free-funs*)
+       (clrhash *free-vars*)
+       (clrhash *constants*)
+       (clrhash *source-paths*))))
 
 ;;; Look up NAME in the lexical environment namespace designated by
 ;;; SLOT, returning the <value, T>, or <NIL, NIL> if no entry. The

diff --git a/src/compiler/main.lisp b/src/compiler/main.lisp
@@ -745,12 +745,6 @@ Examples:
 ;;; actually in use, so that this function could go away.
 (defun clear-stuff (&optional (debug-too t))
 
-  ;; Clear global tables.
-  (when (boundp '*free-funs*)
-    (clrhash *free-funs*)
-    (clrhash *free-vars*)
-    (clrhash *constants*))
-
   ;; Clear debug counters and tables.
   (clrhash *seen-blocks*)
   (clrhash *seen-funs*)