[movitz-cvs] CVS update: movitz/losp/muerte/eval.lisp

[Frode Vatvedt Fjeld]

Update of /project/movitz/cvsroot/movitz/losp/muerte
In directory common-lisp.net:/tmp/cvs-serv6334

Modified Files:
	eval.lisp 
Log Message:
Explicitly name anonymbous lambda functions that eval creates.

Date: Thu Apr 15 09:16:28 2004
Author: ffjeld

Index: movitz/losp/muerte/eval.lisp
diff -u movitz/losp/muerte/eval.lisp:1.5 movitz/losp/muerte/eval.lisp:1.6
--- movitz/losp/muerte/eval.lisp:1.5	Thu Apr  1 15:25:07 2004
+++ movitz/losp/muerte/eval.lisp	Thu Apr 15 09:16:28 2004
@@ -10,7 +10,7 @@
 ;;;; Author:        Frode Vatvedt Fjeld <frodef at acm.org>
 ;;;; Created at:    Fri Oct 19 21:15:12 2001
 ;;;;                
-;;;; $Id: eval.lisp,v 1.5 2004/04/01 20:25:07 ffjeld Exp $
+;;;; $Id: eval.lisp,v 1.6 2004/04/15 13:16:28 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -323,13 +323,14 @@
        ((lambda)
 	(let ((lambda-list (cadr function-name))
 	      (lambda-body (cddr function-name)))
-	  (lambda (&rest args)
-	    (declare (dynamic-extent args))
-	    (eval-progn lambda-body
-			(make-destructuring-env lambda-list args env
-						:environment-p nil
-						:recursive-p nil
-						:whole-p nil)))))))))
+	  (install-funobj-name :anonymous-lambda
+			       (lambda (&rest args)
+				 (declare (dynamic-extent args))
+				 (eval-progn lambda-body
+					     (make-destructuring-env lambda-list args env
+								     :environment-p nil
+								     :recursive-p nil
+								     :whole-p nil))))))))))
   
 (defun lookup-setf-function (name)
   (let ((setf-name (gethash name (get-global-property :setf-namespace))))