From 7beaadc5ce277d09e4ba8d5bac1b64f98aacd8ed Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 29 Jul 2011 15:02:25 +0200 Subject: [PATCH] Remove debug statements from BYTECMP --- contrib/bytecmp/bytecmp.lsp | 6 ------ 1 file changed, 6 deletions(-) diff --git a/contrib/bytecmp/bytecmp.lsp b/contrib/bytecmp/bytecmp.lsp index abc3910c2..1a7dbb6af 100644 --- a/contrib/bytecmp/bytecmp.lsp +++ b/contrib/bytecmp/bytecmp.lsp @@ -71,18 +71,12 @@ :if-does-not-exist :create) (handler-case (let ((binary (loop with *package* = *package* - with x = (intern "+C1-FORM-HASH+" (find-package "C")) with ext:*bytecodes-compiler* = t - for y = (and (boundp x) (symbol-value x)) 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)) - do (unless (or (null x) (hash-table-p y)) - (print y) - (print form) - (setf x nil)) 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))