diff --git a/code/exports.lisp b/code/exports.lisp
index 4c35c30c76e6f8950f0723b10161c3e4fe742995..63600d27dd558ea5ffc3910969792d33bcafedf6 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.276 2008/12/30 15:55:59 rtoy Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.277 2008/12/31 00:52:50 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1282,26 +1282,18 @@
              "DEFMODULE" "DEFUN-CACHED"
              "DELETEF" "DELQ"
              "DO-ANONYMOUS" "DO-INFO"
-             "DOUBLE-FLOAT-NEGATIVE-INFINITY" "DOUBLE-FLOAT-POSITIVE-INFINITY"
-             "DOUBLE-FLOATP" "DOVECTOR"
+             "DOVECTOR"
              "ENCAPSULATE" "ENCAPSULATED-DEFINITION" "ENCAPSULATED-P"
              "END-BLOCK" "ENUMERATE-SEARCH-LIST" "FILE-COMMENT" "FILE-WRITABLE"
-             "FINALIZE" "FIXNUMP" "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
-             "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
-             "FLOATING-POINT-INVALID"
+             "FINALIZE" "FIXNUMP"
              "FORMAT-DECODED-TIME" "FORMAT-UNIVERSAL-TIME" "FREEZE-TYPE" "GC"
              "GC-OFF" "GC-ON" "GET-BYTES-CONSED" "GET-BYTES-CONSED-DFIXNUM"
-	     "GET-CODE-POINTER"
-             "GET-DATA-POINTER"
-             "GET-FLOATING-POINT-MODES" "GET-PEER-HOST-AND-PORT"
-	     "GET-SOCKET-HOST-AND-PORT"
 	     "GET-STREAM-COMMAND"
              "INDENTING-FURTHER" "INFO"
              "INHIBIT-WARNINGS" "INTERACTIVE-EVAL"
              "ITERATE"
              "LETF" "LETF*" "LISTEN-SKIP-WHITESPACE"
-             "LOAD-FOREIGN" "LONG-FLOAT-NEGATIVE-INFINITY"
-             "LONG-FLOAT-POSITIVE-INFINITY" "LONG-FLOATP"
+             "LOAD-FOREIGN"
              "MAKE-CASE-FROB-STREAM" "MAKE-INFO-ENVIRONMENT"
              "MAKE-SCAVENGER-HOOK"
 	     "MAKE-STREAM-COMMAND" "MAKE-WEAK-POINTER"
@@ -1312,29 +1304,21 @@
              "PACKAGE-LOCK" "PACKAGE-DEFINITION-LOCK" "WITHOUT-PACKAGE-LOCKS"
 	     "UNLOCK-ALL-PACKAGES"
              "PRINT-DIRECTORY" "PRINT-HERALD"
-             "PROCESS-ALIVE-P" "PROCESS-CLOSE"
-             "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
-             "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
-             "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
-             "PROCESS-STATUS-HOOK" "PROCESS-WAIT" "PUTF" "PURGE-BACKUP-FILES" "QUIT" "RATIOP"
+             "PUTF" "PURGE-BACKUP-FILES" "QUIT" "RATIOP"
              "READ-CHAR-NO-EDIT" "REALP"
              "REQUIRED-ARGUMENT" "RESET-FOREIGN-POINTERS"
-             "RUN-PROGRAM" "SAVE" "SAVE-LISP"
+             "SAVE" "SAVE-LISP"
              "SCAVENGER-HOOK" "SCAVENGER-HOOK-P"
 	     "SCAVENGER-HOOK-VALUE" "SCAVENGER-HOOK-FUNCTION"
 	     "SEARCH-LIST"
 
-             "SET-FLOATING-POINT-MODES"
-             "SET-SYMBOL-FUNCTION-CAREFULLY" "SHORT-FLOAT-NEGATIVE-INFINITY"
-             "SHORT-FLOAT-POSITIVE-INFINITY" "SHORT-FLOATP"
-             "SINGLE-FLOAT-NEGATIVE-INFINITY" "SINGLE-FLOAT-POSITIVE-INFINITY"
-             "SINGLE-FLOATP" "START-BLOCK" "STREAM-COMMAND"
+             "SET-SYMBOL-FUNCTION-CAREFULLY"
+             "START-BLOCK" "STREAM-COMMAND"
              "STREAM-COMMAND-ARGS" "STREAM-COMMAND-NAME" "STREAM-COMMAND-P"
 	     "INSTANCEP" "SYMBOLICATE"
              "TRULY-THE" "UNCOMPILE"
              "UNDEFINED-VALUE" "UNENCAPSULATE" "UNIX-NAMESTRING" "WEAK-POINTER"
              "WEAK-POINTER-P" "WEAK-POINTER-VALUE"
-	     "WITH-FLOAT-TRAPS-MASKED"
 	     "FEATUREP" "*IGNORE-EXTRA-CLOSE-PARENTHESES*" "*HERALD-ITEMS*"
 	     "SEARCH-LIST-DEFINED-P" "BYTES-CONSED-BETWEEN-GCS"
 	     "*LOAD-SOURCE-TYPES*" "*LOAD-OBJECT-TYPES*"
@@ -1363,6 +1347,23 @@
 
 	     "INVALID-FASL")
 
+  ;; run-program
+  (:export "RUN-PROGRAM" "PROCESS-ALIVE-P" "PROCESS-CLOSE"
+	   "PROCESS-CORE-DUMPED" "PROCESS-ERROR" "PROCESS-EXIT-CODE"
+	   "PROCESS-INPUT" "PROCESS-KILL" "PROCESS-OUTPUT" "PROCESS-P"
+	   "PROCESS-PID" "PROCESS-PLIST" "PROCESS-PTY" "PROCESS-STATUS"
+	   "PROCESS-STATUS-HOOK" "PROCESS-WAIT")
+
+  ;; Float extensions
+  (:export "SINGLE-FLOAT-POSITIVE-INFINITY" "SHORT-FLOAT-POSITIVE-INFINITY"
+	   "DOUBLE-FLOAT-POSITIVE-INFINITY" "LONG-FLOAT-POSITIVE-INFINITY"
+	   "SINGLE-FLOAT-NEGATIVE-INFINITY" "SHORT-FLOAT-NEGATIVE-INFINITY"
+	   "DOUBLE-FLOAT-NEGATIVE-INFINITY" "LONG-FLOAT-NEGATIVE-INFINITY"
+	   "GET-FLOATING-POINT-MODES" "SET-FLOATING-POINT-MODES"
+	   "FLOAT-DENORMALIZED-P" "FLOAT-INFINITY-P"
+	   "FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P" 
+	   "WITH-FLOAT-TRAPS-MASKED")
+
   ;; Gray streams extension.
   (:export "FUNDAMENTAL-BINARY-STREAM" "FUNDAMENTAL-BINARY-INPUT-STREAM"
 	   "FUNDAMENTAL-BINARY-OUTPUT-STREAM" "FUNDAMENTAL-CHARACTER-STREAM"
@@ -1403,6 +1404,7 @@
 	   "SOCKET-ERROR" 
 	   "INET-RECVFROM" "INET-SENDTO" "INET-SHUTDOWN"
 	   "SHUT-RD" "SHUT-WR" "SHUT-RDWR"
+	   "GET-PEER-HOST-AND-PORT" "GET-SOCKET-HOST-AND-PORT"
 
 	   "OPEN-NETWORK-STREAM" "ACCEPT-NETWORK-STREAM")