
This change causes a malformed let in an older SBCL that has both a compatibility accessor (%code-entry-points) and the preferred accessor (%code-entry-point). It works in new SBCL which only has the new, and very old SBCL which only has the old, but not in the interim releases which had both. commit 53badd278bf5ac36922d7b417f44e1c21e724547 Author: Stas Boukarev <stassats@gmail.com> Date: Tue Dec 15 01:38:46 2020 +0300 No more sb-kernel:%code-entry-points. *diff --git a/contrib/swank-sprof.lisp b/contrib/swank-sprof.lisp* *index 675240ff..9c640ec3 100644* *--- a/contrib/swank-sprof.lisp* *+++ b/contrib/swank-sprof.lisp* @@ -138,7 +138,10 @@ (debug-info (sb-sprof::node-debug-info node))) (or (when (typep debug-info 'sb-di::compiled-debug-fun) (let* ((component (sb-di::compiled-debug-fun-component debug-info)) - (function (sb-kernel::%code-entry-points component))) + (function #+#.(swank/backend:with-symbol '%code-entry-points 'sb-kernel) + (sb-kernel::%code-entry-points component) + #+#.(swank/backend:with-symbol '%code-entry-point 'sb-kernel) + (sb-kernel:%code-entry-point component 0))) (when function (find-source-location function)))) `(:error "No source location available")))) d