From deee773f77c013a7306033beb036ba670270c74d Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 18 Jul 2013 17:15:20 +0200
Subject: Fix symbol macro application.

---
 sb-eval2.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'sb-eval2.lisp')

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index 843bacd..0a2828e 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -551,7 +551,7 @@
         (symbol
          (let ((macro? (context-find-symbol-macro context form)))
                 (if macro?
-                    (funcall (the function (cdr macro?)))
+                    (prepare-form macro?)
                     (prepare-ref form context))))
         (cons
          (case (first form)
-- 
cgit v1.2.3