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