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

Added a (OPTIMIZE (SAFETY 1)) in LEAF-VALUE so that we get unbound errors in

interpreted code, even when the interpreter is compiled unsafe.
parent ae2bb7b4
No related branches found
No related tags found
No related merge requests found
...@@ -7,12 +7,10 @@ ...@@ -7,12 +7,10 @@
;;; 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.lisp,v 1.17 1991/04/09 14:40:43 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval.lisp,v 1.18 1991/04/22 23:05:05 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/eval.lisp,v 1.17 1991/04/09 14:40:43 ram Exp $
;;;
;;; This file contains the interpreter. We first convert to the compiler's ;;; This file contains the interpreter. We first convert to the compiler's
;;; IR1 and interpret that. ;;; IR1 and interpret that.
;;; ;;;
...@@ -1029,12 +1027,13 @@ ...@@ -1029,12 +1027,13 @@
(c::constant (c::constant
(c::constant-value leaf)) (c::constant-value leaf))
(c::global-var (c::global-var
(if (eq (c::global-var-kind leaf) :global-function) (locally (declare (optimize (safety 1)))
(let ((name (c::global-var-name leaf))) (if (eq (c::global-var-kind leaf) :global-function)
(if (symbolp name) (let ((name (c::global-var-name leaf)))
(symbol-function name) (if (symbolp name)
(fdefinition name))) (symbol-function name)
(symbol-value (c::global-var-name leaf)))) (fdefinition name)))
(symbol-value (c::global-var-name leaf)))))
(c::lambda-var (c::lambda-var
(leaf-value-lambda-var node leaf frame-ptr closure)) (leaf-value-lambda-var node leaf frame-ptr closure))
(c::functional (c::functional
......
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