(import (chicken format))
(require-extension coops)

(define-class <test> ())

(define-method (print-object (obj <test>) #!optional (out (current-output-port)))
  (format out "#<test>"))

(print (make <test>))

;;; output:
;;; #<coops-instance>