From 522c74b332f308435b4bdaf8e7417eb7709d1f08 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Mon, 2 Apr 1990 00:10:47 +0000 Subject: [PATCH] Ooops. Put a bunch of symbols in the wrong export list. --- code/exports.lisp | 37 +++++++++++++++++++------------------ 1 file changed, 19 insertions(+), 18 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 59c1c1cef..3f06b222d 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.3 1990/04/01 23:50:00 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.4 1990/04/02 00:10:47 wlott Exp $ ;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -249,20 +249,23 @@ (use-package "EXT") (use-package "SYSTEM") -(export '(*empty-type* *eval-stack-top* *null-type* *universal-type* - *wild-type* always-subtypep args-type args-type-allowp - args-type-keyp args-type-keywords args-type-optional args-type-p - args-type-required args-type-rest array-rank array-total-size - array-type array-type-complexp array-type-dimensions - array-type-element-type array-type-p +(export '(%array-fill-pointer %array-available-elements %array-data-vector + %array-displacement %array-displaced-p %array-dimension + %check-bound *empty-type* *eval-stack-top* *null-type* + *universal-type* *wild-type* always-subtypep args-type + args-type-allowp args-type-keyp args-type-keywords + args-type-optional args-type-p args-type-required args-type-rest + array-rank array-total-size array-type array-type-complexp + array-type-dimensions array-type-element-type array-type-p array-type-specialized-element-type ash-index bit-index boole-code boolean byte-specifier callable char-int - consed-sequence csubtypep ctype ctype-of ctype-p ctypep 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 - hairy-type hairy-type-check-template hairy-type-specifier index + consed-sequence csubtypep ctype ctype-of ctype-p ctypep + data-vector-ref 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 hairy-type + hairy-type-check-template hairy-type-specifier index internal-time irrational key-info key-info-name key-info-p key-info-type lexical-environment make-args-type make-function-type make-key-info make-member-type make-named-type @@ -408,10 +411,8 @@ (use-package "KERNEL") -(export '(%array-fill-pointer %array-available-elements %array-data-vector - %array-displacement %array-displaced-p %array-dimension - %check-bound *assembly-unit-length* *primitive-objects* - array-data-slot array-dimensions-offset array-displaced-p-slot +(export '(*assembly-unit-length* *primitive-objects* array-data-slot + array-dimensions-offset array-displaced-p-slot array-displacement-slot array-elements-slot array-fill-pointer-slot atomic-flag base-character-type bignum-digits-offset bignum-type binding-size binding-symbol-slot @@ -425,7 +426,7 @@ code-header-type complex-array-type complex-bit-vector-type complex-imag-slot complex-real-slot complex-size complex-string-type complex-type complex-vector-type - cons-car-slot cons-cdr-slot cons-size data-vector-ref + cons-car-slot cons-cdr-slot cons-size define-for-each-primitive-object double-float-size double-float-type double-float-value-slot error-trap even-fixnum-type exported-static-symbols fixnum -- GitLab