syntax error in recent Slime commit

[Stas Boukarev]

Fixed, thanks.

On Wed, Dec 16, 2020 at 8:31 PM Douglas Katzman <dougk at 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 at 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
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <https://mailman.common-lisp.net/pipermail/slime-devel/attachments/20201216/8bd14706/attachment.html>