Using something like
(for old-val = (atomic-decf ...))
in SBCL gives a warning that (sb-ext:truly-the ...) isn't known.
So perhaps there should be a
#+sbcl (sb-ext:truly-the . walk-cddr)
just below the "the" handling case.
I've reported that as https://bugs.launchpad.net/sbcl/+bug/771673, too.
Regards,
Phil
--
Versioning your /etc, /home or even your whole installation?
Try fsvs (fsvs.tigris.org)