Thanks for reporting the bug, Pascal. It will be fixed in git/CVS today.

Juanjo

On Sat, Feb 25, 2012 at 9:02 PM, Pascal Costanza <pc@p-cos.net> wrote:
Hi,

Consider the following test case:

(defclass c () ())
(defclass d (c) ())

(defgeneric test (obj))

(defmethod test ((obj c)) 42)

(defmethod test ((obj d))
 (flet ((do-it ()
          (let ((next-value (call-next-method)))
            next-value)))
   (lambda () (do-it))))


> (test (make-instance 'd))

#<bytecompiled-closure #<bytecompiled-function 000000010db4d280>>
> (funcall *)

Condition of type: SIMPLE-ERROR
No next method.

Available restarts:

1. (RESTART-TOPLEVEL) Go back to Top-Level REPL.


Similar code worked before in 11.1.1. (Instead of the error, the last funcall should return 42.)


Best,
Pascal

--
Pascal Costanza




------------------------------------------------------------------------------
Virtualization & Cloud Management Using Capacity Planning
Cloud computing makes use of virtualization - but cloud computing
also focuses on allowing computing to be delivered as a service.
http://www.accelacomm.com/jaw/sfnl/114/51521223/
_______________________________________________
Ecls-list mailing list
Ecls-list@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/ecls-list



--
Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)
http://juanjose.garciaripoll.googlepages.com