From 287459fdae4832223f397d5791b13ab6576118a8 Mon Sep 17 00:00:00 2001
From: ram <ram>
Date: Thu, 8 Mar 1990 13:58:48 +0000
Subject: [PATCH] Initial revision

---
 compiler/represent.lisp | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 compiler/represent.lisp

diff --git a/compiler/represent.lisp b/compiler/represent.lisp
new file mode 100644
index 000000000..12f1d8f55
--- /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)
-- 
GitLab