From 060caa50af69475547223db85752ec37c35f8396 Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sun, 11 Oct 1992 21:09:27 +0000
Subject: [PATCH] removed definitions for primitive types random and interior
 because they arn't needed anymore.

---
 compiler/generic/primtype.lisp | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/compiler/generic/primtype.lisp b/compiler/generic/primtype.lisp
index 7fd8934ed..c3fc4b4da 100644
--- a/compiler/generic/primtype.lisp
+++ b/compiler/generic/primtype.lisp
@@ -7,11 +7,11 @@
 ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.6 1991/11/09 02:39:50 wlott Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.7 1992/10/11 21:09:27 wlott Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
-;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.6 1991/11/09 02:39:50 wlott Exp $
+;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/primtype.lisp,v 1.7 1992/10/11 21:09:27 wlott Exp $
 ;;;
 ;;; This file contains the machine independent aspects of the object
 ;;; representation and primitive types.
@@ -100,12 +100,9 @@
 
 ;;; Random primitive types that don't exist at the LISP level.
 ;;; 
-(def-primitive-type random (non-descriptor-reg) :type nil)
-(def-primitive-type interior (interior-reg) :type nil)
 (def-primitive-type catch-block (catch-block) :type nil)
 
 
-
 
 ;;;; Primitive-type-of and friends.
 
-- 
GitLab