Fixed, thanks.

On Wed, Dec 16, 2020 at 8:31 PM Douglas Katzman <dougk@google.com> wrote:
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