From 74e946c4e140fbde88b2fdccea1b32534f97e2e0 Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Thu, 18 Jul 2013 16:19:43 +0200
Subject: PREPARE-PROGN: Fix a typo.

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

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index e3e2ed6..0d7033e 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -313,7 +313,7 @@
               (last-form* (first (last body*))))
           (lambda (env)
             (dolist (form* forms*)
-              (funcall (funcall (the eval-closure form*) env)))
+              (funcall (the eval-closure form*) env))
             (funcall (the eval-closure last-form*) env))))))
 
 (defun lambda-binding-vars (entry)
-- 
cgit v1.2.3