From ba6fb77e9c8995e0508408a6fb0f6f2741e188c6 Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Thu, 7 Aug 2003 09:48:43 +0000 Subject: [PATCH] * src/compiler/ir1tran.lisp (*suppress-dynamic-extent-declaration*): Remove. One can use *trust-dynamic-extent-declarations* now. --- compiler/ir1tran.lisp | 9 ++------- 1 file changed, 2 insertions(+), 7 deletions(-) diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index cf38842ff..a00aa6eef 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.160 2003/08/06 19:01:17 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/ir1tran.lisp,v 1.161 2003/08/07 09:48:43 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1178,9 +1178,6 @@ (defvar *suppress-values-declaration* nil "If true, processing of the VALUES declaration is inhibited.") -(defvar *suppress-dynamic-extent-declaration* nil - "If true, processing of dynamic-extent declarations is inhibited.") - ;;; PROCESS-1-DECLARATION -- Internal ;;; ;;; Process a single declaration spec, agumenting the specified LEXENV @@ -1233,9 +1230,7 @@ `(values ,@types))) cont res 'values)))) (dynamic-extent - (if *suppress-dynamic-extent-declaration* - res - (process-dynamic-extent-declaration spec vars fvars res))) + (process-dynamic-extent-declaration spec vars fvars res)) (t (let ((what (first spec))) (cond ((member what type-specifier-symbols) -- GitLab