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
