diff --git a/compiler/main.lisp b/compiler/main.lisp index 002153f7f4e21f8cfc202d72853d1e2315203e65..5d67d56669dfb106bf004c442e1dd80933e6f353 100644 --- a/compiler/main.lisp +++ b/compiler/main.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/main.lisp,v 1.118 2000/08/09 12:56:40 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.119 2000/08/09 13:23:19 dtc Exp $") ;;; ;;; ********************************************************************** ;;; @@ -231,7 +231,7 @@ (let ((*constraint-number* 0) (loop-count 1) (*delayed-transforms* nil)) - (declare (special *constraint-number*)) + (declare (special *constraint-number* *delayed-transforms*)) (loop (ir1-optimize-until-done component) (when (or (component-new-functions component)