From 2bb423f29ea1062caf0457fd67b985dcf3268e0a Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Fri, 6 Aug 1993 13:11:02 +0000
Subject: [PATCH] Added some :test #'eq args.

---
 compiler/ir1tran.lisp | 12 ++++++------
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp
index ba60a281a..67036366c 100644
--- a/compiler/ir1tran.lisp
+++ b/compiler/ir1tran.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.92 1993/07/30 12:09:17 ram Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.93 1993/08/06 13:11:02 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -965,7 +965,7 @@
 	   (setf (lambda-var-specvar var)
 		 (specvar-for-binding name)))
 	  (null
-	   (unless (assoc name (new-venv))
+	   (unless (assoc name (new-venv) :test #'eq)
 	     (new-venv (cons name (specvar-for-binding name))))))))
     (if (new-venv)
 	(make-lexenv :default res  :variables (new-venv))
@@ -1003,7 +1003,7 @@
 ;;; defining, set its INLINEP.  If a global function, add a new FENV entry.
 ;;;
 (defun process-inline-declaration (spec res fvars)
-  (let ((sense (cdr (assoc (first spec) inlinep-translations)))
+  (let ((sense (cdr (assoc (first spec) inlinep-translations :test #'eq)))
 	(new-fenv ()))
     (dolist (name (rest spec))
       (let ((fvar (find name fvars :key #'leaf-name :test #'equal)))
@@ -2124,7 +2124,7 @@
   Transfer control to the named Tag in the lexically enclosing TAGBODY.  This
   is constrained to be used only within the dynamic extent of the TAGBODY."
   (continuation-starts-block cont)
-  (let* ((found (or (lexenv-find tag tags)
+  (let* ((found (or (lexenv-find tag tags :test #'eql)
 		    (compiler-error "Go to nonexistent tag: ~S." tag)))
 	 (entry (first found))
 	 (exit (make-exit :entry entry)))
@@ -2441,7 +2441,7 @@
 	    (def (second spec)))
 	(unless (symbolp name)
 	  (compiler-error "Symbol macro name is not a symbol: ~S." name))
-	(when (assoc name (res))
+	(when (assoc name (res) :test #'eq)
 	  (compiler-warning "Repeated name in SYMBOL-MACROLET: ~S." name))
 	(res `(,name . (MACRO . ,def)))))
 
@@ -3358,7 +3358,7 @@
 	  ((dolist (x variables nil)
 	     (let ((name (car x))
 		   (what (cdr x)))
-	       (when (eq x (assoc name variables))
+	       (when (eq x (assoc name variables :test #'eq))
 		 (typecase what
 		   (cons
 		    (assert (eq (car what) 'macro))
-- 
GitLab