From c076be667bfd617bf0cfe8e9ea690a1632651c38 Mon Sep 17 00:00:00 2001 From: JeffBezanson Date: Fri, 27 Mar 2009 03:47:11 +0000 Subject: [PATCH] fixing bug in macroexpand on lambdas --- femtolisp/system.lsp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/femtolisp/system.lsp b/femtolisp/system.lsp index 5152827..250cb79 100644 --- a/femtolisp/system.lsp +++ b/femtolisp/system.lsp @@ -111,6 +111,10 @@ (if f (macroexpand-in (apply f (cdr e)) env) (cond ((eq (car e) 'quote) e) + ((eq (car e) 'lambda) + (nlist* 'lambda (cadr e) + (macroexpand-in (caddr e) env) + (cdddr e))) ((eq (car e) 'let-syntax) (let ((binds (cadr e)) (body (f-body (cddr e))))