From 0a3d72d0f1f1e7f25b20dd7cbc6b4763a70c9600 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 5 Nov 1990 18:27:45 +0000 Subject: [PATCH] Nuked native-byte-order, 'cause that info is now in *backend*. --- code/kernel.lisp | 5 +---- 1 file changed, 1 insertion(+), 4 deletions(-) diff --git a/code/kernel.lisp b/code/kernel.lisp index 8b6d90bd7..fc8c4314f 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." -- GitLab