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