Skip to content
Snippets Groups Projects
Commit ce0cdbba authored by ram's avatar ram
Browse files

Moved %PROGV to code/byte-interp.

parent ccf2085b
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu. ;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.23 1993/01/17 20:59:54 wlott Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval-comp.lisp,v 1.24 1993/05/19 08:37:32 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -300,10 +300,6 @@ ...@@ -300,10 +300,6 @@
(defun %unknown-keyword-argument-error (keyword) (defun %unknown-keyword-argument-error (keyword)
(error "Unknown keyword argument -- ~S." keyword)) (error "Unknown keyword argument -- ~S." keyword))
(defun %progv (vars vals fun)
(progv vars vals
(funcall fun)))
(defun %cleanup-point ()) (defun %cleanup-point ())
(defun value-cell-ref (x) (value-cell-ref x)) (defun value-cell-ref (x) (value-cell-ref x))
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment