From b398cb31742685da065f9ab721c1e30570741b95 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 7 Jul 2006 18:22:57 +0000 Subject: [PATCH] Export KERNEL::DD-PI, and import it into the EXT package and re-export it so the user can use EXT:DD-PI to get at a double-double-float pi. --- code/exports.lisp | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 002d721b1..263bea758 100644 --- a/code/exports.lisp +++ b/code/exports.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.253 2006/07/05 16:58:41 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.254 2006/07/07 18:22:57 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1211,7 +1211,7 @@ (:import-from "KERNEL" "*ANSI-DEFSTRUCT-OPTIONS-P*") (:import-from "SYSTEM" "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P" "BINARY-TEXT-STREAM") #+double-double - (:import-from "KERNEL" "DOUBLE-DOUBLE-FLOAT") + (:import-from "KERNEL" "DOUBLE-DOUBLE-FLOAT" "DD-PI") (:export "*AFTER-GC-HOOKS*" "*AFTER-SAVE-INITIALIZATIONS*" "DEBUG" "FLOATING-POINT-INEXACT" "FLOAT-ACCURACY" @@ -1390,7 +1390,7 @@ "INVALID-FASL") #+double-double - (:export "DOUBLE-DOUBLE-FLOAT")) + (:export "DOUBLE-DOUBLE-FLOAT" "DD-PI")) (defpackage "STREAM" (:import-from "SYSTEM" "LISP-STREAM") @@ -2203,7 +2203,8 @@ "OBJECT-NOT-COMPLEX-DOUBLE-DOUBLE-FLOAT-ERROR" "SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-P" - "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-ERROR")) + "OBJECT-NOT-SIMPLE-ARRAY-COMPLEX-DOUBLE-DOUBLE-FLOAT-ERROR" + "DD-PI")) (dolist (name -- GitLab