1 ;;;; An interpreting EVAL
3 ;;;; This software is part of the SBCL system. See the README file for
6 ;;;; This software is derived from the CMU CL system, which was
7 ;;;; written at Carnegie Mellon University and released into the
8 ;;;; public domain. The software is in the public domain and is
9 ;;;; provided with absolutely no warranty. See the COPYING and CREDITS
10 ;;;; files for more information.
12 (in-package "SB!EVAL")
14 (defparameter *eval-level* -1)
15 (defparameter *eval-calls* 0)
16 (defparameter *eval-verbose* nil)
18 (defun !full-eval-cold-init ()
22 *evaluator-mode* :compile))
24 ;; !defstruct-with-alternate-metaclass is unslammable and the
25 ;; RECOMPILE restart doesn't work on it. This is the main reason why
26 ;; this stuff is split out into its own file. Also, it lets the
27 ;; INTERPRETED-FUNCTION type be declared before it is used in
29 (sb!kernel::!defstruct-with-alternate-metaclass
31 :slot-names (name lambda-list env declarations documentation body source-location)
32 :boa-constructor %make-interpreted-function
33 :superclass-name function
34 :metaclass-name static-classoid
35 :metaclass-constructor make-static-classoid
36 :dd-type funcallable-structure
37 :runtime-type-checks-p nil)
39 (defun make-interpreted-function
40 (&key name lambda-list env declarations documentation body source-location)
41 (let ((function (%make-interpreted-function
42 name lambda-list env declarations documentation body
44 (setf (sb!kernel:funcallable-instance-fun function)
45 #'(lambda (&rest args)
46 (interpreted-apply function args)))
49 (defun interpreted-function-p (function)
50 (typep function 'interpreted-function))
52 (sb!int:def!method print-object ((obj interpreted-function) stream)
53 (print-unreadable-object (obj stream
54 :identity (not (interpreted-function-name obj)))
55 (format stream "~A ~A" '#:interpreted-function
56 (interpreted-function-name obj))))