From b3a530fc2614541c0cdd72c2cc80a40b5ead7099 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Thu, 11 Oct 1990 18:17:18 +0000 Subject: [PATCH] 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. --- code/eval.lisp | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/code/eval.lisp b/code/eval.lisp index 917347315..1c23ed313 100644 --- a/code/eval.lisp +++ b/code/eval.lisp @@ -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. -- GitLab