From: Maxime Devos <maximedevos@telenet.be>
To: 57121@debbugs.gnu.org
Subject: bug#57121: clojure-build-system fails to compile -- backtrace from language/tree-il/peval.scm
Date: Wed, 10 Aug 2022 18:59:22 +0200 [thread overview]
Message-ID: <8cd4199a-7db2-ee39-1939-3783e020dc9c@telenet.be> (raw)
[-- Attachment #1.1.1: Type: text/plain, Size: 5162 bytes --]
I started with a guix checkout at commit
d519305d83d08058e4def2c4d72fe62102d9599d. Everything was compiled,
according to "make".
Then I switched to current master: b21d05d232ec0aba5abec20e83cc52c1d5163cc3.
Now I get the following error:
> In language/tree-il/peval.scm:
> 799:6 19 (loop _ #<vhash 7f81d96446e0 10 pairs> #f effect)
> 1661:48 18 (loop _ _ _ effect)
> In srfi/srfi-1.scm:
> 586:17 17 (map1 (#<tree-il (lexical install #{ g377}#)> #<tree-il
> (const documentation)> #<tree-il (const "Standard 'install' phase for
> clojure-build-system.")>))
> In language/tree-il/peval.scm:
> 853:11 16 (loop _ _ #f value)
> 346:22 15 (visit-operand #<<operand> var: #<<var> name: install
> gensym: #{ g377}# refcount: 2 set?: #f> sym: #{install 412}# visit:
> #<procedure 7f81d96447a0 at language/tree-il/peval.scm:977:40 (exp
> counter ctx)> source: #<tree-il (primcall values (call (@ (guix build
> java-utils) install-jars) (const "./")))> visit-count: 1 use-count: 0
> copyable?: #t residual-value: #f constant-value: #f alias: #f> _ value
> _ _)
> 1286:21 14 (loop _ #<vhash 7f81d96242c0 8 pairs> #<<counter> effort:
> #<variable 7f81d9876ae0 value: 0> size: #<variable 7f81d9876ad0 value:
> 0> continuation: #<procedure abort ()> recursive?: #t data:
> #<<operand> var: #<<var> name: install gensym: #{ g377}# refcount: 2
> set?: #f> sym: #{install 412}# visit: #<procedure 7f81d96447a0 at
> language/tree-il/peval.scm:977:40 (exp counter ctx)> source: #<tree-il
> (primcall values (call (@ (guix build java-utils) install-…> …)
> In srfi/srfi-1.scm:
> 586:17 13 (map1 (#<tree-il (call (@ (guix build java-utils)
> install-jars) (const "./"))>))
> In language/tree-il/peval.scm:
> 1625:20 12 (loop _ #<vhash 7f81d96242c0 8 pairs> #<<counter> effort:
> #<variable 7f81d9876ae0 value: 0> size: #<variable 7f81d9876ad0 value:
> 0> continuation: #<procedure abort ()> recursive?: #t data:
> #<<operand> var: #<<var> name: install gensym: #{ g377}# refcount: 2
> set?: #f> sym: #{install 412}# visit: #<procedure 7f81d96447a0 at
> language/tree-il/peval.scm:977:40 (exp counter ctx)> source: #<tree-il
> (primcall values (call (@ (guix build java-utils) install-…> …)
> 981:20 11 (loop _ #<vhash 7f81d96242c0 8 pairs> #<<counter> effort:
> #<variable 7f81d9876710 value: 65> size: #<variable 7f81d9876700
> value: 20> continuation: #<procedure abort ()> recursive?: #f data:
> #<tree-il (lambda ((name . install-jars)) (lambda-case
> (((jar-directory) #f #f #f () (t413)) (lambda () (lambda-case ((() #f
> #f (#t (#:outputs outputs #f)) ((const #f)) (t414)) (let (share)
> (t415) ((call (@ (guile) string-append) (call (@ (guile) assoc-ref)
> (lex…> …)
> 799:6 10 (loop #<tree-il (lambda () (lambda-case ((() #f #f (#t
> (#:outputs outputs #f)) ((const #f)) (t414)) (let (share) (t415)
> ((call (@ (guile) string-append) (call (@ (guile) assoc-ref) (lexical
> outputs t414) (const "out")) (const "/share/java"))) (seq (call (@
> (guile) for-each) (lambda () (lambda-case (((f) #f #f #f () (t416))
> (call (@ (guix build utils) install-file) (lexical f t416) (lexical
> share t415))))) (call (@ (guix build utils) find-files) (lex…> …)
> 1699:60 9 (loop _ #<vhash 7f81d964b200 10 pairs> #<<counter>
> effort: #<variable 7f81d9876710 value: 65> size: #<variable
> 7f81d9876700 value: 20> continuation: #<procedure abort ()>
> recursive?: #f data: #<tree-il (lambda ((name . install-jars))
> (lambda-case (((jar-directory) #f #f #f () (t413)) (lambda ()
> (lambda-case ((() #f #f (#t (#:outputs outputs #f)) ((const #f))
> (t414)) (let (share) (t415) ((call (@ (guile) string-append) (call (@
> (guile) assoc-ref) (le…> …)
> In srfi/srfi-1.scm:
> 586:17 8 (map1 (#f))
> In language/tree-il/peval.scm:
> 1691:38 7 (new-sym _)
> In ice-9/boot-9.scm:
> 1685:16 6 (raise-exception _ #:continuable? _)
> 1685:16 5 (raise-exception _ #:continuable? _)
> 1780:13 4 (_ #<&compound-exception components:
> (#<&assertion-failure> #<&origin origin: "cdr"> #<&message message:
> "Wrong type argument in position 1 (expecting pair): ~S"> #<&irritants
> irritants: (#f)> #<&exception-with-kind-and-args kind: wrong-type-arg
> args: ("cdr" "Wrong type argument in position 1 (expecting pair): ~S"
> (#f) (#f))>)>)
> In guix/build/compile.scm:
> 191:6 3 (_ _ . _)
> In ice-9/boot-9.scm:
> 1747:15 2 (with-exception-handler #<procedure 7f81dac67270 at
> ice-9/boot-9.scm:1831:7 (exn)> _ #:unwind? _ #:unwind-for-type _)
> In guix/build/compile.scm:
> 194:22 1 (_)
> In unknown file:
> 0 (make-stack #t)
Looking at language/tree-il/peval.scm 1691:38, it appears that somehow
the 'old' symbol does not appear in the environment.
For a minimal test case, remove everything but the 'define-module' and
the '(define-with-docs install [...])'.
Looks like something is going wrong with 'define-with-docs' (without
-with-docs and without the docstring, it compiles fine).
Greetings,
Maxime.
[-- Attachment #1.1.2: OpenPGP public key --]
[-- Type: application/pgp-keys, Size: 929 bytes --]
[-- Attachment #2: OpenPGP digital signature --]
[-- Type: application/pgp-signature, Size: 236 bytes --]
next reply other threads:[~2022-08-10 17:00 UTC|newest]
Thread overview: 9+ messages / expand[flat|nested] mbox.gz Atom feed top
2022-08-10 16:59 Maxime Devos [this message]
2022-08-10 17:42 ` bug#57121: clojure-build-system fails to compile -- backtrace from language/tree-il/peval.scm Maxime Devos
2022-08-19 20:37 ` Maxim Cournoyer
2022-08-19 20:58 ` Maxime Devos
2022-08-22 15:32 ` Maxim Cournoyer
2022-08-22 18:10 ` Maxime Devos
2022-08-23 4:06 ` Maxim Cournoyer
2022-08-23 9:07 ` Maxime Devos
2022-08-27 15:53 ` Maxim Cournoyer
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://guix.gnu.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=8cd4199a-7db2-ee39-1939-3783e020dc9c@telenet.be \
--to=maximedevos@telenet.be \
--cc=57121@debbugs.gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/guix.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).