diff --git a/code/kernel.lisp b/code/kernel.lisp index 8b6d90bd7ecec4085d37ba5a3ec9854fd2454ddd..fc8c4314f1e625790a4fb3bdaa8a64e7053786aa 100644 --- a/code/kernel.lisp +++ b/code/kernel.lisp @@ -7,14 +7,11 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.2 1990/10/03 09:57:49 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.3 1990/11/05 18:27:45 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."