(define impc:compiler:print-cannot-expand-non-generic-error
(lambda (name)
(print-with-colors *impc:compiler:pretty-print-error-color*
'default #t (print "Generics Error"))
(print " cannot expand on non-generic ")
(print-with-colors *impc:compiler:pretty-print-type-color* 'default #f (print name "\n"))
(if (impc:aot:currently-compiling?)
(quit 2)
(throw ""))))