diff --git a/compiler/ir1tran.lisp b/compiler/ir1tran.lisp index cf38842ffc3613ad110ed4f34f7ad268fac013dd..a00aa6eef5840848a1dfee7e3d205e661ddd5961 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)