diff --git a/code/exports.lisp b/code/exports.lisp
index 5577e90f03136c0c3ebc691831dd2e87255f7a25..81993a18844fb37052211f1477ac63c27b134f10 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -7,68 +7,13 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.52 1990/10/03 09:56:42 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.53 1990/11/12 14:00:20 wlott Exp $
 ;;;
 ;;; All the stuff necessary to export various symbols from various packages.
 ;;;
 ;;; Written by William Lott.
 ;;; 
 
-
-;;; Old compiler cleanup.
-
-#-new-compiler
-(labels
-    ((move (name old-package new-package)
-	   (let* ((old-package (find-package old-package))
-		  (symbol (find-symbol name old-package)))
-	     (when symbol
-	       (let ((orig-package (symbol-package symbol)))
-		 (unintern symbol orig-package)
-		 (import symbol (find-package new-package))
-		 (import symbol orig-package)))))
-     (nuke (name package)
-	   (let* ((package (find-package package))
-		  (symbol (find-symbol name package)))
-	     (when symbol
-	       (unintern symbol package)))))
-
-  (nuke "REAL" "XLIB")
-  (nuke "FORM" "LISP")
-  (nuke "INDEX" "LISP")
-  (nuke "LEXICAL-ENVIRONMENT" "LISP")
-  (nuke "NEGATE" "LISP")
-  (nuke "TYPE-EXPAND" "LISP")
-  (nuke "VAR" "LISP")
-  (nuke "ARG" "LISP")
-  (nuke "STRUCTURE-TYPE" "XP")
-  (nuke "CONCAT-PNAMES" "LISP")
-  (nuke "ONCE-ONLY" "COMPILER")
-  (nuke "CONSTANT" "COMPILER")
-  (nuke "GET-TYPE" "LISP")
-  (nuke "INFO" "HEMLOCK")
-
-  (move "POINTER<" "COMPILER" "SYSTEM")
-  (move "POINTER>" "COMPILER" "SYSTEM")
-  (move "SAP+" "LISP" "SYSTEM")
-  (move "%SET-ALIEN-ACCESS" "LISP" "SYSTEM")
-  (move "CHECK<=" "LISP" "SYSTEM")
-  (move "CT-A-VAL" "LISP" "SYSTEM")
-  (move "CT-A-VAL-ALIEN" "LISP" "SYSTEM")
-  (move "CT-A-VAL-OFFSET" "LISP" "SYSTEM")
-  (move "CT-A-VAL-P" "LISP" "SYSTEM")
-  (move "CT-A-VAL-SAP" "LISP" "SYSTEM")
-  (move "CT-A-VAL-SIZE" "LISP" "SYSTEM")
-  (move "CT-A-VAL-TYPE" "LISP" "SYSTEM")
-  (move "DEPORT-BOOLEAN" "LISP" "SYSTEM")
-  (move "DEPORT-INTEGER" "LISP" "SYSTEM")
-  (move "MAKE-CT-A-VAL" "LISP" "SYSTEM")
-  (move "NATURALIZE-BOOLEAN" "LISP" "SYSTEM")
-  (move "NATURALIZE-INTEGER" "LISP" "SYSTEM")
-  (move "SAP-REF-SAP" "LISP" "SYSTEM")
-  (move "CHECK=" "COMPILER" "SYSTEM"))
-
-
 
 ;;; Create the packages
 
@@ -332,7 +277,17 @@
 	  integer-decode-single-float integer-decode-double-float
 	  scale-single-float scale-double-float single-float-exponent
 	  double-float-exponent float-format-digits get-closure-length
-	  set-header-data signal-init %mask-field %deposit-field))
+	  set-header-data signal-init %mask-field %deposit-field
+	  structurify structure-length structure-ref structure-set
+	  structure-index-ref structure-index-set
+	  dynamic-space-free-pointer binding-stack-pointer-sap
+	  control-stack-pointer-sap simple-array-unsigned-byte-2-p
+	  simple-array-unsigned-byte-4-p simple-array-unsigned-byte-8-p
+	  simple-array-unsigned-byte-16-p simple-array-unsigned-byte-32-p
+	  simple-array-single-float-p simple-array-double-float-p
+	  array-header-p signed-byte-32-p unsigned-byte-32-p
+
+	  ))
 
 
 (in-package "EXTENSIONS")
@@ -462,6 +417,7 @@
 
 (use-package "KERNEL")
 (use-package "EXT")
