(require-extension coops)

(define-class <a> ())

(define (foo a)
  (values 1 2))

(define-method (bar (a <a>))
  (values 1 2))

(receive (i j) (foo (make <a>))
	 (print i j))

(receive (i j) (bar (make <a>))
	 (print i j))

;; Output both compiled and interpreted:
;; 12

;; Error: bad argument count - received 1 but expected 2: #<procedure (? i j)>