diff --git a/compiler/represent.lisp b/compiler/represent.lisp
new file mode 100644
index 0000000000000000000000000000000000000000..12f1d8f55fd9e6a04d139a33499a8a88fc50789c
--- /dev/null
+++ b/compiler/represent.lisp
@@ -0,0 +1,29 @@
+;;; -*- Package: C; Log: C.Log -*-
+;;;
+;;; **********************************************************************
+;;; This code was written as part of the Spice 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 Spice Lisp, please contact
+;;; Scott Fahlman (FAHLMAN@CMUC). 
+;;; **********************************************************************
+;;;
+;;;    This file contains the implementation independent code for the
+;;; representation selection phase in the compiler.  Representation selection
+;;; decides whether to use non-descriptor representations for objects and emits
+;;; the appropriate representation-specific move and coerce vops.
+;;;
+;;; Written by Rob MacLachlan
+;;;
+(in-package 'c)
+
+;;; REPRESENTATION-SELECT-1-BLOCK  --  Internal
+;;;
+(defun representation-select-1-block (block)
+  (declare (type ir2-block block))
+  )
+
+;;; SELECT-TN-REPRESENTATION  --  Internal
+;;;
+;;;    Select the best representation for a normal TN.
+;;;
+(defun select-tn-representation (tn)