[movitz-cvs] CVS update: movitz/special-operators-cl.lisp

[Frode Vatvedt Fjeld]

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

Modified Files:
	special-operators-cl.lisp 
Log Message:
Call anonymous functions (lambda <parent> <number>) rather than
(:anonymous-lambda ...)

Date: Thu Jan 27 00:58:53 2005
Author: ffjeld

Index: movitz/special-operators-cl.lisp
diff -u movitz/special-operators-cl.lisp:1.43 movitz/special-operators-cl.lisp:1.44
--- movitz/special-operators-cl.lisp:1.43	Tue Jan 25 05:44:11 2005
+++ movitz/special-operators-cl.lisp	Thu Jan 27 00:58:53 2005
@@ -9,7 +9,7 @@
 ;;;; Created at:    Fri Nov 24 16:31:11 2000
 ;;;; Distribution:  See the accompanying file COPYING.
 ;;;;                
-;;;; $Id: special-operators-cl.lisp,v 1.43 2005/01/25 13:44:11 ffjeld Exp $
+;;;; $Id: special-operators-cl.lisp,v 1.44 2005/01/27 08:58:53 ffjeld Exp $
 ;;;;                
 ;;;;------------------------------------------------------------------
 
@@ -1014,7 +1014,7 @@
 	 (multiple-value-bind (lambda-forms lambda-declarations)
 	     (parse-docstring-declarations-and-body (cddr name))
 	   (let ((lambda-funobj
-		  (make-compiled-funobj-pass1 '(:anonymous-lambda)
+		  (make-compiled-funobj-pass1 '(muerte.cl:lambda)
 					      (cadr name)
 					      lambda-declarations
 					      `(muerte.cl:progn , at lambda-forms)