ASDF: could use some help with ECL issue

Robert Goldman <rpgoldman-b/[email protected]> Tue, 09 Jan 2024 09:48:31 -0600
Newsgroups gmane.lisp.ecl.general
Message-ID <[email protected]>
--=_MailMate_98D38D68-1670-4C45-A22D-717CA97002B1_=
Content-Type: text/plain; format=flowed; markup=markdown

In the regression test results for a bug fix to ASDF 
(https://gitlab.common-lisp.net/asdf/asdf/-/jobs/63801), I see this 
error which I don't understand at all:


```
Cannot unuse package #<"COMMON-LISP" package> from locked package 
#<"PACKAGE-INFERRED-SYSTEM-TEST/SBCL-EXT-LOCK" package>.
```

The line that seems to be causing this is the following (in a test 
system):

```
(defpackage package-inferred-system-test/sbcl-ext-lock
   (:use :cl)
   #+(or sbcl ecl) (:lock t)
   (:export #:implemented-by-other-package))
```

More discussion about this is in ASDF Merge Request 226: 
https://gitlab.common-lisp.net/asdf/asdf/-/merge_requests/226

The underlying issue is to try to make sure that implementation specific 
`defpackage` extensions (like `:lock`) don't cause ASDF's `defpackage` 
groveler to fail when working with package-defined systems.

Thanks for any advice!


--=_MailMate_98D38D68-1670-4C45-A22D-717CA97002B1_=
Content-Type: text/html
Content-Transfer-Encoding: quoted-printable

<!DOCTYPE html>
<html>
<head>
<meta http-equiv=3D"Content-Type" content=3D"text/xhtml; charset=3Dutf-8"=
>
</head>
<body><div style=3D"font-family: sans-serif;"><div class=3D"markdown" sty=
le=3D"white-space: normal;">
<p dir=3D"auto">In the regression test results for a bug fix to ASDF (<a =
href=3D"https://gitlab.common-lisp.net/asdf/asdf/-/jobs/63801" style=3D"c=
olor: #3983C4;">https://gitlab.common-lisp.net/asdf/asdf/-/jobs/63801</a>=
), I see this error which I don't understand at all:</p>
<pre style=3D"margin-left: 15px; margin-right: 15px; padding: 5px; backgr=
ound-color: #F7F7F7; border-radius: 5px 5px 5px 5px; overflow-x: auto; ma=
x-width: 90vw;"><code style=3D"margin: 0 0; border-radius: 3px; backgroun=
d-color: #F7F7F7; padding: 0px;">Cannot unuse package #&lt;&quot;COMMON-L=
ISP&quot; package&gt; from locked package #&lt;&quot;PACKAGE-INFERRED-SYS=
TEM-TEST/SBCL-EXT-LOCK&quot; package&gt;.
</code></pre>
<p dir=3D"auto">The line that seems to be causing this is the following (=
in a test system):</p>
<pre style=3D"margin-left: 15px; margin-right: 15px; padding: 5px; backgr=
ound-color: #F7F7F7; border-radius: 5px 5px 5px 5px; overflow-x: auto; ma=
x-width: 90vw;"><code style=3D"margin: 0 0; border-radius: 3px; backgroun=
d-color: #F7F7F7; padding: 0px;">(defpackage package-inferred-system-test=
/sbcl-ext-lock
  (:use :cl)
  #+(or sbcl ecl) (:lock t)
  (:export #:implemented-by-other-package))
</code></pre>
<p dir=3D"auto">More discussion about this is in ASDF Merge Request 226: =
<a href=3D"https://gitlab.common-lisp.net/asdf/asdf/-/merge_requests/226"=
 style=3D"color: #3983C4;">https://gitlab.common-lisp.net/asdf/asdf/-/mer=
ge_requests/226</a></p>
<p dir=3D"auto">The underlying issue is to try to make sure that implemen=
tation specific <code style=3D"margin: 0 0; padding: 0 0.25em; border-rad=
ius: 3px; background-color: #F7F7F7;">defpackage</code> extensions (like =
<code style=3D"margin: 0 0; padding: 0 0.25em; border-radius: 3px; backgr=
ound-color: #F7F7F7;">:lock</code>) don't cause ASDF's <code style=3D"mar=
gin: 0 0; padding: 0 0.25em; border-radius: 3px; background-color: #F7F7F=
7;">defpackage</code> groveler to fail when working with package-defined =
systems.</p>
<p dir=3D"auto">Thanks for any advice!</p>

</div>
</div>
</body>

</html>

--=_MailMate_98D38D68-1670-4C45-A22D-717CA97002B1_=--