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

Remove debugging code from bytecmp.lsp

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-08-14 22:31:11 +02:00
parent 07c4ab7db8
commit c7faea1db0
1 changed files with 11 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

29
contrib/bytecmp/bytecmp.lsp
View file

@ -94,24 +94,17 @@
(t
(with-open-file (sout output-file :direction :output :if-exists :supersede
:if-does-not-exist :create)
(handler-case
(let ((binary (loop with *package* = *package*
with ext:*bytecodes-compiler* = t
for position = (file-position input)
for form = (read input nil :EOF)
until (eq form :EOF)
do (when ext::*source-location*
(rplacd ext:*source-location* position))
collect (si:eval-with-env form nil nil nil nil))))
(sys:with-ecl-io-syntax
(write binary :stream sout :circle t :escape t :readably t :pretty nil))
(terpri sout))
(error (c) (let ((*print-readably* nil)
(*print-pretty* nil)
(*print-circle* t))
(princ c)
(print foo)
(break)))))))
(let ((binary (loop with *package* = *package*
with ext:*bytecodes-compiler* = t
for position = (file-position input)
for form = (read input nil :EOF)
until (eq form :EOF)
do (when ext::*source-location*
(rplacd ext:*source-location* position))
collect (si:eval-with-env form nil nil nil nil))))
(sys:with-ecl-io-syntax
(write binary :stream sout :circle t :escape t :readably t :pretty nil))
(terpri sout)))))
(when load
(load output-file :verbose *compile-verbose*))
(values output-file nil nil))