From ccf2085bc8188832a08a0e8d7f971fdd37fb109e Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Wed, 19 May 1993 08:37:10 +0000 Subject: [PATCH] Moved %PROGV here from eval-comp. --- code/byte-interp.lisp | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/code/byte-interp.lisp b/code/byte-interp.lisp index a028f818a..5e53053a2 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.16 1993/05/17 21:51:46 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/byte-interp.lisp,v 1.17 1993/05/19 08:37:10 ram Exp $") ;;; ;;; ********************************************************************** ;;; @@ -461,6 +461,15 @@ (defun two-arg-string< (x y) (string= x y)) (defun two-arg-string> (x y) (string= x y)) + +;;;; Funny functions: + +;;; used by both byte and IR1 interpreters. +;;; +(defun %progv (vars vals fun) + (progv vars vals + (funcall fun))) + ;;;; XOPs -- GitLab