From 24b5ef4276177f5c77d17180b84f610280e8b1ba Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 16 Jun 1997 09:00:48 +0000 Subject: [PATCH] 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. --- v7/src/sos/method.scm | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) 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 'SPECIALIZERS)) @@ -457,4 +461,6 @@ (add-method initialize-instance (make-method (list ) - (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 -- 2.25.1