Skip to content
Snippets Groups Projects
Commit b812530b authored by pmai's avatar pmai
Browse files

Merged back important fix from 18e release branch.

parent d3699b0c
No related branches found
No related tags found
No related merge requests found
......@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.36 2003/03/21 23:43:08 pmai Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.37 2003/03/22 01:25:43 pmai Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -251,12 +251,14 @@
;;; Dummy stubs for EVAL:INTERNAL-EVAL and EVAL:MAKE-INTERPRETED-FUNCTION in
;;; case the compiler isn't loaded yet.
;;;
(declaim (notinline eval:internal-eval))
(defun eval:internal-eval (form &optional quietly env)
(declare (ignore quietly env))
(error "Attempt to evaluation a complex expression:~% ~S~@
This expression must be compiled, but the compiler is not loaded."
form))
;;;
(declaim (notinline eval:make-interpreted-function))
(defun eval:make-interpreted-function (x)
(error "EVAL called on #'(lambda (x) ...) when the compiler isn't loaded:~
~% ~S~%"
......
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