Skip to content
Snippets Groups Projects
Commit 5d50f1a2 authored by wlott's avatar wlott
Browse files

Nuke ``REAL'' from the XLIB package, so we can export it from the LISP package.

new KERNEL exports: copy-from-system-area, copy-to-system-area, 
	system-area-clear, and system-area-copy.
new BIGNUM exports: bignum-type, bignum-index, bignum-element-type.
parent 63f546dc
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; Scott Fahlman (FAHLMAN@CMUC).
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.22 1990/05/15 01:25:09 wlott Exp $ ;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.23 1990/05/16 01:08:16 wlott Exp $
;;; ;;;
;;; All the stuff necessary to export various symbols from various packages. ;;; All the stuff necessary to export various symbols from various packages.
;;; ;;;
...@@ -26,6 +26,7 @@ ...@@ -26,6 +26,7 @@
(symbol (find-symbol name package))) (symbol (find-symbol name package)))
(when symbol (when symbol
(unintern symbol package))))) (unintern symbol package)))))
(nuke "REAL" "XLIB")
(nuke "FORM" "LISP") (nuke "FORM" "LISP")
(nuke "INDEX" "LISP") (nuke "INDEX" "LISP")
(nuke "LEXICAL-ENVIRONMENT" "LISP") (nuke "LEXICAL-ENVIRONMENT" "LISP")
...@@ -273,9 +274,10 @@ ...@@ -273,9 +274,10 @@
bit-bash-andc1 bit-bash-andc2 bit-bash-orc1 bit-bash-orc2 bit-bash-andc1 bit-bash-andc2 bit-bash-orc1 bit-bash-orc2
bit-index boole-code boolean byte-specifier callable char-int bit-index boole-code boolean byte-specifier callable char-int
consed-sequence constant-type constant-type-p constant-type-type consed-sequence constant-type constant-type-p constant-type-type
containing-integer-type csubtypep ctype ctype-of ctype-p ctypep containing-integer-type copy-from-system-area copy-to-system-area
data-vector-ref data-vector-set filename float-digits csubtypep ctype ctype-of ctype-p ctypep data-vector-ref
float-exponent float-format-max float-radix form function-type 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-allowp function-type-keyp function-type-keywords
function-type-optional function-type-p function-type-required function-type-optional function-type-p function-type-required
function-type-rest function-type-returns function-type-wild-args function-type-rest function-type-returns function-type-wild-args
...@@ -294,10 +296,11 @@ ...@@ -294,10 +296,11 @@
pathname-type pathname-version pathnamelike sequence-end pathname-type pathname-version pathnamelike sequence-end
simple-unboxed-array single-value-type specifier-type streamlike simple-unboxed-array single-value-type specifier-type streamlike
stringable stringlike structure-type structure-type-name stringable stringlike structure-type structure-type-name
structure-type-p truth type-expand type-init two-arg-* two-arg-+ structure-type-p system-area-clear system-area-copy truth
two-arg-- two-arg-/ two-arg-/= two-arg-< two-arg-<= two-arg-= type-expand type-init two-arg-* two-arg-+ two-arg-- two-arg-/
two-arg-> two-arg->= two-arg-and two-arg-ior two-arg-xor two-arg-/= two-arg-< two-arg-<= two-arg-= two-arg-> two-arg->=
type-difference type-intersect type-intersection type-specifier two-arg-and two-arg-ior two-arg-xor type-difference
type-intersect type-intersection type-specifier
type-specifier-symbols type-union type/= type= types-intersect type-specifier-symbols type-union type/= type= types-intersect
unboxed-array union-type union-type-p union-type-types unboxed-array union-type union-type-p union-type-types
unknown-type unknown-type-p unknown-type-specifier unknown-type unknown-type-p unknown-type-specifier
...@@ -535,9 +538,9 @@ ...@@ -535,9 +538,9 @@
(import 'vm:bignum-type) (import 'vm:bignum-type)
(export '(add-bignums bignum-ashift-left bignum-ashift-right bignum-compare (export '(add-bignums bignum-ashift-left bignum-ashift-right bignum-compare
bignum-deposit-byte bignum-gcd bignum-integer-length bignum-deposit-byte bignum-element-type bignum-gcd bignum-index
bignum-load-byte bignum-logcount bignum-logical-and bignum-integer-length bignum-load-byte bignum-logcount
bignum-logical-ior bignum-logical-not bignum-logical-xor bignum-logical-and bignum-logical-ior bignum-logical-not
bignum-plus-p bignum-to-double-float bignum-to-single-float bignum-logical-xor bignum-plus-p bignum-to-double-float
bignum-truncate make-small-bignum multiply-bignums negate-bignum bignum-to-single-float bignum-truncate bignum-type make-small-bignum
subtract-bignum)) multiply-bignums negate-bignum subtract-bignum))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment