From 6e35fccdb1f7905eaa1c59c131c8e861da96ee8e Mon Sep 17 00:00:00 2001
From: Matthias Andreas Benkard <code@mail.matthias.benkard.de>
Date: Sun, 21 Jul 2013 00:29:44 +0200
Subject: Permit function names of the form (SB-PCL::SLOT-ACCESSOR ...).

---
 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 db4ded3..029c6a1 100644
--- a/sb-eval2.lisp
+++ b/sb-eval2.lisp
@@ -758,7 +758,7 @@
                     (prepare-lambda (rest fun-form) context))
                    ((sb-int:named-lambda)
                     (prepare-lambda (cddr fun-form) context))
-                   ((setf)
+                   ((setf sb-pcl::slot-accessor)
                     (prepare-function-ref fun-form context)))))))
            ((lambda)
             (prepare-lambda (rest form) context))
-- 
cgit v1.2.3