From f5d2a0cffe4762e1b793e0490903fdc6ec15b648 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Mon, 15 Jul 2013 00:01:05 +0200
Subject: Remove some debugging output.

---
 sb-eval2.lisp | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 6ba0ad6..20b57ca 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -226,9 +226,7 @@
              (type fixnum sp new-size))
     (loop for size fixnum = (array-dimension stack 0)
           while (< size new-size)
-          do (format t "~&Resizing stack (new size: ~D)."
-                     (+ new-size (the fixnum (round (* size 1.5)))))
-             (setq stack
+          do (setq stack
                    (adjust-array stack
                                  (list (the fixnum
                                             (+ new-size (the fixnum
-- 
cgit v1.2.3