not quite around

On SBCL, if I remember well, MAKE-PROXY-INSTANCE caused a run-time
error due to a method signature mismatch between the around method and
its next method.  On a closer look it seems to me the Lisp was right:

Index: gdkevents.lisp
===================================================================
RCS file: /cvsroot/clg/clg/gdk/gdkevents.lisp,v
retrieving revision 1.12
diff -c -r1.12 gdkevents.lisp
*** gdkevents.lisp	26 Apr 2006 09:20:20 -0000	1.12
--- gdkevents.lisp	4 Jan 2008 13:46:02 -0000
***************
*** 82,88 ****
  
! (defmethod make-proxy-instance :around ((class (eql (find-class 'event))) location &rest initargs)
    (let ((class (%event-class location)))
!     (apply #'call-next-method class location initargs)))
  
  
  (defclass timed-event (event)
--- 82,88 ----
  
! (defmethod make-proxy-instance ((class (eql (find-class 'event))) location &rest initargs)
    (let ((class (%event-class location)))
!     (apply #'make-proxy-instance class location initargs)))
  
  
  (defclass timed-event (event)


-- 
walter pelissero
http://www.pelissero.de

-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2005.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/