diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index 41bb7b4b937082b68d4d80369fc04e60aa28a5c5..0f1fb6c41ff7ef9f1d21b0304b7d7a47d3df7064 100644 --- a/code/byte-interp.lisp +++ b/code/byte-interp.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.42 2003/08/27 14:38:35 gerd Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.43 2003/08/27 15:35:18 gerd Exp $") ;;; ;;; ********************************************************************** ;;; @@ -189,9 +189,11 @@ (defvar *eval-stack* (make-array 100) "This is the interpreter's evaluation stack.") +(declaim (type simple-vector *eval-stack*)) (defvar *eval-stack-top* 0 "This is the next free element of the interpreter's evaluation stack.") +(declaim (type index *eval-stack-top*)) (defmacro current-stack-pointer () '*eval-stack-top*) diff --git a/general-info/release-19a.txt b/general-info/release-19a.txt index ee80907a5a52ee35bbb3bc537ce987904bb2c70b..a5aad49e6dcf60060a726d463244e56095b40fb6 100644 --- a/general-info/release-19a.txt +++ b/general-info/release-19a.txt @@ -70,7 +70,7 @@ New in this release: index. - Lisp binary will also look at the PATH envvar to find out it's own location which is used to find other needed files. - - Byte-interpreted code being executed ca. 20% faster. + - Byte-compiled code being executed ca. 25% faster. * Numerous ANSI compliance fixes: - Many bugs in CMUCL's type system detected by Paul Dietz'