diff --git a/compiler/loadbackend.lisp b/compiler/loadbackend.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..961fbb570ed67db46395cb422c6e1fd723b6c517
--- /dev/null
+++ b/compiler/loadbackend.lisp
@@ -0,0 +1,72 @@
+;;; -*- Package: C; Log: C.Log -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the CMU Common Lisp project at
+;;; Carnegie Mellon University, and has been placed in the public domain.
+;;; If you want to use this code or any part of CMU Common Lisp, please contact
+;;; Scott Fahlman or slisp-group@cs.cmu.edu.
+;;;
+(ext:file-comment
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/loadbackend.lisp,v 1.1 1992/02/24 05:51:12 wlott Exp $")
+;;;
+;;; **********************************************************************
+;;;
+;;; Load the backend of the compiler.
+;;;
+
+(in-package "C")
+
+(load "vm:vm-macs")
+#-rt (load "vm:parms")
+#+rt (load "vm:params")
+(load "vm:objdef")
+(load "vm:vm-fndb")
+(load "vm:vm-typetran")
+(load "assem:support")
+(load "vm:macros")
+(load "vm:utils")
+(load "vm:core")
+
+(load "vm:vm")
+(load "vm:insts")
+#-rt (load "vm:primtype")
+(load "vm:move")
+(load "vm:sap")
+(load "vm:system")
+(load "vm:char")
+#-rt (load "vm:float")
+#+(and rt afpa) (load "vm:afpa")
+#+(and rt (not afpa)) (load "vm:mc68881")
+
+(load "vm:memory")
+(load "vm:static-fn")
+(load "vm:arith")
+(load "vm:cell")
+(load "vm:subprim")
+(load "vm:debug")
+(load "vm:c-call")
+(load "vm:print")
+(load "vm:alloc")
+(load "vm:call")
+(load "vm:nlx")
+(load "vm:values")
+(load "vm:array")
+(load "vm:pred")
+(load "vm:type-vops")
+(load "vm:vm-tran")
+
+(load "assem:assem-rtns")
+#-rt (load "assem:bit-bash")
+(load "assem:array")
+(load "assem:arith")
+(load "assem:alloc")
+
+(load "c:pseudo-vops")
+(load "vm:vm-tran")
+
+(check-move-function-consistency)
+
+#+small
+;;;
+;;; If we want a small core, blow away the meta-compile time VOP info.
+(setf (backend-parsed-vops *backend*) (make-hash-table :test #'eq))