[Openmcl-cvs-notifications] r9167 - /trunk/source/lib/nfcomp.lisp

[gb at clozure.com]

Author: gb
Date: Wed Apr 16 08:34:00 2008
New Revision: 9167

Log:
Make *FASDUMP-HASH* thread-private.

Modified:
    trunk/source/lib/nfcomp.lisp

Modified: trunk/source/lib/nfcomp.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/source/lib/nfcomp.lisp (original)
+++ trunk/source/lib/nfcomp.lisp Wed Apr 16 08:34:00 2008
@@ -906,7 +906,8 @@
 (defun fasl-scan (forms)
   (let* ((*fasdump-hash* (make-hash-table :size (length forms)          ; =
Crude estimate
                                           :rehash-threshold 0.9
-                                          :test 'eq))
+                                          :test 'eq
+					  :shared nil))
          (*make-load-form-hash* (make-hash-table :test 'eq))
          (*fasdump-read-package* nil)
          (*fasdump-global-offsets* nil)