X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fir1-translators.lisp;h=4c5a861faa30d3863016c7b28fb86075855263fc;hb=98f3f617894ce24a40764aa98606ce68c5482cf0;hp=30e27c8ad4be8488b2efb5d969a7532e78774bf5;hpb=2489ac3021325890a98886110ab3055fa990a850;p=sbcl.git

diff --git a/src/compiler/ir1-translators.lisp b/src/compiler/ir1-translators.lisp
index 30e27c8..4c5a861 100644
--- a/src/compiler/ir1-translators.lisp
+++ b/src/compiler/ir1-translators.lisp
@@ -444,7 +444,7 @@
 			  thing
 			  :debug-name (debug-namify "#'~S" thing)
 			  :allow-debug-catch-tag t)))
-	((setf)
+	((setf sb!pcl::class-predicate)
 	 (let ((var (find-lexically-apparent-fun
 		     thing "as the argument to FUNCTION")))
 	   (reference-leaf start cont var)))