diff --git a/compiler/eval-comp.lisp b/compiler/eval-comp.lisp index 280acdb9e36cbf124de4fbb15253ae3d5ab8fe30..5babb5727d750a1668e87b5ce219cdd965f315a3 100644 --- a/compiler/eval-comp.lisp +++ b/compiler/eval-comp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.18 1991/03/11 17:13:43 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.19 1991/11/13 07:54:05 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -94,7 +94,6 @@ (find-initial-dfo lambdas) (let ((*all-components* (append components top-components))) (when *check-consistency* - (maybe-mumble "[Check]~%") (check-ir1-consistency *all-components*)) ;; ;; This DOLIST body comes from the beginning of @@ -102,11 +101,9 @@ (dolist (component *all-components*) (ir1-finalize component) (let ((*compile-component* component)) - (maybe-mumble "Env ") (environment-analyze component)) (annotate-component-for-eval component)) (when *check-consistency* - (maybe-mumble "[Check]~%") (check-ir1-consistency *all-components*)))) (car lambdas))))))