Skip to content
Snippets Groups Projects
Commit 92e8687d authored by wlott's avatar wlott
Browse files

Added lots of new interpreter stubs.

parent 0c06b19d
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.1 1990/07/13 16:36:18 wlott Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.2 1990/10/03 09:57:49 wlott Exp $
;;;
(in-package "KERNEL")
......@@ -29,3 +29,65 @@
"Returns the length of the closure X. This is one more than the number
of variables closed over."
(get-closure-length x))
(defun get-lowtag (x)
"Returns the three-bit lowtag for the object X."
(get-lowtag x))
(defun get-type (x)
"Returns the 8-bit header type for the object X."
(get-type x))
(defun vector-sap (x)
"Return a System-Area-Pointer pointing to the data for the vector X, which
must be simple."
(declare (type (simple-unboxed-array (*)) x))
(vector-sap x))
(defun c::binding-stack-pointer-sap ()
"Return a System-Area-Pointer pointing to the end of the binding stack."
(c::binding-stack-pointer-sap))
(defun c::dynamic-space-free-pointer ()
"Returns a System-Area-Pointer pointing to the next free work of the current
dynamic space."
(c::dynamic-space-free-pointer))
(defun c::control-stack-pointer-sap ()
"Return a System-Area-Pointer pointing to the end of the control stack."
(c::control-stack-pointer-sap))
(defun %function-header-arglist (func)
"Extracts the arglist from the function header FUNC."
(%function-header-arglist func))
(defun %function-header-name (func)
"Extracts the name from the function header FUNC."
(%function-header-name func))
(defun %function-header-type (func)
"Extracts the type from the function header FUNC."
(%function-header-type func))
(defun %closure-function (closure)
"Extracts the function from CLOSURE."
(%closure-function closure))
(defun c::vector-length (vector)
"Return the length of VECTOR. There is no reason to use this, 'cause
(length (the vector foo)) is the same."
(c::vector-length vector))
(defun %sxhash-simple-string (string)
"Return the SXHASH for the simple-string STRING."
(%sxhash-simple-string string))
(defun %sxhash-simple-substrubg (string length)
"Return the SXHASH for the first LENGTH characters of the simple-string
STRING."
(%sxhash-simple-substring string length))
(defun %closure-index-ref (closure index)
"Extract the INDEXth slot from CLOSURE."
(%closure-index-ref closure index))
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