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