Welcome to the CHICKEN Scheme pasting service

no title added by matijja on Sat Feb 2 15:25:46 2019

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

(define-record-printer (coops-instance obj out)
  (handle-exceptions ex
      (begin
        (display "#<no print-method defined for: " out)
        (default-print-method obj out)
        (display ">" out))
    (print-object obj out) ) )

(define-class <test> ())

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

(print (make <test>))

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Type in the text below:
       _      _ _               
 _   _| |__  (_) | ___ __ _   _ 
| | | | '_ \ | | |/ / '__| | | |
| |_| | | | || |   <| |  | |_| |
 \__, |_| |_|/ |_|\_\_|   \__, |
 |___/     |__/           |___/ 
Visually impaired? Let me spell it for you (wav file) download WAV