Make compute-effective-slot-definition compatible with print-case :downcase