diff --git a/code/kernel.lisp b/code/kernel.lisp new file mode 100644 index 0000000000000000000000000000000000000000..833a0b6d2c3575df9fd422eb93d80f6a98404c2d --- /dev/null +++ b/code/kernel.lisp @@ -0,0 +1,31 @@ +;;; -*- Log: code.log; Package: KERNEL -*- +;;; +;;; ********************************************************************** +;;; This code was written as part of the Spice Lisp project at +;;; Carnegie-Mellon University, and has been placed in the public domain. +;;; If you want to use this code or any part of Spice Lisp, please contact +;;; 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 $ +;;; +(in-package "KERNEL") + + +(defconstant native-byte-order '#.target-byte-order + "Either :BIG-ENDIAN (IBM-PC/RT) or :LITTLE-ENDIAN (PMAX).") + +(defun get-header-data (x) + "Return the 24 bits of data in the header of object X, which must be an + other-pointer object." + (get-header-data x)) + +(defun set-header-data (x val) + "Sets the 24 bits of data in the header of object X (which must be an + other-pointer object) to VAL." + (set-header-data x val)) + +(defun get-closure-length (x) + "Returns the length of the closure X. This is one more than the number + of variables closed over." + (get-closure-length x))