From 7f09896b91952f9e8108adaa53872cc3d60d2ba7 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 21 Aug 1993 08:16:06 +0000 Subject: [PATCH] Add some float subprimitives. --- code/kernel.lisp | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/code/kernel.lisp b/code/kernel.lisp index 5130b273a..3b6a030f4 100644 --- a/code/kernel.lisp +++ b/code/kernel.lisp @@ -7,11 +7,11 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.9 1992/12/13 16:04:30 wlott Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.10 1993/08/21 08:16:06 ram Exp $") ;;; ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.9 1992/12/13 16:04:30 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/kernel.lisp,v 1.10 1993/08/21 08:16:06 ram Exp $ ;;; (in-package "KERNEL") @@ -93,7 +93,7 @@ "Return the SXHASH for the simple-string STRING." (%sxhash-simple-string string)) -(defun %sxhash-simple-substrubg (string length) +(defun %sxhash-simple-substring (string length) "Return the SXHASH for the first LENGTH characters of the simple-string STRING." (%sxhash-simple-substring string length)) @@ -138,3 +138,9 @@ (setf (kernel:%raw-bits object offset) value)) (defsetf %raw-bits %set-raw-bits) + +(defun make-single-float (x) (make-single-float x)) +(defun make-double-float (hi lo) (make-double-float hi lo)) +(defun single-float-bits (x) (single-float-bits x)) +(defun double-float-high-bits (x) (double-float-high-bits x)) +(defun double-float-low-bits (x) (double-float-low-bits x)) -- GitLab