From 4dedbb3e994cc24952f38507e8fb7c7263b1a650 Mon Sep 17 00:00:00 2001
From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jun 1997 21:45:12 +0000
Subject: [PATCH] =?utf8?q?Eliminate=20UNION-SPECIALIZER=3D=3F=20and=20UNIO?=
 =?utf8?q?N-SPECIALIZER-CLASSES.?=

---
 v7/src/sos/method.scm | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/v7/src/sos/method.scm b/v7/src/sos/method.scm
index 9e969a8b4..41328bf11 100644
--- a/v7/src/sos/method.scm
+++ b/v7/src/sos/method.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: method.scm,v 1.6 1997/06/19 21:35:04 cph Exp $
+;;; $Id: method.scm,v 1.7 1997/06/19 21:45:12 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -308,7 +308,7 @@
 	(else
 	 (error:wrong-type-argument s "specializer" 'SPECIALIZER-CLASSES))))
 
-(define-structure union-specializer
+(define-structure (union-specializer (type-descriptor union-specializer-rtd))
   (classes #f read-only #t))
 
 (define (union-specializer . specializers)
-- 
2.25.1