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