0.8.0.24:

[sbcl.git] / src / code / uncross.lisp

diff --git a/src/code/uncross.lisp b/src/code/uncross.lisp
index 68d6e00..bfb3c81 100644 (file)
--- a/src/code/uncross.lisp
+++ b/src/code/uncross.lisp
@@ -59,11 +59,11 @@
 ;;; (:COMPILE-TOPLEVEL)) do we call UNCROSS on them to obliterate the
 ;;; distinction.
 #+sb-xc-host
-(defun uncross (form)
-  (let ((;; KLUDGE: We don't currently try to handle circular program
-        ;; structure, but we do at least detect it and complain about
-        ;; it..
-        inside? (make-hash-table)))
+(let ((;; KLUDGE: We don't currently try to handle circular program
+       ;; structure, but we do at least detect it and complain about
+       ;; it..
+       inside? (make-hash-table)))
+  (defun uncross (form)
     (labels ((uncross-symbol (symbol)
                (let ((old-symbol-package (symbol-package symbol)))
                 (if (and old-symbol-package
@@ -119,4 +119,5 @@
                 (if (and (eq rcr-car car) (eq rcr-cdr cdr))
                   form
                   (cons rcr-car rcr-cdr)))))
+      (clrhash inside?)
       (rcr form))))