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 018f3e092c48ecc58ed0dfab8f9bbb267932bb4b..3ab7c41b9b0213afa6fa2ca1b9960ee6344cc9fa 100644 (file)
--- 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