From 26c7ae2baf8c1faca5b7298efdd2c14a88217585 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jun 1997 21:52:15 +0000
Subject: [PATCH] =?utf8?q?SPECIALIZER=3D=3F=20was=20not=20handling=20the?=
 =?utf8?q?=20case=20of=20mixed=20arguments=20properly.?=

---
 v7/src/sos/method.scm | 9 +++------
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/v7/src/sos/method.scm b/v7/src/sos/method.scm
index 41328bf11..8e11e3d74 100644
--- a/v7/src/sos/method.scm
+++ b/v7/src/sos/method.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: method.scm,v 1.7 1997/06/19 21:45:12 cph Exp $
+;;; $Id: method.scm,v 1.8 1997/06/19 21:52:15 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -288,11 +288,8 @@
 	      (specializers=? (cdr s1) (cdr s2))))))
 
 (define (specializer=? s1 s2)
-  (or (eq? s1 s2)
-      (and (union-specializer? s1)
-	   (union-specializer? s2)
-	   (eq-set=? (union-specializer-classes s1)
-		     (union-specializer-classes s2)))))
+  (eq-set=? (specializer-classes s1)
+	    (specializer-classes s2)))
 
 (define (eq-set=? x y)
   (and (for-all? x (lambda (x) (memq x y)))
-- 
2.25.1