From 1a314f217242c8e45dec211e8fea7cd239e2b6a7 Mon Sep 17 00:00:00 2001
From: Stas Boukarev <stassats@gmail.com>
Date: Fri, 10 Feb 2017 04:47:53 +0300
Subject: [PATCH] Convert some #'eql hash-tables to #'eq hash-tables.

---
 src/compiler/constraint.lisp     | 2 +-
 src/compiler/ir2opt.lisp         | 2 +-
 src/compiler/pack-iterative.lisp | 2 +-
 src/compiler/physenvanal.lisp    | 2 +-
 src/pcl/walk.lisp                | 2 +-
 src/pcl/wrapper.lisp             | 2 +-
 6 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/src/compiler/constraint.lisp b/src/compiler/constraint.lisp
index cfe67dcb2..57a523be9 100644
--- a/src/compiler/constraint.lisp
+++ b/src/compiler/constraint.lisp
@@ -332,7 +332,7 @@
   (macrolet ((ensuref (place default)
                `(or ,place (setf ,place ,default)))
              (ensure-hash (place)
-               `(ensuref ,place (make-hash-table)))
+               `(ensuref ,place (make-hash-table :test #'eq)))
              (ensure-vec (place)
                `(ensuref ,place (make-array 8 :adjustable t :fill-pointer 0))))
     (etypecase y
diff --git a/src/compiler/ir2opt.lisp b/src/compiler/ir2opt.lisp
index 3d7fca814..14952824c 100644
--- a/src/compiler/ir2opt.lisp
+++ b/src/compiler/ir2opt.lisp
@@ -188,7 +188,7 @@
 
 (defun delete-unused-ir2-blocks (component)
   (declare (type component component))
-  (let ((live-2blocks (make-hash-table)))
+  (let ((live-2blocks (make-hash-table :test #'eq)))
     (labels ((mark-2block (2block)
                (declare (type ir2-block 2block))
                (when (gethash 2block live-2blocks)
diff --git a/src/compiler/pack-iterative.lisp b/src/compiler/pack-iterative.lisp
index 11b2c16aa..70c44efbf 100644
--- a/src/compiler/pack-iterative.lisp
+++ b/src/compiler/pack-iterative.lisp
@@ -263,7 +263,7 @@
   (let (component-vertices
         global-vertices
         local-vertices
-        (tn-vertex (make-hash-table)))
+        (tn-vertex (make-hash-table :test #'eq)))
     (loop for i upfrom 0
           for vertex in vertices
           do (let* ((tn (vertex-tn vertex))
diff --git a/src/compiler/physenvanal.lisp b/src/compiler/physenvanal.lisp
index 37866a265..989407f23 100644
--- a/src/compiler/physenvanal.lisp
+++ b/src/compiler/physenvanal.lisp
@@ -255,7 +255,7 @@
                         ;; Many components have no escapes, so we
                         ;; allocate it lazily.
                         (setf *functional-escape-info*
-                              (make-hash-table))))
+                              (make-hash-table :test #'eq))))
              ((bool ok) (gethash functional table)))
     (if ok
         bool
diff --git a/src/pcl/walk.lisp b/src/pcl/walk.lisp
index 50127984f..21d1863bc 100644
--- a/src/pcl/walk.lisp
+++ b/src/pcl/walk.lisp
@@ -762,7 +762,7 @@
       'no-init
       (cadr binding)))
 
-(defun let*-bindings (bindings &aux names inits (seen (make-hash-table)))
+(defun let*-bindings (bindings &aux names inits (seen (make-hash-table :test #'eq)))
   (dolist (binding (reverse bindings) (values names inits))
     (let ((name (let*-binding-name binding)))
       (push (cons name (gethash name seen)) names)
diff --git a/src/pcl/wrapper.lisp b/src/pcl/wrapper.lisp
index 1e083d93e..e5afbaeb4 100644
--- a/src/pcl/wrapper.lisp
+++ b/src/pcl/wrapper.lisp
@@ -122,7 +122,7 @@
   (not (null (layout-invalid wrapper))))
 
 ;;; We only use this inside INVALIDATE-WRAPPER.
-(defvar *previous-nwrappers* (make-hash-table))
+(defvar *previous-nwrappers* (make-hash-table :test #'eq))
 
 (defun %invalidate-wrapper (owrapper state nwrapper)
   (aver (member state '(:flush :obsolete) :test #'eq))
-- 
2.11.4.GIT