From 3ad041e968ea1479da72b3418bc59f33a377b1e0 Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Mon, 28 Dec 2009 15:06:59 +0100 Subject: [PATCH] Removed debug statements in EMIT-LOCAL-FUNS. --- src/new-cmp/cmptop.lsp | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/new-cmp/cmptop.lsp b/src/new-cmp/cmptop.lsp index 62bd068ae..7dd2cd127 100644 --- a/src/new-cmp/cmptop.lsp +++ b/src/new-cmp/cmptop.lsp @@ -92,7 +92,6 @@ (t1expr* destination form)))) (defun emit-local-funs (fun) - (format t "~&;;; Adding ~A" (fun-child-funs fun)) (loop with *compile-time-too* = nil with *compile-toplevel* = nil with emitted-local-funs = (make-hash-table :test #'eql) @@ -102,7 +101,6 @@ (when (gethash f emitted-local-funs) (error "Doubly emitted function ~A" f)) (t3local-fun f) - (format t "~&;;; Adding ~A" (fun-child-funs f)) (setf (gethash f emitted-local-funs) t pending (append (fun-child-funs f) pending)))))