Maybe there's an issue with using `(asdf:load-system "asdf")` instead of using `(asdf:upgrade-asdf)`.
Starting Allegro 11 with no user customization (`-q`) I get this:
``` International Allegro CL Enterprise Edition 11.0 [64-bit macOS (Apple Silicon)] Copyright (C) 1985-2023, Franz Inc., Lafayette, CA, USA. All Rights Reserved. ... CL-USER(1): (require :asdf) ; Fast loading ; /Applications/AllegroCL64.app/Contents/Resources/code/ASDF.fasl ; Autoloading for class SYNONYM-STREAM: ; Fast loading from bundle code/streamc.fasl. ; Fast loading from bundle code/efft-utf-8s-base.fasl. ; Fast loading from bundle code/efft-utf8-base.fasl. ; Fast loading from bundle code/efft-void.fasl. ; Fast loading from bundle code/efft-latin1-base.fasl. ; Autoloading for package "EXCL.OSI": ; Fast loading ; /Applications/AllegroCL64.app/Contents/Resources/code/OSI.fasl ; Fast loading from bundle code/fileutil.fasl. ; Fast loading from bundle code/acldns.fasl. ; Fast loading from bundle code/iodefs.fasl. ; Fast loading from bundle code/iordefs.fasl. ; Fast loading from bundle code/efmacs.fasl. TCL-USER(4): (asdf:asdf-version) "3.2.0" CL-USER(5): (push "/Users/rpg/lisp/asdf/" asdf:*central-registry*) ("/Users/rpg/lisp/asdf/" "/Users/rpg/lisp/asdf/build/") ```
The following makes it look like ASDF is getting loaded multiple times (could it be because ASDF loads ASDF in order that it can ... load ASDF?): ``` ; Loading /Users/rpg/lisp/asdf/asdf.asd ; Fast loading ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: ARCHITECTURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. ; Loading /Users/rpg/lisp/asdf/asdf.asd ; Fast loading ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lis ```
Doing the same process, only with `upgrade-asdf` instead of `load-system` also seems to load ASDF more than once: ``` ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: ARCHITECTURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. ; Upgrading ASDF from version 3.2.0 to version 3.3.6.2 ; Loading /Users/rpg/lisp/asdf/asdf.asd ; Fast loading ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: ARCHITECTURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. ; Loading /Users/rpg/lisp/asdf/asdf.asd ; Fast loading ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: ARCHITECTURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. ; Loading /Users/rpg/lisp/asdf/asdf.asd ; Fast loading ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: ARCHITECTURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. ; Loading /Users/rpg/lisp/asdf/asdf.asd T ```
So the process I have gone through is:
1. Start `alisp` with no user customization 2. `(require :asdf)` to load the copy of ASDF that is bundled with Allegro (no idea why it's so old) 3. Push the ASDF directory on `asdf:*central-registry*` 4. `(asdf:upgrade-asdf)`
This isn't actually the precise process I wanted to demonstrate -- that was ASDF reloading itself when I was just loading a `.asd` file through `find-system` -- but it's the same issue.
I noticed this because I have some CI scripts for `random-state` that tests to see if `random-state` builds cleanly (without warnings or style-warnings) and it fails that check not because of anything in `random-state`, but because the triggered reloading of ASDF causes redefinition warnings to be signaled (as above). After the above steps (ending in `upgrade-asdf`) I tested, and was able to replicate this behavior:
``` CL-USER(4): (push "/Users/rpg/lisp/random-state/" asdf:*central-registry*) ("/Users/rpg/lisp/random-state/" "/Users/rpg/lisp/asdf/") CL-USER(5): (asdf:find-system "random-state") ; Fast loading ; /Users/rpg/.cache/common-lisp/acl-11.0-macosx-64-bit_apple_silicon/Users/rpg/lisp/asdf/build/asdf.fasl Warning: FIRST-FEATURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: IMPLEMENTATION-TYPE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: *IMPLEMENTATION-TYPE* is defined more than once as `variable' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: OPERATING-SYSTEM is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. Warning: ARCHITECTURE is defined more than once as `operator' in file /Users/rpg/lisp/asdf/build/asdf.lisp. ; Loading /Users/rpg/lisp/asdf/asdf.asd ; Loading /Users/rpg/lisp/random-state/random-state.asd #<ASDF/SYSTEM:SYSTEM "random-state"> ```
I'm not sure why `find-system` should cause ASDF to reload (again). Could this be caused by the call to `definition-dependencies-up-to-date-p` in [the string method for find-system](https://gitlab.common-lisp.net/asdf/asdf/-/blame/master/find-system.lisp?ref...) ?
I'll do some more tests with a bunch of the function calls in `definition-dependencies-up-to-date-p` traced, and make an issue for this with a runnable replication script.
On 2 Jan 2024, at 19:24, Faré wrote:
Do you have multiple versions of ASDF installed? e.g. one from Allegro and another from your source-registry or system-registry ? ASDF always upgrades itself first thing to avoid Big Problems otherwise.
If that's what you're experiencing, I recommend the right after you (require "asdf") and configure it (if you do), you should explicitly (asdf:upgrade-asdf) with whatever warning need be muffled, and then you'll be good.
If there's more than that, please send instructions to reproduce the issue.
-#f
On Tue, Jan 2, 2024, 16:47 Robert Goldman rpgoldman@sift.info wrote:
I am finding that ASDF loads itself multiple times, unnecessarily, at least on Allegro 11. E.g., it reloads when I simply invoke (asdf:component-pathname (asdf:find-system "foo")) for one of my systems.
This is annoying because I get redefinition style warnings every time I do this, which makes it hard to tell when a system loads cleanly.
I have a vague memory of a discussion that addressed the question of why this happens. Does anyone recall the answer, or have a pointer to the discussion?
Interestingly, when I load ASDF and then invoke (asdf/component:component-operation-times (asdf:find-system "asdf")) the only time listed is for define-op
Thanks, R