diff --git a/compiler/envanal.lisp b/compiler/envanal.lisp index 76ed7f8113da65a510e608364c49750c7c44b635..bf35e1164a4a9ac118fe6021ce3c418f5a524be5 100644 --- a/compiler/envanal.lisp +++ b/compiler/envanal.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.33 2003/10/26 10:27:58 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/envanal.lisp,v 1.34 2004/04/13 17:46:21 rtoy Rel $") ;;; ;;; ********************************************************************** ;;; @@ -431,7 +431,7 @@ ;;;; Dynamic-Extent Closures -(defvar *suppress-dynamic-extent-safe-closures* nil) +(defvar *suppress-dynamic-extent-safe-closures* t) ;;; ;;; Mark closures that can be allocated on the stack because they are diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index e78ad2802f90391724a070184031f3bce5c8ec67..4f7bf1c47ae2be99fc55caa696e1e128c9c655a2 100644 --- a/compiler/ir1tran.lisp +++ b/compiler/ir1tran.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.167 2003/12/02 16:59:12 toy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.168 2004/04/13 17:46:21 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -144,7 +144,7 @@ ;;;; Dynamic-Extent -(defvar *trust-dynamic-extent-declarations* nil +(defvar *trust-dynamic-extent-declarations* t "If NIL, never trust dynamic-extent declarations. If T, always trust dynamic-extent declarations.