From ae8e60d3c54eed0d8e612c8b8471066856b3787b Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 21 Jul 2013 12:03:30 +0200
Subject: MAYBE-CLOSES-OVER-P: Handle SB-INT:NAMED-LAMBDA closures.

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

diff --git a/sb-eval2.lisp b/sb-eval2.lisp
index b5fcf0c..aa9735e 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -95,7 +95,7 @@
          (cons
           (destructuring-bind (a . b) x
             (case a
-              ((lambda)
+              ((lambda sb-int:named-lambda)
                (when (maybe-references-p/env form vars env)
                  (return-from maybe-closes-over-p/env t)))
               ((flet labels)
-- 
cgit v1.2.3