mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Removed debug statements in EMIT-LOCAL-FUNS.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-12-28 15:06:59 +01:00
parent 97bc8f4c4e
commit 3ad041e968
1 changed files with 0 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/new-cmp/cmptop.lsp
View file

@ -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)))))