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

Add dummy stubs which signal errors when the IR1 interpreter hasn't been loaded

yet.
parent 1ea65f05
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/code/eval.lisp,v 1.23 1993/08/17 22:32:03 ram Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.24 1994/02/14 11:46:48 ram Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -190,6 +190,20 @@ ...@@ -190,6 +190,20 @@
exp)))) exp))))
;;; Dummy stubs for EVAL:INTERNAL-EVAL and EVAL:MAKE-INTERPRETED-FUNCTION in
;;; case the compiler isn't loaded yet.
;;;
(defun eval:internal-eval (x)
(error "Attempt to evaluation a complex expression:~% ~S~@
This expression must be compiled, but the compiler is not loaded."
x))
;;;
(defun eval:make-interpreted-function (x)
(error "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~
~% ~S~%"
x))
;;; INTERPRETED-FUNCTION-P -- Interface ;;; INTERPRETED-FUNCTION-P -- Interface
;;; ;;;
;;; This is defined here so that the printer &c can call it before the full ;;; This is defined here so that the printer &c can call it before the full
......
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