From c7faea1db0ac683d4bc465134e1b165b76e7c8ba Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Tue, 14 Aug 2012 22:31:11 +0200 Subject: [PATCH] Remove debugging code from bytecmp.lsp --- contrib/bytecmp/bytecmp.lsp | 29 +++++++++++------------------ 1 file changed, 11 insertions(+), 18 deletions(-) diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp index 3c115fc27..48febb41e 100755 --- a/contrib/bytecmp/bytecmp.lsp +++ b/contrib/bytecmp/bytecmp.lsp @@ -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))