diff --git a/code/exports.lisp b/code/exports.lisp
index a486f81ff2c44b6bf4e46c59cbc04ccbb006035f..7bca6a76ac0b79db89233cd750a353996313f5b7 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.144 1998/03/03 17:35:17 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.145 1998/03/10 18:23:59 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -597,9 +597,9 @@
        "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF" "%SETELT" "%SETNTH"
        "%SP-STRING-COMPARE" "%SVSET" "%TYPEP" "*READ-ONLY-SPACE-FREE-POINTER*"
        "*STATIC-SPACE-FREE-POINTER*" "CURRENT-DYNAMIC-SPACE-START"
-       "DYNAMIC-0-SPACE-START" "DYNAMIC-1-SPACE-START" "FIXNUM" "LONG-FLOAT-P"
-       "READ-ONLY-SPACE-START" "SHORT-FLOAT-P" "STATIC-SPACE-START" "STRING/=*"
-       "STRING<*" "STRING<=*" "STRING=*" "STRING>*" "STRING>=*"))
+       "DYNAMIC-0-SPACE-START" "DYNAMIC-1-SPACE-START" "FIXNUM"
+       "READ-ONLY-SPACE-START" "SHORT-FLOAT-P" "STATIC-SPACE-START"
+       "STRING/=*" "STRING<*" "STRING<=*" "STRING=*" "STRING>*" "STRING>=*"))
   (intern name "LISP"))
 (dolist (name '("%PRIMITIVE" "%STANDARD-CHAR-P"))
   (intern name "SYSTEM"))
@@ -607,7 +607,7 @@
 (dolist
     (name
      '("%SP-SET-DEFINITION" "%SP-SET-PLIST" "ARRAY-HEADER-P" "BASE-CHAR-P"
-       "DOUBLE-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P"))
+       "DOUBLE-FLOAT-P" "LONG-FLOAT-P" "SIMPLE-ARRAY-P" "SINGLE-FLOAT-P"))
   (intern name "KERNEL"))
 (defpackage #+pmax "PMAX" #+sparc "SPARC" #+ibmrt "RT"
             #+x86 "X86" #+hppa "HPPA" #+alpha "ALPHA" #+sgi "SGI"
@@ -622,9 +622,9 @@
              "%SVSET" "%TYPEP" "*READ-ONLY-SPACE-FREE-POINTER*"
              "*STATIC-SPACE-FREE-POINTER*" "CURRENT-DYNAMIC-SPACE-START"
              "DYNAMIC-0-SPACE-START" "DYNAMIC-1-SPACE-START" "FIXNUM"
-             "LONG-FLOAT-P" "READ-ONLY-SPACE-START" "SHORT-FLOAT-P"
-             "STATIC-SPACE-START" "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
-             "STRING>*" "STRING>=*")
+             "READ-ONLY-SPACE-START" "SHORT-FLOAT-P" "STATIC-SPACE-START"
+	     "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
+	     "STRING>*" "STRING>=*")
   (:export "*ASSEMBLY-UNIT-LENGTH*" "*PRIMITIVE-OBJECTS*"
 	   "AFTER-BREAKPOINT-TRAP"
 	   "ANY-REG-SC-NUMBER" "ARRAY-DATA-SLOT" "ARRAY-DIMENSIONS-OFFSET"
@@ -1043,7 +1043,7 @@
        "%RPLACA" "%RPLACD" "%SBITSET" "%SCHARSET"
        "%SET-FDEFINITION" "%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
        "%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH" "%SP-STRING-COMPARE"
-       "%SVSET" "%TYPEP" "LONG-FLOAT-P" "SHORT-FLOAT-P"
+       "%SVSET" "%TYPEP" "SHORT-FLOAT-P"
        "STRING/=*" "STRING<*" "STRING<=*" "STRING=*" "STRING>*" "STRING>=*"))
   (intern name "LISP"))
 
@@ -1055,8 +1055,8 @@
 		"%SET-FILL-POINTER" "%SET-ROW-MAJOR-AREF"
 		"%SET-SAP-REF-DESCRIPTOR" "%SETELT" "%SETNTH"
 		"%SP-STRING-COMPARE"
-		"%SVSET" "%TYPEP" "LONG-FLOAT-P"
-		"SHORT-FLOAT-P" "STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
+		"%SVSET" "%TYPEP" "SHORT-FLOAT-P"
+		"STRING/=*" "STRING<*" "STRING<=*" "STRING=*"
 		"STRING>*" "STRING>=*")
   (:export "%ALIEN-FUNCALL" "%CATCH-BREAKUP" "%CONTINUE-UNWIND" "&MORE"
 	   "%LISTIFY-REST-ARGS" "%MORE-ARG" "%MORE-ARG-VALUES"
@@ -1466,7 +1466,7 @@
 	   "INVALID-UNWIND-ERROR" "IRRATIONAL" "KEY-INFO" "KEY-INFO-NAME"
 	   "KEY-INFO-P" "KEY-INFO-TYPE"
 	   "LAYOUT-INVALID-ERROR"
-	   "LEXICAL-ENVIRONMENT" "LRA"
+	   "LEXICAL-ENVIRONMENT" "LONG-FLOAT-P" "LRA"
 	   "LRA-CODE-HEADER" "LRA-P" "MAKE-ALIEN-TYPE-TYPE" "MAKE-ARGS-TYPE"
 	   "MAKE-ARRAY-HEADER" "MAKE-DOUBLE-FLOAT" "MAKE-FUNCTION-TYPE"
 	   "MAKE-KEY-INFO" "MAKE-LISP-OBJ" "MAKE-MEMBER-TYPE"