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


On Sat, Feb 25, 2012 at 9:02 PM, Pascal Costanza <> wrote:

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)))
   (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.)


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.
Ecls-list mailing list

Instituto de Física Fundamental, CSIC
c/ Serrano, 113b, Madrid 28006 (Spain)