[cclan-list] asdf/inline method breaks in cmucl-2003-12

[Ole M. R. <ole...@ce...>]

Hello,

I have a problem with asdf inline methods in cmucl-2003-12 ("Gerd PCL"). The
following minimal example is derived from cl-pdf using uffi.

I'd be thankful for any input,
Ole


;; File: foo.asd
(in-package asdf)
(defsystem foo
    :perform (load-op :after (o c) (values))
    :depends-on (:bar))

;; File: bar.asd
(in-package asdf)
(defsystem bar
    :components ((:file "bar")))

;; File: bar.lisp
;; Empty file

; Loading #p"/home/mrohne/.cmucl-init.lisp".
;; Loading #p"/home/mrohne/lib/subsystems/asdf-library.x86f".
CMU Common Lisp pre19-test, running on pcpenn04.cern.ch
With core: /usr/local/cmucl-pre19/lib/cmucl/lib/lisp.core
Dumped on: Fri, 2003-12-19 00:05:18+01:00 on pcpenn04.cern.ch
See <http://www.cons.org/cmucl/> for support information.
Loaded subsystems:
    Python 1.1, target Intel x86
    CLOS based on Gerd's PCL 2003/06/18 09:23:09
* (asdf:oos 'asdf:load-op :foo)
 
; loading system definition from home:lisp/systems/foo.asd into
; #<The ASDF1455 package>
; Loading #p"/home/mrohne/public/lisp/systems/foo.asd".
; registering #<SYSTEM FOO {5066D03D}> as FOO
; Compiling LAMBDA (PCL::.PV-CELL. PCL::.NEXT-METHOD-CALL. O C):
; Compiling Top-Level Form:
; loading system definition from home:lisp/systems/bar.asd into
; #<The ASDF1497 package>
; Loading #p"/home/mrohne/public/lisp/systems/bar.asd".
; registering #<SYSTEM BAR {5087148D}> as BAR
; Loading #p"/home/mrohne/public/lisp/systems/bar.x86f".
 
NIL fell through ETYPECASE expression.
Wanted one of (FUNCTION PCL::METHOD-CALL FIXNUM PCL::FAST-METHOD-CALL).
   [Condition of type CONDITIONS::CASE-FAILURE]
 
Restarts:
  0: [RETRY ] Retry performing #<ASDF:LOAD-OP NIL {50881C55}> on
              #<ASDF:SYSTEM "bar" {5087148D}>.
  1: [ACCEPT] Continue, treating #<ASDF:LOAD-OP NIL {50881C55}> on
              #<ASDF:SYSTEM "bar" {5087148D}> as having been successful.
  2: [ABORT ] Return to Top-Level.
 
Debug  (type H for help)
 
("LAMBDA (#:G1478 #:G1479 #:G1480)" #<unused-arg> #<unused-arg>
 #<ASDF:LOAD-OP NIL {50881C55}> #<ASDF:SYSTEM "bar" {5087148D}>)
Source: (PCL::INVOKE-EFFECTIVE-METHOD-FUNCTION PCL::.CALL.
                                               NIL
                                               PCL::.ARG0.
                                               PCL::.ARG1.)
0] backtrace
 
0: ("LAMBDA (#:G1478 #:G1479 #:G1480)" #<unused-arg> #<unused-arg>
    #<ASDF:LOAD-OP NIL {50881C55}> #<ASDF:SYSTEM "bar" {5087148D}>)
1: ((FLET #:G0
      ASDF:OPERATE))
2: (ASDF:OPERATE ASDF:LOAD-OP :FOO)
3: (ASDF:OPERATE 2 ASDF:LOAD-OP :FOO)[:EXTERNAL]
4: (INTERACTIVE-EVAL (ASDF:OOS 'ASDF:LOAD-OP :FOO))
5: (LISP::%TOP-LEVEL)
6: ((LABELS LISP::RESTART-LISP
      SAVE-LISP))
 
0]