summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthias Andreas Benkard <matthias@benkard.de>2008-08-07 14:46:06 +0200
committerMatthias Andreas Benkard <matthias@benkard.de>2008-08-07 14:46:06 +0200
commit0f87b7abc46ec52c7d67c73963610ee6eb476485 (patch)
tree51c6054b6ba00641485774054b265a6cd7def315
parent3329eeafa1f08c5b9d410e57f761011d2e1ac1d6 (diff)
Fix declaration handling in DEFUN, LAMBDA, and DEFMACRO.
-rw-r--r--defun-1.lisp4
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)