Skip to content
Snippets Groups Projects
Commit f13ff485 authored by ram's avatar ram
Browse files

Add %layout-invalid-error and fix some stuff.

parent 66df5db5
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (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 @@ ...@@ -93,13 +93,15 @@
(unsafe)) (unsafe))
(defknown %instance-layout (instance) layout (defknown %instance-layout (instance) layout
(foldable flushable)) (foldable flushable))
(defknown %set-instance-layout (instance layout) layout
(unsafe))
(defknown %instance-length (instance) instance-index (defknown %instance-length (instance) instance-index
(foldable flushable)) (foldable flushable))
(defknown %instance-ref (instance instance-index) t (defknown %instance-ref (instance instance-index) t
(flushable)) (flushable))
(defknown (setf %instance-ref) (t instance instance-index) t (defknown %instance-set (instance instance-index t) t
(unsafe)) (unsafe))
(defknown %layout-invalid-error (t layout) nil)
(defknown %raw-ref-single (t index) single-float (defknown %raw-ref-single (t index) single-float
(foldable flushable)) (foldable flushable))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment