From cbc3a6594e217c10eb3e88dc3b07deea2afa1587 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Thu, 1 Aug 1991 10:44:03 +0000 Subject: [PATCH] Added MUTATOR-SELF. --- compiler/generic/vm-fndb.lisp | 14 +++++++++++--- 1 file changed, 11 insertions(+), 3 deletions(-) diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index bbd2f8eec..3b0c8aa43 100644 --- a/compiler/generic/vm-fndb.lisp +++ b/compiler/generic/vm-fndb.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.39 1991/07/22 19:22:34 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.40 1991/08/01 10:44:03 wlott Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.39 1991/07/22 19:22:34 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.40 1991/08/01 10:44:03 wlott Exp $ ;;; ;;; This file defines the machine specific function signatures. ;;; @@ -35,7 +35,9 @@ 32bit-logical-or 32bit-logical-nor 32bit-logical-xor 32bit-logical-eqv 32bit-logical-andc1 32bit-logical-andc2 - 32bit-logical-orc1 32bit-logical-orc2)) + 32bit-logical-orc1 32bit-logical-orc2 + + mutator-self)) (in-package "C") @@ -265,6 +267,12 @@ (defknown code-header-set (t index t) t ()) + +;;;; Mutator accessors. + +(defknown mutator-self () system-area-pointer (flushable movable)) + + ;;;; Automatic defknowns for primitive objects. -- GitLab