From 1b26770a925878db363352122eb8b7ae6d2c56f1 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 12 May 1993 16:15:46 +0000 Subject: [PATCH] Moved definition of *eval-stack* here so that we can use byte code w/o the compiler loaded. --- code/byte-interp.lisp | 11 +++++++++-- 1 file changed, 9 insertions(+), 2 deletions(-) diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index d0002f045..a9ddc1e2a 100644 --- a/code/byte-interp.lisp +++ b/code/byte-interp.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.12 1993/05/12 15:32:07 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.13 1993/05/12 16:15:46 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -20,7 +20,8 @@ (in-package "KERNEL") (export '(byte-function byte-function-name initialize-byte-compiled-function byte-closure byte-closure-function - byte-closure-data byte-function-or-closure)) + byte-closure-data byte-function-or-closure + *eval-stack* *eval-stack-top*)) (in-package "C") @@ -129,6 +130,12 @@ ;;;; The stack. +(defvar *eval-stack* (make-array 100) + "This is the interpreter's evaluation stack.") + +(defvar *eval-stack-top* 0 + "This is the next free element of the interpreter's evaluation stack.") + (declaim (inline current-stack-pointer)) (defun current-stack-pointer () (declare (values stack-pointer)) -- GitLab