diff --git a/code/exports.lisp b/code/exports.lisp
index 38a7790f84cab466ac0ded285fbc6a68e6cdff92..8dff7f6bdeea6d1b49f3e948e94f34330fe84e7a 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.89 1993/06/17 22:17:23 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.90 1993/07/22 10:42:42 ram Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -39,7 +39,7 @@
     (make-package "PCL" :nicknames 'nil :use nil))
 (shadow '("DOCUMENTATION" "DESTRUCTURING-BIND"  "FIND-CLASS" "CLASS-NAME"
 	  "CLASS-OF" "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
-	  "STRUCTURE-OBJECT")
+	  "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOTIMES")
 	"PCL")
 (if (find-package "FORMAT")
     (rename-package "FORMAT" "FORMAT" 'nil)
@@ -458,23 +458,7 @@
             (:shadow "DESTRUCTURING-BIND" "DOCUMENTATION"
 		     "FIND-CLASS" "CLASS-NAME" "CLASS-OF"
 		     "CLASS" "BUILT-IN-CLASS" "STRUCTURE-CLASS"
-		     "STRUCTURE-OBJECT")
-            (:export "ADD-METHOD" "CALL-METHOD"
-             "CALL-NEXT-METHOD" "CHANGE-CLASS"
-             "COMPUTE-APPLICABLE-METHODS" "DEFCLASS" "DEFGENERIC"
-             "DEFINE-METHOD-COMBINATION" "DEFMETHOD" "ENSURE-GENERIC-FUNCTION"
-	     "FIND-METHOD" "FUNCTION-KEYWORDS" "GENERIC-FLET"
-             "GENERIC-LABELS" "INITIALIZE-INSTANCE" "INVALID-METHOD-ERROR"
-             "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE"
-             "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "NEXT-METHOD-P"
-             "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "PRINT-OBJECT"
-             "REINITIALIZE-INSTANCE" "REMOVE-METHOD" "SHARED-INITIALIZE"
-             "SLOT-BOUNDP" "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING"
-             "SLOT-UNBOUND" "SLOT-VALUE" "STANDARD" "STANDARD-CLASS"
-             "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT"
-	     "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
-             "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS"
-             "WITH-ADDED-METHODS" "WITH-SLOTS"))
+		     "STRUCTURE-OBJECT" "STANDARD-CLASS" "DOCUMENTATION"))
 (defpackage "FORMAT")
 (defpackage "HEMLOCK" (:nicknames "ED"))
 (defpackage "SPELL"
@@ -746,7 +730,31 @@
                   "FIND-CLASS"
                   "BROADCAST-STREAM"
                   "CHAR-INT"
-                  "DELETE-PACKAGE"))
+                  "DELETE-PACKAGE"
+
+             "ADD-METHOD" "CALL-METHOD"
+             "CALL-NEXT-METHOD" "CHANGE-CLASS"
+             "COMPUTE-APPLICABLE-METHODS" "DEFCLASS" "DEFGENERIC"
+             "DEFINE-METHOD-COMBINATION" "DEFMETHOD" "ENSURE-GENERIC-FUNCTION"
+	     "FIND-METHOD" "FUNCTION-KEYWORDS" "GENERIC-FLET"
+             "GENERIC-LABELS" "INITIALIZE-INSTANCE" "INVALID-METHOD-ERROR"
+             "MAKE-INSTANCE" "MAKE-INSTANCES-OBSOLETE"
+             "METHOD-COMBINATION-ERROR" "METHOD-QUALIFIERS" "NEXT-METHOD-P"
+             "NO-APPLICABLE-METHOD" "NO-NEXT-METHOD" "PRINT-OBJECT"
+             "REINITIALIZE-INSTANCE" "REMOVE-METHOD" "SHARED-INITIALIZE"
+             "SLOT-BOUNDP" "SLOT-EXISTS-P" "SLOT-MAKUNBOUND" "SLOT-MISSING"
+             "SLOT-UNBOUND" "SLOT-VALUE" "STANDARD" "STANDARD-CLASS"
+             "STANDARD-GENERIC-FUNCTION" "STANDARD-METHOD" "STANDARD-OBJECT"
+	     "UPDATE-INSTANCE-FOR-DIFFERENT-CLASS"
+             "UPDATE-INSTANCE-FOR-REDEFINED-CLASS" "WITH-ACCESSORS"
+             "WITH-ADDED-METHODS" "WITH-SLOTS"
+             "PARSE-ERROR" "CELL-ERROR-NAME" "SIMPLE-CONDITION-FORMAT-CONTROL"
+             "STREAM-EXTERNAL-FORMAT" "FILE-STRING-LENGTH"
+             "WITH-CONDITION-RESTARTS" "COMMON" "HASH-TABLE-WEAK-P"
+             "GET-SETF-EXPANSION" "STYLE-WARNING" "SPECIAL-OPERATOR-P"
+             "COMPILER-MACRO" "PRINT-NOT-READABLE-OBJECT"
+             "DEFINE-SETF-EXPANDER" "PRINT-NOT-READABLE"))
+
 (defpackage "EVAL"
             (:export "*EVAL-STACK-TRACE*" "*INTERNAL-APPLY-NODE-TRACE*"
              "*INTERPRETED-FUNCTION-CACHE-MINIMUM-SIZE*"
@@ -1752,84 +1760,46 @@
 	   "%SET-SIGNED-SAP-REF-16" "FIND-CALLER-NAME" "OLD-IN-PACKAGE"
 	   "%SET-SYMBOL-VALUE" "%SET-SYMBOL-PACKAGE" "OUTPUT-SYMBOL-NAME"
 	   "FSET" "RAW-DEFINITION" "%IN-PACKAGE" "%SET-SIGNED-SAP-REF-32"
-	   "INVOKE-MACROEXPAND-HOOK"
-	   "TYPEDEF-INIT"
-	   "DEFAULT-STRUCTURE-PRINT"
-	   "LAYOUT"
-	   "LAYOUT-LENGTH"
-	   "RATIOP"
-	   "FIXNUMP"
-	   "LAMBDA-WITH-ENVIRONMENT"
-	   "LAYOUT-PURE"
-	   "DSD-RAW-TYPE"
-	   "%COMPILER-DEFSTRUCT"
-	   "DEFSTRUCT-DESCRIPTION"
-	   "UNDEFINE-STRUCTURE"
-	   "BIGNUMP"
-	   "DD-COPIER"
-	   "UNDEFINE-FUNCTION-NAME"
-	   "DD-TYPE"
-	   "%RAW-REF-SINGLE"
-	   "CLASS-STATE"
-	   "INSTANCE"
-	   "%RAW-SET-DOUBLE"
-	   "*TYPE-SYSTEM-INITIALIZED*"
-	   "WEAK-POINTER-P"
-	   "FIND-LAYOUT"
-	   "DSD-NAME"
-	   "%TYPEP"
-	   "DD-RAW-INDEX"
-	   "DD-NAME"
-	   "CLASS-SUBCLASSES"
-	   "CLASS-LAYOUT"
-	   "%RAW-REF-DOUBLE"
-	   "DD-RAW-LENGTH"
-	   "NOTE-NAME-DEFINED"
-	   "%CODE-CODE-SIZE"
-	   "DD-SLOTS"
-	   "%IMAGPART"
-	   "DSD-ACCESSOR"
-	   "CLASS-INIT"
-	   "%CODE-DEBUG-INFO"
-	   "DSD-%NAME"
-	   "LAYOUT-CLASS"
-	   "LAYOUT-INVALID"
-	   "%FUNCTION-NAME"
-	   "DSD-TYPE"
-	   "%INSTANCEP"
-	   "DEFSTRUCT-SLOT-DESCRIPTION"
-	   "%RAW-SET-SINGLE"
-	   "MAKE-STRUCTURE-LOAD-FORM"
-	   "BITP"
-	   "%FUNCTION-ARGLIST"
-	   "%FUNCTION-NEXT"
-	   "LAYOUT-HASH-LENGTH"
-	   "DD-PREDICATE"
-	   "CLASS-PROPER-NAME"
-	   "%NOTE-TYPE-DEFINED"
-	   "LAYOUT-INFO"
-	   "%SET-INSTANCE-LAYOUT"
-	   "DD-DEFAULT-CONSTRUCTOR"
-	   "LAYOUT-OF"
-	   "%FUNCTION-SELF"
-	   "%REALPART"
-	   "STRUCTURE-CLASS-P"
-	   "DSD-INDEX"
-	   "%INSTANCE-LAYOUT"
-	   "LAYOUT-HASH"
-	   "%FUNCTION-TYPE"
-	   "DEFINE-FUNCTION-NAME"
-	   "LAYOUT-INHERITANCE-DEPTH"
-	   "%%COMPILER-DEFSTRUCT"
-	   "%NUMERATOR"
-	   "CLASS-TYPEP"
-	   "STRUCTURE-CLASS-PRINT-FUNCTION"
-	   "DSD-READ-ONLY"
-	   "LAYOUT-INHERITS"
-	   "DD-LENGTH"
-	   "%CODE-ENTRY-POINTS"
-	   "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN"
-	   "%DENOMINATOR"))
+	   "INVOKE-MACROEXPAND-HOOK" "TYPEDEF-INIT" "DEFAULT-STRUCTURE-PRINT"
+	   "LAYOUT" "LAYOUT-LENGTH" "RATIOP" "FIXNUMP"
+	   "LAMBDA-WITH-ENVIRONMENT" "LAYOUT-PURE" "DSD-RAW-TYPE"
+	   "%COMPILER-DEFSTRUCT" "DEFSTRUCT-DESCRIPTION" "UNDEFINE-STRUCTURE"
+	   "BIGNUMP" "DD-COPIER" "UNDEFINE-FUNCTION-NAME" "DD-TYPE"
+	   "%RAW-REF-SINGLE" "CLASS-STATE" "INSTANCE" "%RAW-SET-DOUBLE"
+	   "*TYPE-SYSTEM-INITIALIZED*" "WEAK-POINTER-P" "FIND-LAYOUT"
+	   "DSD-NAME" "%TYPEP" "DD-RAW-INDEX" "DD-NAME" "CLASS-SUBCLASSES"
+	   "CLASS-LAYOUT" "%RAW-REF-DOUBLE" "DD-RAW-LENGTH" "NOTE-NAME-DEFINED"
+	   "%CODE-CODE-SIZE" "DD-SLOTS" "%IMAGPART" "DSD-ACCESSOR" "CLASS-INIT"
+	   "%CODE-DEBUG-INFO" "DSD-%NAME" "LAYOUT-CLASS" "LAYOUT-INVALID"
+	   "%FUNCTION-NAME" "DSD-TYPE" "%INSTANCEP"
+	   "DEFSTRUCT-SLOT-DESCRIPTION" "%RAW-SET-SINGLE"
+	   "MAKE-STRUCTURE-LOAD-FORM" "BITP" "%FUNCTION-ARGLIST"
+	   "%FUNCTION-NEXT" "LAYOUT-HASH-LENGTH" "DD-PREDICATE"
+	   "CLASS-PROPER-NAME" "%NOTE-TYPE-DEFINED" "LAYOUT-INFO"
+	   "%SET-INSTANCE-LAYOUT" "DD-DEFAULT-CONSTRUCTOR" "LAYOUT-OF"
+	   "%FUNCTION-SELF" "%REALPART" "STRUCTURE-CLASS-P" "DSD-INDEX"
+	   "%INSTANCE-LAYOUT" "LAYOUT-HASH" "%FUNCTION-TYPE"
+	   "DEFINE-FUNCTION-NAME" "LAYOUT-INHERITANCE-DEPTH"
+	   "%%COMPILER-DEFSTRUCT" "%NUMERATOR" "CLASS-TYPEP"
+	   "STRUCTURE-CLASS-PRINT-FUNCTION" "DSD-READ-ONLY" "LAYOUT-INHERITS"
+	   "DD-LENGTH" "%CODE-ENTRY-POINTS"
+	   "STRUCTURE-CLASS-MAKE-LOAD-FORM-FUN" "%DENOMINATOR"
+	   "BYTE-FUNCTION-OR-CLOSURE" "MAKE-STANDARD-CLASS"
+	   "BYTE-FUNCTION-NAME" "CLASS-CELL-TYPEP" "BYTE-CLOSURE"
+	   "FIND-CLASS-CELL" "EXTRACT-FUNCTION-TYPE"
+	   "FUNCALLABLE-STRUCTURE-CLASS" "%RANDOM-DOUBLE-FLOAT"
+	   "RANDOM-PCL-CLASS" "BASIC-STRUCTURE-CLASS-PRINT-FUNCTION"
+	   "%FUNCALLABLE-INSTANCE-INFO" "*EVAL-STACK*" "RANDOM-CHUNK"
+	   "MAKE-FUNCALLABLE-STRUCTURE-CLASS" "LAYOUT-HASH-MAX"
+	   "CLASS-CELL-NAME" "BUILT-IN-CLASS-DIRECT-SUPERCLASSES"
+	   "INITIALIZE-BYTE-COMPILED-FUNCTION" "INITIALIZE-LAYOUT-HASH"
+	   "CLASS-PCL-CLASS" "FUNCALLABLE-STRUCTURE"
+	   "FUNCALLABLE-INSTANCE-FUNCTION" "%FUNCALLABLE-INSTANCE-LAYOUT"
+	   "%RANDOM-SINGLE-FLOAT" "CLASS-CELL-CLASS" "BYTE-FUNCTION"
+	   "BASIC-STRUCTURE-CLASS" "FUNCALLABLE-STRUCTURE-CLASS-P"
+	   "BYTE-CLOSURE-FUNCTION" "REGISTER-LAYOUT" "BYTE-CLOSURE-DATA"
+	   "FUNCALLABLE-INSTANCE" "RANDOM-FIXNUM-MAX" "MAKE-RANDOM-PCL-CLASS"
+	   ))
 
 (dolist
     (name