Comment 2 for bug 1686660

The right fix would be (member position slots :key #'slot-definition-location), or rather, replace the whole thing with just
(slot-definition-name
 (find position (layout-slot-list (layout-of instance))
       :key #'slot-definition-location))