From e4a0fc5cbf25afb25f88754df9c49ccf1bf5fd0e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 28 Mar 1990 15:47:52 +0000 Subject: [PATCH] Deleted some wlott debugging code. --- compiler/srctran.lisp | 1 - 1 file changed, 1 deletion(-) diff --git a/compiler/srctran.lisp b/compiler/srctran.lisp index 7027f3b76..828b11f2b 100644 --- a/compiler/srctran.lisp +++ b/compiler/srctran.lisp @@ -478,7 +478,6 @@ (deftransform %ldb ((size pos int) (fixnum fixnum integer)) (let ((size-len (max-value size))) (unless (<= size-len (integer-length most-positive-fixnum)) - (format *trace-output* "~&max-size=~D~%" size-len) (give-up "result might be up to ~D bits, can't open code %ldb." size-len)) (if (zerop size-len) 0 -- GitLab