From 4cb7a0611ed6948fbc60a9176fbc160ce04fda8c Mon Sep 17 00:00:00 2001
From: chiles <chiles>
Date: Tue, 20 Nov 1990 15:51:27 +0000
Subject: [PATCH] Added rt-fasl-file-implementation.

---
 compiler/dump.lisp | 8 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/compiler/dump.lisp b/compiler/dump.lisp
index dc37b197a..4539da589 100644
--- a/compiler/dump.lisp
+++ b/compiler/dump.lisp
@@ -7,7 +7,7 @@
 ;;; Scott Fahlman (FAHLMAN@CMUC). 
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.25 1990/11/05 17:42:57 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/dump.lisp,v 1.26 1990/11/20 15:51:27 chiles Exp $
 ;;;
 ;;;    This file contains stuff that knows about dumping FASL files.
 ;;;
@@ -17,7 +17,8 @@
 
 (export '(fasl-file-implementations
 	  pmax-fasl-file-implementation
-	  sparc-fasl-file-implementation))
+	  sparc-fasl-file-implementation
+	  rt-fasl-file-implementation))
 
 
 ;;;; Different Implementations:
@@ -25,9 +26,10 @@
 ;;; Constants for the different implementations.  These are all defined in
 ;;; one place to make sure they are all unique.
 
-(defconstant fasl-file-implementations '(nil "Pmax" "Sparc"))
+(defconstant fasl-file-implementations '(nil "Pmax" "Sparc" "RT"))
 (defconstant pmax-fasl-file-implementation 1)
 (defconstant sparc-fasl-file-implementation 2)
+(defconstant rt-fasl-file-implementation 3)
 
 
 ;;;; Fasl dumper state:
-- 
GitLab