From b735c43ede56a02fcf97317aadd19f9d795e4220 Mon Sep 17 00:00:00 2001 From: Chris Hanson Date: Mon, 12 Dec 1988 21:30:16 +0000 Subject: [PATCH] * Add two new slots to lvalue type. * Change vector modification definitions to return `unspecific' rather than the original value. --- v7/src/compiler/base/macros.scm | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/v7/src/compiler/base/macros.scm b/v7/src/compiler/base/macros.scm index d4dabaa19..c399dab48 100644 --- a/v7/src/compiler/base/macros.scm +++ b/v7/src/compiler/base/macros.scm @@ -1,6 +1,6 @@ #| -*-Scheme-*- -$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 4.7 1988/11/01 04:48:06 jinx Exp $ +$Header: /Users/cph/tmp/foo/mit-scheme/mit-scheme/v7/src/compiler/base/macros.scm,v 4.8 1988/12/12 21:30:16 cph Exp $ Copyright (c) 1988 Massachusetts Institute of Technology @@ -122,7 +122,8 @@ MIT in each case. |# (VECTOR-REF ,class ,n)) (DEFINE-INTEGRABLE (,(symbol-append 'SET- ref-name '!) ,class ,slot) - (VECTOR-SET! ,class ,n ,slot)))))) + (VECTOR-SET! ,class ,n ,slot) + ',unspecific))))) (rest (loop (cdr slots) (1+ n)))) (if (pair? (car slots)) (map* rest make-defs (car slots)) @@ -176,7 +177,7 @@ MIT in each case. |# (define-type-definition snode 5 false) (define-type-definition pnode 6 false) (define-type-definition rvalue 2 rvalue-types) - (define-type-definition lvalue 11 false)) + (define-type-definition lvalue 13 false)) ;;; Kludge to make these compile efficiently. @@ -200,7 +201,8 @@ MIT in each case. |# (let ((result (generate-uninterned-symbol))) `(let ((,result ((ACCESS VECTOR ,system-global-environment) - ,tag '() '() '() 'NOT-CACHED FALSE '() FALSE FALSE '() '() + ,tag '() '() '() '() '() 'NOT-CACHED + FALSE '() FALSE FALSE '() '() ,@extra))) (SET! *LVALUES* (CONS ,result *LVALUES*)) ,result)))) -- 2.25.1