From f13ff485bdb7037afc447c525679a163fce6168d Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Mon, 8 Feb 1993 22:19:04 +0000 Subject: [PATCH] Add %layout-invalid-error and fix some stuff. --- compiler/generic/vm-fndb.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/compiler/generic/vm-fndb.lisp b/compiler/generic/vm-fndb.lisp index 613d61b13..6ab7203d2 100644 --- a/compiler/generic/vm-fndb.lisp +++ b/compiler/generic/vm-fndb.lisp @@ -7,7 +7,7 @@ ;;; 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.47.1.1 1993/01/14 21:02:46 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-fndb.lisp,v 1.47.1.2 1993/02/08 22:19:04 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -93,13 +93,15 @@ (unsafe)) (defknown %instance-layout (instance) layout (foldable flushable)) +(defknown %set-instance-layout (instance layout) layout + (unsafe)) (defknown %instance-length (instance) instance-index (foldable flushable)) (defknown %instance-ref (instance instance-index) t (flushable)) -(defknown (setf %instance-ref) (t instance instance-index) t +(defknown %instance-set (instance instance-index t) t (unsafe)) - +(defknown %layout-invalid-error (t layout) nil) (defknown %raw-ref-single (t index) single-float (foldable flushable)) -- GitLab