From 80f75e7a01f8d443e2d6c70ca1619133b9e15c37 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Tue, 13 Nov 1990 23:22:48 +0000 Subject: [PATCH] Export %set-sap-ref-{sap,32,16,8,single,double}, make-{single,double}-float, single-float-bits, double-float-{low,high}-bits, %{set-,}raw-bits, and %sp-set-definition from the kernel package. --- code/exports.lisp | 29 ++++++++--------------------- 1 file changed, 8 insertions(+), 21 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 81993a188..d908d1512 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.53 1990/11/12 14:00:20 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.54 1990/11/13 23:22:48 wlott Exp $ ;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -287,6 +287,12 @@ simple-array-single-float-p simple-array-double-float-p array-header-p signed-byte-32-p unsigned-byte-32-p + %set-sap-ref-sap %set-sap-ref-32 %set-sap-ref-16 %set-sap-ref-8 + %set-sap-ref-single %set-sap-ref-double + make-single-float make-double-float single-float-bits + double-float-high-bits double-float-low-bits + %raw-bits %set-raw-bits %sp-set-definition + )) @@ -493,9 +499,7 @@ single-float-normal-exponent-max single-float-normal-exponent-min double-float-normal-exponent-max double-float-normal-exponent-min single-float-hidden-bit double-float-hidden-bit - float-sign-shift make-single-float make-double-float - single-float-bits double-float-low-bits double-float-high-bits - single-float-digits double-float-digits + float-sign-shift single-float-digits double-float-digits register-save-penalty symbol-raw-function-addr-slot symbol-setf-function-slot structure-header-type alloc-g-vector allocate-vector alloc-string sxhash-simple-string @@ -515,8 +519,6 @@ %charset %primitive %put - %raw-bits - %set-raw-bits %rplaca %rplacd %sbitset @@ -525,12 +527,6 @@ %set-fdefinition %set-fill-pointer %set-row-major-aref - %set-sap-ref-sap - %set-sap-ref-32 - %set-sap-ref-16 - %set-sap-ref-8 - %set-sap-ref-single - %set-sap-ref-double %setelt %setnth %sp-set-plist @@ -653,8 +649,6 @@ %charset %primitive %put - %raw-bits - %set-raw-bits %rplaca %rplacd %sbitset @@ -663,16 +657,9 @@ %set-fdefinition %set-fill-pointer %set-row-major-aref - %set-sap-ref-sap - %set-sap-ref-32 - %set-sap-ref-16 - %set-sap-ref-8 - %set-sap-ref-single - %set-sap-ref-double %setelt %setnth %sp-set-plist - %sp-set-definition %standard-char-p %string-char-p %svset -- GitLab