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

Added LAMBDA-EVAL-INFO-FUNCTION slot.

parent e5c6851b
No related branches found
No related tags found
No related merge requests found
...@@ -35,13 +35,8 @@ ...@@ -35,13 +35,8 @@
(export '(compile-for-eval lambda-eval-info-frame-size (export '(compile-for-eval lambda-eval-info-frame-size
lambda-eval-info-args-passed lambda-eval-info-entries lambda-eval-info-args-passed lambda-eval-info-entries
entry-node-info-st-top entry-node-info-nlx-tag)) lambda-eval-info-function entry-node-info-st-top
entry-node-info-nlx-tag))
;;; EVAL will pick off some special forms; for example, global variable
;;; references, c::package-frobbers, etc. I note this because the compilation
;;; stuff EVAL's these forms instead of compiling code for them.
;;;
;;; COMPILE-FOR-EVAL -- Public. ;;; COMPILE-FOR-EVAL -- Public.
...@@ -113,7 +108,8 @@ ...@@ -113,7 +108,8 @@
(frame-size args-passed entries))) (frame-size args-passed entries)))
frame-size ;Number of stack locations needed to hold locals. frame-size ;Number of stack locations needed to hold locals.
args-passed ;Number of referenced arguments passed to lambda. args-passed ;Number of referenced arguments passed to lambda.
entries) ;A-list mapping entry nodes to stack locations. entries ;A-list mapping entry nodes to stack locations.
(function nil)) ;A function object corresponding to this lambda.
(defun print-lambda-eval-info (obj str n) (defun print-lambda-eval-info (obj str n)
(declare (ignore n obj)) (declare (ignore n obj))
......
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