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