From: Chris Hanson <org/chris-hanson/cph>
Date: Thu, 19 Jun 1997 21:45:12 +0000 (+0000)
Subject: Eliminate UNION-SPECIALIZER=? and UNION-SPECIALIZER-CLASSES.
X-Git-Tag: 20090517-FFI~5117
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=4dedbb3e994cc24952f38507e8fb7c7263b1a650;p=mit-scheme.git

Eliminate UNION-SPECIALIZER=? and UNION-SPECIALIZER-CLASSES.
---

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)