From: Chris Hanson <org/chris-hanson/cph>
Date: Mon, 16 Jun 1997 09:00:48 +0000 (+0000)
Subject: Now that MAKE-METHOD calls INITIALIZE-INSTANCE, it is necessary to
X-Git-Tag: 20090517-FFI~5135
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=24b5ef4276177f5c77d17180b84f610280e8b1ba;p=mit-scheme.git

Now that MAKE-METHOD calls INITIALIZE-INSTANCE, it is necessary to
provide a default EMP for INITIALIZE-INSTANCE until the default method
is installed.  This is done by means of the runtime system's default
EMP kludge.
---

diff --git a/v7/src/sos/method.scm b/v7/src/sos/method.scm
index 018f3e092..3ab7c41b9 100644
--- a/v7/src/sos/method.scm
+++ b/v7/src/sos/method.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: method.scm,v 1.3 1997/06/15 06:41:40 cph Exp $
+;;; $Id: method.scm,v 1.4 1997/06/16 09:00:48 cph Exp $
 ;;;
 ;;; Copyright (c) 1995-97 Massachusetts Institute of Technology
 ;;;
@@ -446,6 +446,10 @@
 (method-combinator-record method-procedure #t)
 (method-combinator-record computed-emp-key #t)
 
+(set-generic-procedure-default-generator!
+ initialize-instance
+ (lambda classes classes (lambda arguments arguments unspecific)))
+
 (add-method method-specializers
 	    (slot-accessor-method <method> 'SPECIALIZERS))
 
@@ -457,4 +461,6 @@
 
 (add-method initialize-instance
 	    (make-method (list <instance>)
-			 (lambda (instance) instance unspecific)))
\ No newline at end of file
+			 (lambda (instance) instance unspecific)))
+
+(set-generic-procedure-default-generator! initialize-instance #f)
\ No newline at end of file