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

Changed FUNCTION-LAMBDA-EXPRESSION to use the DEBUG-SOURCE-INFO so that

it can tell whether a function it's got is the real original DEFUN 
function, or if it is some internal function.
parent efdf5eca
No related branches found
No related tags found
No related merge requests found
......@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC).
;;; **********************************************************************
;;;
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.6 1990/09/28 00:56:15 ram Exp $
;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/eval.lisp,v 1.7 1990/10/11 18:17:18 ram Exp $
;;;
(in-package "LISP")
(export '(eval constantp quote proclaim
......@@ -179,8 +179,9 @@
(info (di::code-debug-info code)))
(if info
(let ((source (first (c::compiled-debug-info-source info))))
(cond ((eq (c::debug-source-from source) :lisp)
(values (second (c::debug-source-name source))
(cond ((and (eq (c::debug-source-from source) :lisp)
(eq (c::debug-source-info source) fun))
(values (second (svref (c::debug-source-name source) 0))
nil name))
((stringp name)
(values nil t name))
......@@ -191,6 +192,7 @@
(values nil t name))))))
(values nil t name)))))
;;; FIND-IF-IN-CLOSURE -- Interface
;;;
;;; Like FIND-IF, only we do it on a compiled closure's environment.
......
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