X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcompiler%2Fgeneric%2Fvm-ir2tran.lisp;h=db6030081f3e4827e97452ff3e0be9dc061e944a;hb=bc46c8bcdd6ac8918df8ea9e9db49808e4924fcf;hp=361c54fe50c2ec1de094fc67b2d4179e538a2184;hpb=772659782631839f87fe059a45ecb28b933e298b;p=sbcl.git

diff --git a/src/compiler/generic/vm-ir2tran.lisp b/src/compiler/generic/vm-ir2tran.lisp
index 361c54f..db60300 100644
--- a/src/compiler/generic/vm-ir2tran.lisp
+++ b/src/compiler/generic/vm-ir2tran.lisp
@@ -24,6 +24,8 @@
 	 name offset lowtag)
     (move-continuation-result node block (list value-tn) (node-cont node))))
 
+;;; FIXME: Isn't there a name for this which looks less like a typo?
+;;; (The name IR2-CONVERT-SETTER is used for something else, just above.)
 (defoptimizer ir2-convert-setfer ((value object) node block name offset lowtag)
   (let ((value-tn (continuation-tn node block value)))
     (vop set-slot node block (continuation-tn node block object) value-tn