diff --git a/code/exports.lisp b/code/exports.lisp
index 8727566c155d0074ada2066c8a279cd8555e4d90..f7a7052c708866489803c8e8855702abaeaf6580 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")