bug#12191: 24.1.50; Error getf is not a valid place expression

[Stefan Monnier]

> 1) create a file foo.el containing

> (defun slime-merge-notes (notes)
>   "Merge NOTES together. Keep the highest severity, concatenate the messages."
>   (let* ((new-severity (reduce #'slime-most-severe notes
>                                :key #'slime-note.severity))
>          (new-message (mapconcat #'slime-note.message notes "\n")))
>     (let ((new-note (copy-list (car notes))))
>       (setf (getf new-note :message) new-message)
>       (setf (getf new-note :severity) new-severity)
>       new-note)))

This file uses `getf' which is not defined until you require CL.
If you add (require 'cl), byte-compiling should work fine.


        Stefan