From 2b79a0045b749f5d4b6b505dfd7151e567ab498c Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sun, 25 Aug 1991 18:11:12 +0000 Subject: [PATCH] Added call to CHECK-PACK-CONSISTENCY, updated call to DUMP-SEGMENT. --- compiler/main.lisp | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/compiler/main.lisp b/compiler/main.lisp index a0ed5e3ef..70757bb93 100644 --- a/compiler/main.lisp +++ b/compiler/main.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/main.lisp,v 1.43 1991/07/09 14:02:16 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/main.lisp,v 1.44 1991/08/25 18:11:12 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -255,6 +255,10 @@ (maybe-mumble "Pack ") (pack component) + (when *check-consistency* + (maybe-mumble "CheckP ") + (check-pack-consistency component)) + (when *compiler-trace-output* (describe-component component *compiler-trace-output*)) @@ -267,7 +271,7 @@ (format *compiler-trace-output* "~|~%Assembly code for ~S~2%" component) - (dump-segment *code-segment* *compiler-trace-output*)) + (dump-segment *code-segment* :stream *compiler-trace-output*)) (when *count-vop-usages* (count-vops component)) -- GitLab