1 665c255d 2023-08-04 jrmu (define (apply-generic op . args)
 2 665c255d 2023-08-04 jrmu   (let ((type-tags (map type-tag args)))
 3 665c255d 2023-08-04 jrmu     (let ((proc (get op type-tags)))
 4 665c255d 2023-08-04 jrmu       (if proc
 5 665c255d 2023-08-04 jrmu 	  (apply proc (map contents args))
 6 665c255d 2023-08-04 jrmu 	  (error
 7 665c255d 2023-08-04 jrmu 	   "No method for these types -- APPLY-GENERIC"
 8 665c255d 2023-08-04 jrmu 	   (list op type-tags))))))
 9 665c255d 2023-08-04 jrmu 
10 665c255d 2023-08-04 jrmu (define (attach-tag type-tag contents)