diff options
| author | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 14:46:06 +0200 |
|---|---|---|
| committer | Matthias Andreas Benkard <matthias@benkard.de> | 2008-08-07 14:46:06 +0200 |
| commit | 0f87b7abc46ec52c7d67c73963610ee6eb476485 (patch) | |
| tree | 51c6054b6ba00641485774054b265a6cd7def315 /defun-1.lisp | |
| parent | 3329eeafa1f08c5b9d410e57f761011d2e1ac1d6 (diff) | |
Fix declaration handling in DEFUN, LAMBDA, and DEFMACRO.
Diffstat (limited to 'defun-1.lisp')
| -rw-r--r-- | defun-1.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/defun-1.lisp b/defun-1.lisp index b3496e7..e28816e 100644 --- a/defun-1.lisp +++ b/defun-1.lisp @@ -30,7 +30,7 @@ `(,lambda-sym ,@(when docstring (list docstring)) (d-b ,lambda-list nil nil ,lambda-sym - ,@decls + ,@(if decls `((declare ,@decls))) ,@forms)))) (%defmacro* defun (name lambda-list . body) @@ -52,7 +52,7 @@ (,lambda-sym (cdr (first ,arg-sym))) (,env-sym (second ,arg-sym))) (d-b ,lambda-list ,env-sym ,whole-sym ,lambda-sym - ,@decls + ,@(if decls `((declare ,@decls))) ,@forms)))))) (%defmacro* defmacro (name lambda-list . body) |