From 11b10be59fae34faa7d025b55215f090c84dc523 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 4 Jul 1990 21:21:19 +0000 Subject: [PATCH] Added %closure-function, %function-header-arglist, %function-header-type, etc. --- code/exports.lisp | 33 ++++++++++++++++++--------------- 1 file changed, 18 insertions(+), 15 deletions(-) diff --git a/code/exports.lisp b/code/exports.lisp index 8727566c1..f7a7052c7 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.38 1990/07/03 09:34:43 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.39 1990/07/04 21:21:19 wlott Exp $ ;;; ;;; All the stuff necessary to export various symbols from various packages. ;;; @@ -267,16 +267,18 @@ (export '(%array-fill-pointer %array-fill-pointer-p %array-available-elements %array-data-vector %array-displacement - %array-displaced-p %array-dimension %check-bound %dpb %ldb - %negate %sxhash-simple-string %sxhash-simple-substring - *empty-type* *eval-stack-top* *null-type* *universal-type* - *unparse-function-type-simplify* *wild-type* 32bit-logical-not - 32bit-logical-nor 32bit-logical-and 32bit-logical-or - 32bit-logical-xor 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-displaced-p %array-dimension %check-bound + %closure-function %closure-index-ref %dpb + %function-header-arglist %function-header-name + %function-header-type %ldb %negate %sxhash-simple-string + %sxhash-simple-substring *empty-type* *eval-stack-top* + *null-type* *universal-type* *unparse-function-type-simplify* + *wild-type* 32bit-logical-not 32bit-logical-nor 32bit-logical-and + 32bit-logical-or 32bit-logical-xor 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-bash-clear bit-bash-set bit-bash-not bit-bash-copy bit-bash-and bit-bash-ior bit-bash-xor bit-bash-eqv bit-bash-lognand bit-bash-lognor @@ -320,10 +322,11 @@ 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 - %unary-truncate %make-ratio %make-complex %single-float %double-float - decode-single-float decode-double-float integer-decode-single-float - integer-decode-double-float scale-single-float scale-double-float - single-float-exponent double-float-exponent)) + %unary-truncate %make-ratio %make-complex %single-float + %double-float decode-single-float decode-double-float + integer-decode-single-float integer-decode-double-float + scale-single-float scale-double-float single-float-exponent + double-float-exponent)) (in-package "EXTENSIONS") -- GitLab