[asdf-devel] new asdf does not like matlisp.asd
james anderson
james.anderson at setf.de
Sun Apr 11 17:34:20 UTC 2010
good evening;
On 2010-04-11, at 18:04 , Robert Goldman wrote:
> On 4/11/10 Apr 11 -10:28 AM, james anderson wrote:
>> good afternoon;
>>
>> reading traverse is not my idea of a good time, but when i persevere,
>> i do not arrive at the same conclusion.
>
> Here is the logic as I understand it. I will cite line numbers. I
> wish
> I knew how to do this reliably --- I can only say that these numbers
> work for me as of this writing (git pull done).
>
> Jargon:
> I think of this as a tree walk, so use the term "node" and "component"
> interchangeably.
> Plan = return value of TRAVERSE; an ordered sequences (specifically a
> list) of Planops
> Planop = a piece of a plan: a dotted pair whose car is an
> operation and
> whose cdr is a component.
>
> [1. - 3. ok, but not directly relevant ]
>
> 4. 1456: If we have a module as our node, then we are done here
> operating on the module's components and are now working on the module
> object proper. So you see what I have been saying about the module
> object representing, at one and the same time, both the module as
> thing
> with components AND any post-operations on the module, after the
> operation has been done on its components (postorder tree traversal).
>
> 4.1 Do we need to operate on the object? OR:
> 1456: are there upstream operations done (FORCED) or were
> operations done on this components children (if any --- MODULE-OPS)?
this is where the module's spurious op planup causes the dependent to
believe it needs a planop.
> [ ... not relevant ]
> 1458: is this operation as yet not done (OPERATION-DONE-P)? As
> you see, the OPERATION-DONE-P test on a module will be performed AFTER
> working on its children in step 3. Note that *it must be this way*
> for
> backward compatibility. This is a consequence of the double-
> meaning of
> MODULE.
this is where the method for modules causes the module itself to add
a planop.
> [... also true, but not relevant]
>
> Hope this analysis helps. Fare, maybe it would be worth writing an
> article about ASDF and the ASDF2-ing for ILC. This reconstruction
> might
> be an important part of such an article.
traverse reads as if the lines most pertinent to this issue are
1417-19, 1435-38, and 1456-58.
strip everything else out. it is a straight depth-first walk to
collect planops.
we can neglect a true force, as none appears here.
in which case, a planop is added for a given component depends if
either one was added for a dependent (1419 through the recursion at
1334) or the component itself is not done.
where modules are never done, they always generate planops.
here is a transcript with probes of this sort:
(format *trace-output* "~&traverse: (~a ~a) initially: ~s~%"
(type-of operation) (asdf:component-name c) forced)
added at lines 1407, 1456, and 1479 and tracing for traverse and
perform. you will observer that, when the modules are never done,
that contribute to spurious "forced" values for their dependents.
* (asdf:load-system :matlispbug)
0: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:SYSTEM "matlispbug" {B046A99}>)
traverse: (LOAD-OP matlispbug) initially: NIL
1: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:SYSTEM "matlispbug" {B046A99}>)
traverse: (COMPILE-OP matlispbug) initially: NIL
2: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
traverse: (COMPILE-OP alien code) initially: NIL
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY" {B0F0AA1}>)
traverse: (COMPILE-OP CPOLY) initially: NIL
4: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly"
{B0F0AB1}>)
traverse: (COMPILE-OP cpoly) initially: NIL
traverse: (COMPILE-OP cpoly) itself: NIL
5: (ASDF:OPERATION-DONE-P #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<MATLISP.SYSTEM::FORTRAN-
SOURCE-FILE
"cpoly" {B0F0AB1}>)
5: ASDF:OPERATION-DONE-P returned T
traverse: (COMPILE-OP cpoly) result: NIL
4: ASDF::TRAVERSE returned NIL
traverse: (COMPILE-OP CPOLY) itself: NIL
4: (ASDF:OPERATION-DONE-P #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY"
{B0F0AA1}>)
4: ASDF:OPERATION-DONE-P returned NIL
traverse: (COMPILE-OP CPOLY) result: ((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-
MODULE "CPOLY"
{B0F0AA1}>))
3: ASDF::TRAVERSE returned
((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>))
traverse: (COMPILE-OP alien code) itself: NIL
traverse: (COMPILE-OP alien code) result: ((#<ASDF:COMPILE-OP NIL
{B4E58C9}>
.
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:UNIX-DSO "alien
code"
{B0F0A91}>))
2: ASDF::TRAVERSE returned
((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>))
2: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE "packages" {B0F0AC1}>)
traverse: (COMPILE-OP packages) initially: NIL
traverse: (COMPILE-OP packages) itself: NIL
3: (ASDF:OPERATION-DONE-P #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE
"packages" {B0F0AC1}>)
3: ASDF:OPERATION-DONE-P returned T
traverse: (COMPILE-OP packages) result: NIL
2: ASDF::TRAVERSE returned NIL
2: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:MODULE "foreign-interface" {B0F0A61}>)
traverse: (COMPILE-OP foreign-interface) initially: NIL
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
3: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP . #<ASDF:UNIX-DSO "alien
code" {B0F0A91}>))
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE "packages" {B0F0AC1}>)
3: ASDF::TRAVERSE returned NIL
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE "f77-
mangling" {B0F0A81}>)
traverse: (COMPILE-OP f77-mangling) initially: NIL
traverse: (COMPILE-OP f77-mangling) itself: NIL
traverse: (COMPILE-OP f77-mangling) result: ((#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"f77-
mangling" {B0F0A81}>))
3: ASDF::TRAVERSE returned
((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>))
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
traverse: (COMPILE-OP ffi-sbcl) initially: NIL
traverse: (COMPILE-OP ffi-sbcl) itself: NIL
traverse: (COMPILE-OP ffi-sbcl) result: ((#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"ffi-sbcl"
{B0F0A71}>))
3: ASDF::TRAVERSE returned
((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>))
traverse: (COMPILE-OP foreign-interface) itself: ((ASDF::PRUNED-OP
. #<ASDF:UNIX-DSO
"alien
code" {B0F0A91}>))
3: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B5374F1}>
#<ASDF:CL-SOURCE-FILE "packages" {B0F0AC1}>)
traverse: (LOAD-OP packages) initially: NIL
4: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B539A09}>
#<ASDF:CL-SOURCE-FILE
"packages" {B0F0AC1}>)
4: ASDF::TRAVERSE returned NIL
traverse: (LOAD-OP packages) itself: NIL
4: (ASDF:OPERATION-DONE-P #<ASDF:LOAD-OP NIL {B5374F1}>
#<ASDF:CL-SOURCE-FILE
"packages" {B0F0AC1}>)
4: ASDF:OPERATION-DONE-P returned T
traverse: (LOAD-OP packages) result: NIL
3: ASDF::TRAVERSE returned NIL
3: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B545431}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
traverse: (LOAD-OP alien code) initially: NIL
4: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B547A09}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
4: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP . #<ASDF:UNIX-DSO "alien
code" {B0F0A91}>))
4: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B545431}>
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY" {B0F0AA1}>)
traverse: (LOAD-OP CPOLY) initially: NIL
5: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B54D5C1}>
#<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY"
{B0F0AA1}>)
5: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}
>))
5: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B545431}>
#<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly"
{B0F0AB1}>)
traverse: (LOAD-OP cpoly) initially: NIL
6: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B5531D9}>
#<MATLISP.SYSTEM::FORTRAN-SOURCE-
FILE "cpoly"
{B0F0AB1}>)
6: ASDF::TRAVERSE returned NIL
traverse: (LOAD-OP cpoly) itself: NIL
traverse: (LOAD-OP cpoly) result: ((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-
SOURCE-FILE
"cpoly" {B0F0AB1}>))
5: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>))
traverse: (LOAD-OP CPOLY) itself: ((ASDF::PRUNED-OP
. #<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY"
{B0F0AA1}>))
traverse: (LOAD-OP CPOLY) result: ((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-
SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY"
{B0F0AA1}>))
4: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>))
traverse: (LOAD-OP alien code) itself: ((ASDF::PRUNED-OP
. #<ASDF:UNIX-DSO "alien code"
{B0F0A91}>))
traverse: (LOAD-OP alien code) result: ((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-
SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-
MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code"
{B0F0A91}>))
3: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>))
traverse: (COMPILE-OP foreign-interface) result: ((#<ASDF:LOAD-OP NIL
{B545431}>
.
#<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL
{B545431}>
.
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL
{B545431}>
. #<ASDF:UNIX-DSO
"alien
code" {B0F0A91}>)
(#<ASDF:COMPILE-OP
NIL
{B4E58C9}>
. #<ASDF:CL-
SOURCE-FILE
"f77-mangling"
{B0F0A81}>)
(#<ASDF:COMPILE-OP
NIL
{B4E58C9}>
. #<ASDF:CL-
SOURCE-FILE
"ffi-
sbcl" {B0F0A71}>)
(#<ASDF:COMPILE-OP
NIL
{B4E58C9}>
. #<ASDF:MODULE
"foreign-
interface"
{B0F0A61}>))
2: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:MODULE "foreign-interface" {B0F0A61}>))
traverse: (COMPILE-OP matlispbug) itself: NIL
traverse: (COMPILE-OP matlispbug) result: ((#<ASDF:COMPILE-OP NIL
{B4E58C9}>
.
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:UNIX-DSO "alien
code"
{B0F0A91}>)
(#<ASDF:LOAD-OP NIL
{B545431}>
.
#<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL
{B545431}>
.
#<MATLISP.SYSTEM::ALIEN-MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL
{B545431}>
. #<ASDF:UNIX-DSO "alien
code"
{B0F0A91}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"f77-
mangling" {B0F0A81}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"ffi-sbcl"
{B0F0A71}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:MODULE "foreign-
interface"
{B0F0A61}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:SYSTEM
"matlispbug"
{B046A99}>))
1: ASDF::TRAVERSE returned
((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE "cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:MODULE "foreign-interface" {B0F0A61}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:SYSTEM "matlispbug" {B046A99}>))
1: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
1: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP . #<ASDF:UNIX-DSO "alien code" {B0F0A91}>))
1: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:CL-SOURCE-FILE "packages" {B0F0AC1}>)
1: ASDF::TRAVERSE returned NIL
1: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:MODULE "foreign-interface" {B0F0A61}>)
traverse: (LOAD-OP foreign-interface) initially: NIL
2: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B57BE41}>
#<ASDF:MODULE "foreign-interface" {B0F0A61}>)
2: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP . #<ASDF:MODULE "foreign-
interface" {B0F0A61}>))
2: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
2: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP . #<ASDF:UNIX-DSO "alien code" {B0F0A91}
>))
2: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:CL-SOURCE-FILE "packages" {B0F0AC1}>)
2: ASDF::TRAVERSE returned NIL
2: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:CL-SOURCE-FILE "f77-
mangling" {B0F0A81}>)
traverse: (LOAD-OP f77-mangling) initially: NIL
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B587069}>
#<ASDF:CL-SOURCE-FILE "f77-
mangling" {B0F0A81}>)
3: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>))
traverse: (LOAD-OP f77-mangling) itself: ((ASDF::PRUNED-OP
. #<ASDF:CL-SOURCE-FILE
"f77-
mangling" {B0F0A81}>))
traverse: (LOAD-OP f77-mangling) result: ((#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE
"f77-
mangling" {B0F0A81}>))
2: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>))
2: (ASDF::TRAVERSE #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
traverse: (LOAD-OP ffi-sbcl) initially: NIL
3: (ASDF::TRAVERSE #<ASDF:COMPILE-OP NIL {B5907D1}>
#<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
3: ASDF::TRAVERSE returned
((ASDF::PRUNED-OP . #<ASDF:CL-SOURCE-FILE "ffi-
sbcl" {B0F0A71}>))
traverse: (LOAD-OP ffi-sbcl) itself: ((ASDF::PRUNED-OP
. #<ASDF:CL-SOURCE-FILE "ffi-
sbcl"
{B0F0A71}>))
traverse: (LOAD-OP ffi-sbcl) result: ((#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "ffi-
sbcl"
{B0F0A71}>))
2: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>))
traverse: (LOAD-OP foreign-interface) itself: ((ASDF::PRUNED-OP
. #<ASDF:MODULE
"foreign-interface"
{B0F0A61}>)
(ASDF::PRUNED-OP
. #<ASDF:UNIX-DSO
"alien code"
{B0F0A91}>))
traverse: (LOAD-OP foreign-interface) result: ((#<ASDF:LOAD-OP NIL
{B4E07F1}>
. #<ASDF:CL-SOURCE-FILE
"f77-
mangling" {B0F0A81}>)
(#<ASDF:LOAD-OP NIL
{B4E07F1}>
. #<ASDF:CL-SOURCE-FILE
"ffi-
sbcl" {B0F0A71}>)
(#<ASDF:LOAD-OP NIL
{B4E07F1}>
. #<ASDF:MODULE
"foreign-interface"
{B0F0A61}>))
1: ASDF::TRAVERSE returned
((#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:MODULE "foreign-interface" {B0F0A61}>))
traverse: (LOAD-OP matlispbug) itself: ((#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-
MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:UNIX-DSO "alien code"
{B0F0A91}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-
SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-
MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code"
{B0F0A91}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"f77-mangling"
{B0F0A81}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"ffi-sbcl"
{B0F0A71}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:MODULE "foreign-
interface"
{B0F0A61}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:SYSTEM "matlispbug"
{B046A99}>))
traverse: (LOAD-OP matlispbug) result: ((#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-
MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:UNIX-DSO "alien code"
{B0F0A91}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-
SOURCE-FILE
"cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-
MODULE
"CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code"
{B0F0A91}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"f77-mangling"
{B0F0A81}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:CL-SOURCE-FILE
"ffi-sbcl"
{B0F0A71}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:MODULE "foreign-
interface"
{B0F0A61}>)
(#<ASDF:COMPILE-OP NIL
{B4E58C9}>
. #<ASDF:SYSTEM "matlispbug"
{B046A99}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE
"f77-mangling"
{B0F0A81}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE
"ffi-sbcl"
{B0F0A71}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:MODULE "foreign-
interface"
{B0F0A61}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:SYSTEM "matlispbug"
{B046A99}>))
0: ASDF::TRAVERSE returned
((#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE "cpoly" {B0F0AB1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
(#<ASDF:LOAD-OP NIL {B545431}>
. #<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:MODULE "foreign-interface" {B0F0A61}>)
(#<ASDF:COMPILE-OP NIL {B4E58C9}>
. #<ASDF:SYSTEM "matlispbug" {B046A99}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}>
. #<ASDF:MODULE "foreign-interface" {B0F0A61}>)
(#<ASDF:LOAD-OP NIL {B4E07F1}> . #<ASDF:SYSTEM
"matlispbug" {B046A99}>))
0: (ASDF:PERFORM #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
1: (ASDF:OPERATION-DONE-P #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
1: ASDF:OPERATION-DONE-P returned T
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B545431}>
#<MATLISP.SYSTEM::FORTRAN-SOURCE-FILE
"cpoly" {B0F0AB1}>)
0: ASDF:PERFORM returned T
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B545431}>
#<MATLISP.SYSTEM::ALIEN-MODULE "CPOLY" {B0F0AA1}>)
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B545431}>
#<ASDF:UNIX-DSO "alien code" {B0F0A91}>)
0: ASDF:PERFORM returned
#P"/home/asdf/.cache/common-lisp/sbcl-1.0.36-linux-x86/ebs/
source/upload/net/common-lisp/matlisp/libmatlisp.so"
0: (ASDF:PERFORM #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
; compiling file "/ebs/source/upload/net/common-lisp/matlisp/src/f77-
mangling.lisp" (written 18 MAR 2010 10:22:00 PM):
; compiling (IN-PACKAGE "FORTRAN-FFI-ACCESSORS")
; compiling (DEFCONSTANT +F77-LOWER-CASE+ ...)
; compiling (DEFCONSTANT +F77-UNDERSCORE+ ...)
; compiling (DEFCONSTANT +F77-EXTRA-UNDERSCORE+ ...)
; compiling (DEFUN %CAT% ...)
; compiling (DEFUN SCAT ...)
; compiling (DEFUN MAKE-FORTRAN-FFI-NAME ...)
; compiling (DEFUN MAKE-FORTRAN-NAME ...)
; file: /ebs/source/upload/net/common-lisp/matlisp/src/f77-mangling.lisp
; in: DEFUN MAKE-FORTRAN-NAME
; (IF FORTRAN-FFI-ACCESSORS::+F77-UNDERSCORE+
; "_"
; "")
; ==>
; ""
;
; note: deleting unreachable code
; (AND FORTRAN-FFI-ACCESSORS::+F77-EXTRA-UNDERSCORE+
; FORTRAN-FFI-ACCESSORS::INTERNAL-UNDERSCORE-P)
; --> IF AND THE
; ==>
; FORTRAN-FFI-ACCESSORS::INTERNAL-UNDERSCORE-P
;
; note: deleting unreachable code
; (IF (AND FORTRAN-FFI-ACCESSORS::+F77-EXTRA-UNDERSCORE+
; FORTRAN-FFI-ACCESSORS::INTERNAL-UNDERSCORE-P)
; "_"
; "")
; ==>
; "_"
;
; note: deleting unreachable code
; (IF FORTRAN-FFI-ACCESSORS::+F77-LOWER-CASE+
; (STRING-DOWNCASE FORTRAN-FFI-ACCESSORS::NAME)
; FORTRAN-FFI-ACCESSORS::NAME)
; ==>
; FORTRAN-FFI-ACCESSORS::NAME
;
; note: deleting unreachable code
; /home/asdf/.cache/common-lisp/sbcl-1.0.36-linux-x86/ebs/source/
upload/net/common-lisp/matlisp/src/f77-mangling.fasl written
; compilation finished in 0:00:00.036
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
; compiling file "/ebs/source/upload/net/common-lisp/matlisp/src/ffi-
sbcl.lisp" (written 18 MAR 2010 10:21:59 PM):
; compiling (IN-PACKAGE "FORTRAN-FFI-ACCESSORS")
; compiling (DEFUN PARSE-DOC-&-PARAMETERS ...)
; compiling (DEFUN CAST-AS-ARRAY-P ...)
; compiling (DEFUN GET-READ-IN-TYPE ...)
; compiling (DEFUN GET-READ-OUT-TYPE ...)
; compiling (DEFUN GET-READ-IN-STYLE ...)
; compiling (DEFUN GET-READ-OUT-STYLE ...)
; compiling (DEFUN PARSE-FORTRAN-PARAMETERS ...)
; compiling (DEFUN DEF-FORTRAN-INTERFACE ...)
; compiling (DEFMACRO DEF-FORTRAN-ROUTINE ...)
; compiling (DEFMACRO INCF-SAP ...)
; compiling (DEFTYPE MATLISP-SPECIALIZED-ARRAY ...)
; compiling (DECLAIM (INLINE VECTOR-DATA-ADDRESS))
; compiling (DEFUN VECTOR-DATA-ADDRESS ...)
; compiling (DEFMACRO WITH-FORTRAN-FLOAT-MODES ...)
; compiling (DEFMACRO WITH-VECTOR-DATA-ADDRESSES ...)
; compiling (DEFMACRO WITH-GENSYMS ...)
; /home/asdf/.cache/common-lisp/sbcl-1.0.36-linux-x86/ebs/source/
upload/net/common-lisp/matlisp/src/ffi-sbcl.fasl written
; compilation finished in 0:00:00.652
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:MODULE "foreign-interface" {B0F0A61}>)
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:COMPILE-OP NIL {B4E58C9}>
#<ASDF:SYSTEM "matlispbug" {B046A99}>)
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:CL-SOURCE-FILE "f77-mangling" {B0F0A81}>)
0: ASDF:PERFORM returned (T)
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:CL-SOURCE-FILE "ffi-sbcl" {B0F0A71}>)
0: ASDF:PERFORM returned (T)
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:MODULE "foreign-interface" {B0F0A61}>)
0: ASDF:PERFORM returned NIL
0: (ASDF:PERFORM #<ASDF:LOAD-OP NIL {B4E07F1}>
#<ASDF:SYSTEM "matlispbug" {B046A99}>)
0: ASDF:PERFORM returned NIL
;
; compilation unit finished
; printed 4 notes
#<ASDF:LOAD-OP NIL {B4E07F1}>
*
More information about the asdf-devel
mailing list