From 477cb061ff7e301432f3f736966cc095147934ad Mon Sep 17 00:00:00 2001 From: gerd <gerd> Date: Wed, 27 Aug 2003 15:35:18 +0000 Subject: [PATCH] * src/code/byte-interp.lisp (*eval-stack*, *eval-stack-top*): Declaim types. --- code/byte-interp.lisp | 4 +++- general-info/release-19a.txt | 2 +- 2 files changed, 4 insertions(+), 2 deletions(-) diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index 41bb7b4b9..0f1fb6c41 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 ee80907a5..a5aad49e6 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' -- GitLab