From fa341611f5d3c6dbf9bc39c82a689bb7398216dc Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 6 May 1990 05:36:36 +0000
Subject: [PATCH] Added bignum package and exports. Added
 containing-integer-type to the kernel package.

---
 code/exports.lisp | 36 ++++++++++++++++++++++++++----------
 1 file changed, 26 insertions(+), 10 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index 2aa038569..a4db85d45 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.17 1990/04/29 23:32:28 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.18 1990/05/06 05:36:36 wlott Exp $
 ;;;
 ;;; All the stuff necessary to export various symbols from various packages.
 ;;;
@@ -75,7 +75,7 @@
 (in-package "VM")
 (in-package "C")
 (in-package "ASSEMBLER" :nicknames '("ASSEM"))
-
+(in-package "BIGNUM")
 
 
 (in-package "LISP")
@@ -83,6 +83,7 @@
 (use-package "KERNEL")
 (use-package "EXT")
 (use-package "SYSTEM")
+(use-package "BIGNUM")
 
 (export '(&allow-other-keys &aux &body &environment &key &optional &rest
 	  &whole * ** *** *applyhook* *break-on-signals*
@@ -253,6 +254,7 @@
 
 (use-package "EXT")
 (use-package "SYSTEM")
+(use-package "BIGNUM")
 
 (export '(%array-fill-pointer %array-available-elements %array-data-vector
 	  %array-displacement %array-displaced-p %array-dimension
@@ -270,9 +272,9 @@
 	  bit-bash-andc1 bit-bash-andc2 bit-bash-orc1 bit-bash-orc2
 	  bit-index boole-code boolean byte-specifier callable char-int
 	  consed-sequence constant-type constant-type-p constant-type-type
-	  csubtypep ctype ctype-of ctype-p ctypep data-vector-ref
-	  data-vector-set filename float-digits float-exponent
-	  float-format-max float-radix form function-type
+	  containing-integer-type csubtypep ctype ctype-of ctype-p ctypep
+	  data-vector-ref data-vector-set filename float-digits
+	  float-exponent float-format-max float-radix form function-type
 	  function-type-allowp function-type-keyp function-type-keywords
 	  function-type-optional function-type-p function-type-required
 	  function-type-rest function-type-returns function-type-wild-args
@@ -297,11 +299,11 @@
 	  type-intersection type-specifier type-specifier-symbols
 	  type-union type/= type= types-intersect unboxed-array union-type
 	  union-type-p union-type-types unknown-type unknown-type-p
-	  values-subtypep values-type values-type-allowp values-type-intersect
-	  values-type-intersection values-type-keyp values-type-keywords
-	  values-type-optional values-type-p values-type-required
-	  values-type-rest values-type-union values-types
-	  values-types-intersect void))
+	  values-subtypep values-type values-type-allowp
+	  values-type-intersect values-type-intersection values-type-keyp
+	  values-type-keywords values-type-optional values-type-p
+	  values-type-required values-type-rest values-type-union
+	  values-types values-types-intersect void))
 
 
 (in-package "EXTENSIONS")
@@ -494,6 +496,7 @@
 (use-package "SYSTEM")
 (use-package "VM")
 (use-package "ASSEM")
+(use-package "BIGNUM")
 
 (export '(*compile-time-define-macros* *compiling-for-interpreter*
 	  compile-for-eval entry-node-info-nlx-tag entry-node-info-st-top
@@ -521,3 +524,16 @@
 	  interpreted-function-lambda-expression interpreted-function-name
 	  interpreted-function-p make-interpreted-function))
 
+
+(in-package "BIGNUM")
+
+(use-package "KERNEL")
+
+(export '(add-bignums multiply-bignums negate-bignum subtract-bignum
+	  bignum-ashift-right bignum-ashift-left bignum-gcd bignum=
+	  bignum-to-short-float bignum-to-long-float bignum-integer-length
+	  bignum-logical-and bignum-logical-ior bignum-logical-xor
+	  bignum-logical-not bignum-load-byte bignum-deposit-byte
+	  bignum-truncate bignum= bignum/= bignum> bignum< bignum<= bignum>=
+	  bignum-type bignum-element-type bignum-index))
+
-- 
GitLab