+(use-package "C")
 
 (export '(*assembly-unit-length* *primitive-objects* array-data-slot
 	  array-dimensions-offset array-displaced-p-slot
@@ -527,7 +483,7 @@
 	  value-cell-value-slot vector-data-offset vector-length-slot
 	  vector-normal-subtype vector-structure-subtype
 	  vector-valid-hashing-subtype vector-must-rehash-subtype
-	  vm-version word-bits word-bytes word-shift weak-pointer-type
+	  word-bits word-bytes word-shift weak-pointer-type
 	  weak-pointer-size weak-pointer-value-slot weak-pointer-next-slot
 	  
 	  single-float-bias
@@ -541,7 +497,65 @@
 	  single-float-bits double-float-low-bits double-float-high-bits
 	  single-float-digits double-float-digits
 	  register-save-penalty symbol-raw-function-addr-slot
-	  symbol-setf-function-slot structure-header-type))
+	  symbol-setf-function-slot structure-header-type
+	  alloc-g-vector allocate-vector alloc-string sxhash-simple-string
+	  sxhash-simple-substring check-cons check-symbol check-fixnum
+	  check-signed-byte-32 check-unsigned-byte-32
+	  check-function-or-symbol check-function
+	  make-array-header code-constant-set allocate-code-object
+	  code-instructions compute-function
+
+	  get-vector-subtype set-vector-subtype
+	  ))
+
+(in-package "LISP")
+(import '(
+	  %aset
+	  %bitset
+	  %charset
+	  %primitive
+	  %put
+	  %raw-bits
+	  %set-raw-bits
+	  %rplaca
+	  %rplacd
+	  %sbitset
+	  %scharset
+	  %set-documentation
+	  %set-fdefinition
+	  %set-fill-pointer
+	  %set-row-major-aref
+	  %set-sap-ref-sap
+	  %set-sap-ref-32
+	  %set-sap-ref-16
+	  %set-sap-ref-8
+	  %set-sap-ref-single
+	  %set-sap-ref-double
+	  %setelt
+	  %setnth
+	  %sp-set-plist
+	  %sp-set-definition
+	  %standard-char-p
+	  %string-char-p
+	  %svset
+	  %typep
+	  %array-typep
+	  array-header-p
+	  base-char-p
+	  double-float-p
+	  long-float-p
+	  short-float-p
+	  simple-array-p
+	  single-float-p
+	  string<*
+	  string>*
+	  string<=*
+	  string>=*
+	  string=*
+	  string/=*
+	  %sp-string-compare
+	  )
+	"VM")
 
 
 (in-package "C")
@@ -553,10 +567,84 @@
 (use-package "ASSEM")
 (use-package "BIGNUM")
 
-(export '(*compile-time-define-macros* *compiling-for-interpreter*
+(export '(
+	  *compile-time-define-macros* *compiling-for-interpreter*
 	  compile-for-eval entry-node-info-nlx-tag entry-node-info-st-top
 	  lambda-eval-info-args-passed lambda-eval-info-entries
-	  lambda-eval-info-frame-size))
+	  lambda-eval-info-frame-size sc %more-arg %listify-rest-args
+	  more-arg-context verify-argument-count argument-count-error
+	  type-check-error odd-keyword-arguments-error
+	  unknown-keyword-argument-error save-dynamic-state
+	  restore-dynamic-state current-stack-pointer current-binding-pointer
+	  make-unwind-block make-catch-block set-unwind-protect
+	  %catch-breakup %unwind-protect-breakup nlx-entry nlx-entry-multiple
+	  uwp-entry %continue-unwind move non-descriptor-stack
+	  foreign-symbol-address compute-old-nfp unbind-to-here
+	  
+	  alloc-number-stack-space
+	  allocate-frame
+	  allocate-full-call-frame
+	  bind
+	  branch
+	  call
+	  call-local
+	  call-named
+	  call-out
+	  call-variable
+	  closure-init
+	  closure-ref
+	  coerce-to-function
+	  copy-more-arg
+	  current-fp
+	  current-stack-pointer
+	  dealloc-number-stack-space
+	  fast-safe-coerce-to-function
+	  fast-symbol-function
+	  fast-symbol-value
+	  if-eq
+	  known-call-local
+	  known-return
+	  make-catch-block
+	  make-closure
+	  make-unwind-block
+	  make-value-cell
+	  move
+	  multiple-call
+	  multiple-call-local
+	  multiple-call-named
+	  multiple-call-variable
+	  nil
+	  nlx-entry
+	  nlx-entry-multiple
+	  note-environment-start
+	  push-values
+	  reset-stack-pointer
+	  restore-dynamic-state
+	  return
+	  return-multiple
+	  save-dynamic-state
+	  set
+	  set-unwind-protect
+	  setup-closure-environment
+	  setup-environment
+	  structure-ref
+	  structure-set
+	  symbol-function
+	  symbol-value
+	  tail-call
+	  tail-call-named
+	  tail-call-variable
+	  throw
+	  unbind
+	  unwind
+	  uwp-entry
+	  value-cell-ref
+	  value-cell-set
+	  values-list
+	  xep-allocate-frame
+
+	  catch-block
+	  ))
 
 (in-package "LISP")
 (import '(
@@ -604,6 +692,9 @@
 	  string=*
 	  string/=*
 	  %sp-string-compare
+	  make-fixnum
+	  make-other-immediate-type
+	  halt
 	  )
 	"C")