Welcome to the CHICKEN Scheme pasting service

coops' make added by C-Keen on Wed Jan 17 16:32:58 2018

(define make
  (lambda (c . svsv)
    (check-instance c 'make)
    (let* ((slotnames 
	    (fast-standard-class-slot c +standard-class-slotnames-slot+))
	   (sv (make-vector (length slotnames) uninitialized))
	   (i (make-coops-instance c sv)))
      (define (slot-index name)
	(or (position name slotnames)
	    (error "no such slot in instances of given class" name c)))
      (let loop ((svsv svsv))
	(cond ((null? svsv) 
	       (unless bootstrapping (initialize-instance i))
	       i)
	      ((null? (cdr svsv))
	       (error 'make "missing slot value" (car svsv) i))
	      (else
	       (##sys#setslot sv (slot-index (car svsv)) (cadr svsv))
	       (loop (cddr svsv))))))))

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