diff options
| author | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 00:01:05 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <code@mail.matthias.benkard.de> | 2013-07-15 00:01:05 +0200 |
| commit | f5d2a0cffe4762e1b793e0490903fdc6ec15b648 (patch) | |
| tree | d69675e08122153339231917b4d0e2a9ce29b0b0 | |
| parent | 4ccb1efa134f578996a6cb960369f868673e0f2c (diff) | |
Remove some debugging output.
| -rw-r--r-- | sb-eval2.lisp | 4 |
1 files changed, 1 insertions, 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 |