; Copyright (c) 1993-2008 by Richard Kelsey and Jonathan Rees. See file COPYING.

; Non-hygienic, a la Dylan

(define-syntax with-next-method
  (cons (lambda (e r c)
	  (let ((next (or (caddr e) 'next-method)))
	    `(,(r 'lambda) (,next ,@(cadddr e))
			   ,@(cddddr e))))
	'(lambda)))
