From 1cde18301d354de1ca9e61476c95117055089b69 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Fri, 30 Mar 1990 12:35:57 +0000 Subject: [PATCH] Changed lexical-environment type to just list instead of (or list lisp::lexical-environment) 'cause lisp now uses the kernel package, so lisp::lexical-environment is the same as lexical-environment, and defining a type in terms of itself is usually not a good idea. --- compiler/generic/vm-type.lisp | 7 ++----- 1 file changed, 2 insertions(+), 5 deletions(-) diff --git a/compiler/generic/vm-type.lisp b/compiler/generic/vm-type.lisp index 24ecec836..1cd23dbff 100644 --- a/compiler/generic/vm-type.lisp +++ b/compiler/generic/vm-type.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.8 1990/03/28 14:10:05 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/generic/vm-type.lisp,v 1.9 1990/03/30 12:35:57 wlott Exp $ ;;; ;;; This file contains implementation-dependent parts of the type support ;;; code. This is stuff which deals with the mapping from types defined in @@ -55,10 +55,7 @@ (deftype ash-index () 'fixnum) ;;; ;;; A lexical environment for macroexpansion. -(deftype lexical-environment () '(or list lisp::lexical-environment)) -;;; -;;; A full lexical environment. -(deftype full-lexical-environment () 'lisp::lexical-environment) +(deftype lexical-environment () 'list) ;;; ;;; Worst case values for float attributes. ;;; ### long-float exponent range seems to be this, but I don't know why. -- GitLab