Re: [asdf-devel] new asdf does not like matlisp.asd

11 Apr 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 ]

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}>
*

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

Re: [asdf-devel] new asdf does not like matlisp.asd