From 0f87b7abc46ec52c7d67c73963610ee6eb476485 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <matthias@benkard.de>
Date: Thu, 7 Aug 2008 14:46:06 +0200
Subject: Fix declaration handling in DEFUN, LAMBDA, and DEFMACRO.

---
 defun-1.lisp | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'defun-1.lisp')

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)
-- 
cgit v1.2.3