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 ,@lambda-forms)