diff options
| -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 |