[cmucl-ticket] [cmucl] #59: pcl failure

[cmucl]

#59: pcl failure
--------------------+-------------------------------------------------------
 Reporter:  rtoy    |       Owner:  rtoy
     Type:  defect  |      Status:  new 
 Priority:  major   |   Milestone:      
Component:  PCL     |     Version:  20c 
 Keywords:          |  
--------------------+-------------------------------------------------------
Description changed by rtoy:

Old description:

> Mentioned on the asdf-devel page.
>
>  1.  start cmucl
>  1.  {{{(require :asdf)}}}
>  1.  push my asdf directory onto {{{asdf:*central-registry*}}}
>  1.  {{{(asdf:load-system :asdf)}}}
>
> The asdf directory in question is the directory containing the asdf
> version 2.20.18.
>
> The error produced is:
>
> {{{
> #(11) fell through ETYPECASE expression.
> Wanted one of (FUNCTION PCL::FAST-INSTANCE-BOUNDP FIXNUM PCL::METHOD-CALL
>                PCL::FAST-METHOD-CALL).
>    [Condition of type CONDITIONS::CASE-FAILURE]
>
> Restarts:
>   0: [TRY-RECOMPILING] Try recompiling asdf
>   1: [RETRY          ] Retry compiling #<CL-SOURCE-FILE "asdf" "asdf">.
>   2: [ACCEPT         ] Continue, treating
>                        compiling #<CL-SOURCE-FILE "asdf" "asdf"> as
> having been
>                        successful.
>   3: [ABORT          ] Return to Top-Level.
>
> }}}

New description:

 Mentioned on the asdf-devel list.

  1.  start cmucl
  1.  {{{(require :asdf)}}}
  1.  push my asdf directory onto {{{asdf:*central-registry*}}}
  1.  {{{(asdf:load-system :asdf)}}}

 The asdf directory in question is the directory containing the asdf
 version 2.20.18.

 The error produced is:

 {{{
 #(11) fell through ETYPECASE expression.
 Wanted one of (FUNCTION PCL::FAST-INSTANCE-BOUNDP FIXNUM PCL::METHOD-CALL
                PCL::FAST-METHOD-CALL).
    [Condition of type CONDITIONS::CASE-FAILURE]

 Restarts:
   0: [TRY-RECOMPILING] Try recompiling asdf
   1: [RETRY          ] Retry compiling #<CL-SOURCE-FILE "asdf" "asdf">.
   2: [ACCEPT         ] Continue, treating
                        compiling #<CL-SOURCE-FILE "asdf" "asdf"> as
 having been
                        successful.
   3: [ABORT          ] Return to Top-Level.

 }}}

--

-- 
Ticket URL: <http://trac.common-lisp.net/cmucl/ticket/59#comment:1>
cmucl <http://common-lisp.net/project/cmucl>
Cmucl is a high-performance, free Common Lisp implementation.