diff --git a/code/exports.lisp b/code/exports.lisp
index e5e32deca5fba47ee840caf112f5474c2cdb733f..cd559930cbfa9941dd051d0bb32608bd304ed279 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.273 2008/11/12 15:04:23 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.274 2008/12/29 23:31:37 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1385,47 +1385,51 @@
 	     "DEFINE-FUNCTION-NAME-SYNTAX"
 	     "VALID-FUNCTION-NAME-P"
 
-	     ;; Gray streams extension.
-	     "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
-	     "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
-	     "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
-	     "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
-	     "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
-	     "FUNDAMENTAL-STREAM"
-	     "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" 
-	     "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
-	     "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
-	     "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
-	     "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
-	     "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR"
-	     "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"
-	     "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE"
-             
              "MAKE-INDENTING-STREAM" "INDENTING-STREAM-P"
 
 	     "&PARSE-BODY"
 
-	     ;; PCL declaration identifiers.
-	     "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE"
-
 	     "*TRUST-DYNAMIC-EXTENT-DECLARATIONS*"
 
-	     ;; From internet.lisp
-	     "ACCEPT-NETWORK-STREAM"
+
+	     "INVALID-FASL")
+  ;; Gray streams extension.
+  (:export "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
+	   "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
+	   "FUNDAMENTAL-CHARACTER-INPUT-STREAM"
+	   "FUNDAMENTAL-CHARACTER-OUTPUT-STREAM"
+	   "FUNDAMENTAL-INPUT-STREAM" "FUNDAMENTAL-OUTPUT-STREAM"
+	   "FUNDAMENTAL-STREAM"
+	   "STREAM-ADVANCE-TO-COLUMN" "STREAM-CLEAR-INPUT" 
+	   "STREAM-CLEAR-OUTPUT" "STREAM-FINISH-OUTPUT" "STREAM-FORCE-OUTPUT"
+	   "STREAM-FRESH-LINE" "STREAM-LINE-COLUMN" "STREAM-LINE-LENGTH"
+	   "STREAM-LISTEN" "STREAM-PEEK-CHAR" "STREAM-READ-BYTE"
+	   "STREAM-READ-CHAR" "STREAM-READ-CHAR-NO-HANG" "STREAM-READ-LINE"
+	   "STREAM-START-LINE-P" "STREAM-TERPRI" "STREAM-UNREAD-CHAR"
+	   "STREAM-WRITE-BYTE" "STREAM-WRITE-CHAR" "STREAM-WRITE-STRING"
+	   "STREAM-READ-SEQUENCE" "STREAM-WRITE-SEQUENCE")
+  ;; PCL declaration identifiers.
+  (:export "SLOTS" "AUTO-COMPILE" "NOT-AUTO-COMPILE")
+
+  ;; From internet.lisp
+  (:export "ACCEPT-NETWORK-STREAM"
 	     "INET-RECVFROM" "INET-SENDTO" "INET-SHUTDOWN"
 	     "OPEN-NETWORK-STREAM"
-	     "SHUT-RD" "SHUT-WR" "SHUT-RDWR"
-
-	     "BINARY-TEXT-STREAM" "READ-VECTOR" "WRITE-VECTOR"
+	     "SHUT-RD" "SHUT-WR" "SHUT-RDWR")
 
-	     "INVALID-FASL")
+  ;; CLtL2 environment access.
   (:export "VARIABLE-INFORMATION"
 	   "FUNCTION-INFORMATION"
 	   "DECLARATION-INFORMATION"
 	   "PARSE-MACRO"
 	   "AUGMENT-ENVIRONMENT")
+
+  ;; CMUCL extension for binary/text streams
+  (:export "BINARY-TEXT-STREAM" "READ-VECTOR" "WRITE-VECTOR")
+
   #+double-double
   (:export "DOUBLE-DOUBLE-FLOAT" "DD-PI")
+  
   (:import-from "STREAM"
 		"STRING-TO-OCTETS" "OCTETS-TO-STRING" "*DEFAULT-EXTERNAL-FORMAT*"
 		"STRING-ENCODE" "STRING-DECODE")